diff --git a/src/HottBook/Chapter2.lagda.md b/src/HottBook/Chapter2.lagda.md index 15d6f74..1b01390 100644 --- a/src/HottBook/Chapter2.lagda.md +++ b/src/HottBook/Chapter2.lagda.md @@ -313,7 +313,10 @@ idToEquiv {A} {B} p = func , equiv wtf2 : (func ∘ func-inv) ≡ wtf wtf2 = refl - in {! !} + + wtf3 : p ∙ (sym p) ≡ refl + wtf3 = J {! !} {! !} {! !} {! !} {! !} + in {! !} equiv = record { g = func-inv