((Bool,
true : Bool,
false : Bool,
case : (b : Bool) -> (A : Type) -> A -> A -> A
) => M)(
(A : Type) -> A -> A -> A,
A => x => y => x,
A => x => y => y,
b => A => x => y => b A x y
)
// isomorphic
((Bool,
true : Bool,
false : Bool,
case : (b : Bool) -> (A : Type) -> A -> A -> A
) => M)(
(A : Type) -> A -> A -> A,
A => x => y => y,
A => x => y => x,
b => A => x => y => b A y x
)
Created
March 7, 2023 20:35
-
-
Save EduardoRFS/a92ea4bf0ac9a7bc440f2537a7b158ed to your computer and use it in GitHub Desktop.
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment