mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-24 20:23:11 +03:00
15 lines
242 B
Idris
15 lines
242 B
Idris
identity : (a : Type) -> a -> a
|
|
identity a = id
|
|
|
|
identityL :
|
|
(a, b : Type )
|
|
-> (f : a -> b)
|
|
-> (identity b) . f = f
|
|
identityL a b f = Refl
|
|
|
|
identityR :
|
|
(a, b : Type )
|
|
-> (f : a -> b)
|
|
-> f = (identity b) . f
|
|
identityR a b f = Refl
|