27 lines
593 B
Agda
27 lines
593 B
Agda
module 1FundamentalGroup.Quest0SideQuests.SideQuest0 where
|
||
|
||
open import Cubical.Data.Empty
|
||
open import Cubical.Data.Unit renaming ( Unit to ⊤ )
|
||
open import Cubical.Data.Bool
|
||
open import Cubical.Foundations.Prelude
|
||
|
||
true≢false' : true ≡ false → ⊥
|
||
true≢false' h = transport ⊤≡⊥ tt where
|
||
|
||
propify : Bool → Type
|
||
propify false = ⊥
|
||
propify true = ⊤
|
||
|
||
⊤≡⊥ : ⊤ ≡ ⊥
|
||
⊤≡⊥ = cong propify h
|
||
{- transport
|
||
|
||
To follow a point in `a : A` along a path `p : A ≡ B`
|
||
we use
|
||
|
||
transport : {A B : Type u} → A ≡ B → A → B
|
||
|
||
Why do we propify? Discuss.
|
||
|
||
-}
|