Added side quests and preambles for side quests

1FundamentalGroup/Preambles/PEmpty.agda

@@ -0,0 +1,6 @@
+module 1FundamentalGroup.Preambles.PEmpty where
+
+open import Cubical.Foundations.Prelude public
+open import Cubical.Data.Empty renaming (rec to ⊥Rec) public
+open import Cubical.Foundations.Isomorphism renaming (Iso to _≅_) public
+

1FundamentalGroup/Preambles/PTrueNotFalse.agda

@@ -0,0 +1,6 @@
+module 1FundamentalGroup.Preambles.PTrueNotFalse where
+
+open import Cubical.Data.Empty public
+open import Cubical.Data.Unit renaming ( Unit to ⊤ ) public
+open import Cubical.Data.Bool using (Bool ; true ; false) public
+open import Cubical.Foundations.Prelude public

1FundamentalGroup/Quest0.agda

@@ -1,5 +1,6 @@
+-- ignore this
 module 1FundamentalGroup.Quest0 where
-
+-- ignore this
 open import 1FundamentalGroup.Preambles.P0
 
 Refl : base ≡ base

1FundamentalGroup/Quest0SideQuests/Empty.agda

@@ -1,13 +1,10 @@
 module 1FundamentalGroup.Quest0SideQuests.Empty where
 
-open import Cubical.Foundations.Prelude
+open import 1FundamentalGroup.Preambles.PEmpty
-open import Cubical.Data.Empty renaming (rec to ⊥Rec)
-open import Cubical.Foundations.Isomorphism renaming (Iso to _≅_)
 
 toEmpty : (A : Type) → Type
 toEmpty A = {!!}
 
--- why Type₁
 pathEmpty : (A : Type) → Type₁
 pathEmpty A = {!!}
 
@@ -15,10 +12,10 @@ isoEmpty : (A : Type) → Type
 isoEmpty A = {!!}
 
 toEmpty→isoEmpty : (A : Type) → toEmpty A → isoEmpty A
-toEmpty→isoEmpty A f = {!!}
+toEmpty→isoEmpty A = {!!}
 
 isoEmpty→pathEmpty : (A : Type) → isoEmpty A → pathEmpty A
 isoEmpty→pathEmpty A = {!!}
 
 pathEmpty→toEmpty : (A : Type) → pathEmpty A → toEmpty A
-pathEmpty→toEmpty A p = {!!}
+pathEmpty→toEmpty A = {!!}

1FundamentalGroup/Quest0SideQuests/EmptySolutions.agda

@@ -1,13 +1,10 @@
 module 1FundamentalGroup.Quest0SideQuests.EmptySolutions where
 
-open import Cubical.Foundations.Prelude
+open import 1FundamentalGroup.Preambles.PEmpty
-open import Cubical.Data.Empty renaming (rec to ⊥Rec)
-open import Cubical.Foundations.Isomorphism renaming (Iso to _≅_)
 
 toEmpty : (A : Type) → Type
 toEmpty A = A → ⊥
 
--- why Type₁
 pathEmpty : (A : Type) → Type₁
 pathEmpty A = A ≡ ⊥
 
@@ -27,4 +24,4 @@ isoEmpty→pathEmpty : (A : Type) → isoEmpty A → pathEmpty A
 isoEmpty→pathEmpty A = isoToPath
 
 pathEmpty→toEmpty : (A : Type) → pathEmpty A → toEmpty A
-pathEmpty→toEmpty A p = J (λ B q → toEmpty B) (λ x → x) (sym p)
+pathEmpty→toEmpty A p x = transport p x

1FundamentalGroup/Quest0SideQuests/TrueNotFalse.agda

@@ -1,9 +1,6 @@
 module 1FundamentalGroup.Quest0SideQuests.TrueNotFalse where
 
-open import Cubical.Data.Empty
+open import 1FundamentalGroup.Preambles.PTrueNotFalse
-open import Cubical.Data.Unit renaming ( Unit to ⊤ )
-open import Cubical.Data.Bool using (Bool ; true ; false)
-open import Cubical.Foundations.Prelude
 
 true≢false : true ≡ false → ⊥
 true≢false = {!!}

1FundamentalGroup/Quest0SideQuests/TrueNotFalseSolutions.agda

@@ -1,9 +1,6 @@
 module 1FundamentalGroup.Quest0SideQuests.TrueNotFalseSolutions where
 
-open import Cubical.Data.Empty
+open import 1FundamentalGroup.Preambles.PTrueNotFalse
-open import Cubical.Data.Unit renaming ( Unit to ⊤ )
-open import Cubical.Data.Bool using (Bool ; true ; false)
-open import Cubical.Foundations.Prelude
 
 true≢false : true ≡ false → ⊥
 true≢false h = transport ⊤≡⊥ tt where

1FundamentalGroup/Quest1.agda

@@ -1,5 +1,6 @@
+-- ignore
 module 1FundamentalGroup.Quest1 where
-
+-- ignore
 open import 1FundamentalGroup.Preambles.P1
 
 Ω : (A : Type) (a : A) → Type