school/type-theory
2
0
Fork 0
Code Issues 11 Pull requests Projects 1 Releases Packages Wiki Activity Actions

wtf

Browse source
This commit is contained in:
Michael Zhang 2024-08-23 21:02:47 -05:00
parent 73a58bd2c2
commit f10e3a09b9
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/CubicalHott/Lemma651.agda
View file

@ -17,7 +17,7 @@ module lemma651 where
f : Susp Bool → S¹ f : Susp Bool → S¹
f north = base f north = base
f south = base f south = base
f (merid true i) = refl {x = base} i f (merid true i) = base
f (merid false i) = loop i f (merid false i) = loop i
g : S¹ → Susp Bool g : S¹ → Susp Bool
@ -26,10 +26,11 @@ module lemma651 where
f-g : section f g f-g : section f g
f-g base = refl f-g base = refl
f-g (loop i) = {! !} f-g (loop i) = {! helper !} where
helper : f (g (loop i)) ≡ loop i
g-f : retract f g g-f : retract f g
g-f north = refl g-f north = refl
g-f south = merid true g-f south = merid true
g-f (merid true i) = {! !} g-f (merid true i) j = merid true (i ∧ j)
g-f (merid false i) = {! !} g-f (merid false i) = {! !}