mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 04:33:45 +03:00
12 lines
274 B
Idris
12 lines
274 B
Idris
|
idF : a -> a
|
||
|
|
idF = id
|
||
|
|
|
||
|
|
extensionality : (f : a -> b) -> (g : a -> b) -> ((x : a) -> f x = g x) -> f = g
|
||
|
|
extensionality f g = believe_me
|
||
|
|
|
||
|
|
leftIdPoint : (f : a -> b) -> (x : a) -> idF (f x) = f x
|
||
|
|
leftIdPoint f x = Refl
|
||
|
|
|
||
|
|
leftId : (f : a -> b) -> (idF . f = f)
|
||
|
|
leftId f = ?hole
|