77 lines
1.8 KiB
Agda
77 lines
1.8 KiB
Agda
-- ignore
|
||
module 1FundamentalGroup.Quest0Solutions where
|
||
open import 1FundamentalGroup.Preambles.P0
|
||
|
||
Refl : base ≡ base
|
||
Refl = λ i → base
|
||
|
||
Flip : Bool → Bool
|
||
Flip false = true
|
||
Flip true = false
|
||
|
||
-- notice we used `refl` instead of `λ i → false`,
|
||
-- more on `refl` in Quest1
|
||
flipIso : Bool ≅ Bool
|
||
flipIso = iso Flip Flip rightInv leftInv where
|
||
rightInv : section Flip Flip
|
||
rightInv false = refl
|
||
rightInv true = refl
|
||
|
||
leftInv : retract Flip Flip
|
||
leftInv false = refl
|
||
leftInv true = refl
|
||
|
||
flipPath : Bool ≡ Bool
|
||
flipPath = isoToPath flipIso
|
||
|
||
doubleCover : S¹ → Type
|
||
doubleCover base = Bool
|
||
doubleCover (loop i) = flipPath i
|
||
|
||
endPtOfTrue : base ≡ base → doubleCover base
|
||
endPtOfTrue p = endPt doubleCover p true
|
||
|
||
Refl≢loop : Refl ≡ loop → ⊥
|
||
Refl≢loop p = true≢false (cong endPtOfTrue p)
|
||
|
||
------------------- Side Quest - Empty -------------------------
|
||
|
||
toEmpty : (A : Type) → Type
|
||
toEmpty A = A → ⊥
|
||
|
||
pathEmpty : (A : Type) → Type₁
|
||
pathEmpty A = A ≡ ⊥
|
||
|
||
isoEmpty : (A : Type) → Type
|
||
isoEmpty A = {!!}
|
||
|
||
outOf⊥ : (A : Type) → ⊥ → A
|
||
outOf⊥ A ()
|
||
|
||
toEmpty→isoEmpty : (A : Type) → toEmpty A → isoEmpty A
|
||
toEmpty→isoEmpty A f = iso f (outOf⊥ A) rightInv leftInv where
|
||
|
||
rightInv : section f (outOf⊥ A)
|
||
rightInv ()
|
||
|
||
leftInv : retract f (outOf⊥ A)
|
||
leftInv x = outOf⊥ (outOf⊥ A (f x) ≡ x) (f x)
|
||
|
||
isoEmpty→pathEmpty : (A : Type) → isoEmpty A → pathEmpty A
|
||
isoEmpty→pathEmpty A = isoToPath
|
||
|
||
pathEmpty→toEmpty : (A : Type) → pathEmpty A → toEmpty A
|
||
pathEmpty→toEmpty A p x = pathToFun p x
|
||
|
||
------------------- Side Quests - true≢false --------------------
|
||
|
||
true≢false' : true ≡ false → ⊥
|
||
true≢false' h = pathToFun ⊤≡⊥ tt where
|
||
|
||
propify : Bool → Type
|
||
propify false = ⊥
|
||
propify true = ⊤
|
||
|
||
⊤≡⊥ : ⊤ ≡ ⊥
|
||
⊤≡⊥ = cong propify h
|