comment out issue in Zoo4eg

This commit is contained in:
2024-10-16 22:03:09 -07:00
parent a0ceac3167
commit 1695815fe3
4 changed files with 8 additions and 7 deletions

View File

@@ -56,15 +56,15 @@ list1 : List Bool
list1 = cons true (cons false (cons true nil))
-- dependent function composition
comp : {A} {B : A -> U} {C : {a} -> B a -> U}
(f : {a} (b : B a) -> C b)
comp : {A} {B : A -> U} {C : {a : A} -> B a -> U}
(f : {a : A} (b : B a) -> C b)
(g : (a : A) -> B a)
(a : A)
-> C (g a)
comp = \f g a => f (g a)
compExample : _
compExample = comp (cons true) (cons false) nil
-- compExample : Bool
-- compExample = comp (cons true) (cons false) nil
Nat : U
Nat = (N : U) -> (N -> N) -> N -> N