auto gitdoc commit
This commit is contained in:
parent
cc73889956
commit
72a46d4f26
1 changed files with 1 additions and 1 deletions
|
@ -63,7 +63,7 @@ exercise2∙13 = aux1 , equiv1
|
|||
|
||||
equiv1 : isequiv aux1
|
||||
g equiv1 = rev
|
||||
g-id equiv1 (f , f-equiv @ (mkIsEquiv g g-id h h-id)) =
|
||||
g-id equiv1 e@(f , f-equiv @ (mkIsEquiv g g-id h h-id)) =
|
||||
-- proving that given any equivalence e, that:
|
||||
-- ((aux1 ∘ rev) e ≡ id e)
|
||||
-- (rev (aux1 e) ≡ e)
|
||||
|
|
Loading…
Reference in a new issue