diff --git a/1FundamentalGroup/Preambles/P0.agda b/1FundamentalGroup/Preambles/P0.agda new file mode 100644 index 0000000..910aeae --- /dev/null +++ b/1FundamentalGroup/Preambles/P0.agda @@ -0,0 +1,9 @@ +module 1FundamentalGroup.Preambles.P0 where + +open import Cubical.Data.Empty public +open import Cubical.Data.Unit renaming ( Unit to ⊤ ) public +open import Cubical.Data.Bool public +open import Cubical.Foundations.Prelude renaming ( subst to endPt ) public +open import Cubical.Foundations.Isomorphism renaming ( Iso to _≅_ ) public +open import Cubical.Foundations.Path public +open import Cubical.HITs.S1 public diff --git a/1FundamentalGroup/Preambles/P1.agda b/1FundamentalGroup/Preambles/P1.agda new file mode 100644 index 0000000..f4853bd --- /dev/null +++ b/1FundamentalGroup/Preambles/P1.agda @@ -0,0 +1,9 @@ +module 1FundamentalGroup.Preambles.P1 where + +open import Cubical.HITs.S1 public +open import Cubical.Data.Nat using (ℕ ; suc ; zero) public +open import Cubical.Data.Int using (ℤ ; pos ; negsuc) public +open import Cubical.Data.Empty public +open import Cubical.Foundations.Prelude public +open import Cubical.Foundations.HLevels public +open import 1FundamentalGroup.Quest0Solutions using ( Refl ; Refl≢loop ) public diff --git a/1FundamentalGroup/Preambles/P2.agda b/1FundamentalGroup/Preambles/P2.agda new file mode 100644 index 0000000..30fa264 --- /dev/null +++ b/1FundamentalGroup/Preambles/P2.agda @@ -0,0 +1,8 @@ +module 1FundamentalGroup.Preambles.P2 where + +open import Cubical.Data.Nat public +open import Cubical.Data.Int using (ℤ ; pos ; negsuc ; -_) public +open import Cubical.Foundations.Isomorphism public +open import Cubical.Foundations.Prelude renaming (subst to endPt) public +open import Cubical.HITs.S1 using (S¹ ; base ; loop) public +open import 1FundamentalGroup.Quest1 public diff --git a/1FundamentalGroup/Quest0.agda b/1FundamentalGroup/Quest0.agda index 16157d0..dbdf318 100644 --- a/1FundamentalGroup/Quest0.agda +++ b/1FundamentalGroup/Quest0.agda @@ -1,12 +1,6 @@ module 1FundamentalGroup.Quest0 where -open import Cubical.Data.Empty -open import Cubical.Data.Unit renaming ( Unit to ⊤ ) -open import Cubical.Data.Bool -open import Cubical.Foundations.Prelude renaming ( subst to endPt ) -open import Cubical.Foundations.Isomorphism renaming ( Iso to _≅_ ) -open import Cubical.Foundations.Path -open import Cubical.HITs.S1 +open import 1FundamentalGroup.Preambles.P0 Refl : base ≡ base Refl = {!!} diff --git a/1FundamentalGroup/Quest1.agda b/1FundamentalGroup/Quest1.agda index d57edd7..830a598 100644 --- a/1FundamentalGroup/Quest1.agda +++ b/1FundamentalGroup/Quest1.agda @@ -1,13 +1,6 @@ module 1FundamentalGroup.Quest1 where -open import Cubical.Core.Everything -open import Cubical.HITs.S1 -open import Cubical.Data.Nat -open import Cubical.Data.Int -open import Cubical.Data.Empty -open import Cubical.Foundations.Prelude -open import Cubical.Foundations.HLevels -open import 1FundamentalGroup.Quest0Solutions using ( Refl ; Refl≢loop ) +open import 1FundamentalGroup.Preambles.P1 Ω : (A : Type) (a : A) → Type Ω A a = a ≡ a diff --git a/1FundamentalGroup/Quest2.agda b/1FundamentalGroup/Quest2.agda index 452a098..73d4b85 100644 --- a/1FundamentalGroup/Quest2.agda +++ b/1FundamentalGroup/Quest2.agda @@ -1,12 +1,6 @@ module 1FundamentalGroup.Quest2 where -open import Cubical.Core.Everything -open import Cubical.Data.Nat -open import Cubical.Data.Int using (ℤ ; pos ; negsuc ; -_) -open import Cubical.Foundations.Isomorphism -open import Cubical.Foundations.Prelude renaming (subst to endPt) -open import Cubical.HITs.S1 using (S¹ ; base ; loop) -open import 1FundamentalGroup.Quest1 +open import 1FundamentalGroup.Preambles.P2 sucℤ : ℤ → ℤ sucℤ (pos n) = pos (suc n) @@ -41,7 +35,7 @@ helix base = ℤ helix (loop i) = sucℤPath i spinCountBase : base ≡ base → ℤ -spinCountBase p = endPt helix p 0 +spinCountBase p = endPt helix p (pos zero) spinCount : (x : S¹) → base ≡ x → helix x -spinCount x p = endPt helix p 0 +spinCount x p = endPt helix p (pos zero) diff --git a/1FundamentalGroup/feedbackG.md b/1FundamentalGroup/feedbackG.md index 570fe02..c6a4133 100644 --- a/1FundamentalGroup/feedbackG.md +++ b/1FundamentalGroup/feedbackG.md @@ -2,43 +2,43 @@ ## Subject info -- has some experience with type theory and haskell +[] has some experience with type theory and haskell ## Quest0/Part0 -- clarify the notation `a : A` -- hide the imports -- definition of inductive type doesn't make sense +[x] clarify the notation `a : A` +[x] hide the imports +[x] definition of inductive type doesn't make sense without the further details. -- confusion of `{!!}` and `{0}` and `?` -- comparing holes to agda-info window is intuitive -- error on firsts refine -- add at each step what the agda-info window looks like -- confusion about hole numbers. "just ignore them" -- subject tries to read constraint in agda-info window. - Shld deal with this somehow. -- emphasize no need to fill holes in order. +[x] confusion of `{!!}` and `{0}` and `?` +[x] comparing holes to agda-info window is intuitive +[x] error on firsts refine +[x] add at each step what the agda-info window looks like +[x] confusion about hole numbers. "just ignore them" +[x] subject tries to read constraint in agda-info window. + Shld deal with this somehow. +[] emphasize no need to fill holes in order. ## Quest0/Part1 -- subject confused about 'space of spaces'. +[x] subject confused about 'space of spaces'. More specifically, need to say `a : A` means "`a` is a point of the space `A`". -- we shld say `a ≡ b` means space of paths from `a` to `b`. -- 'contradiction' is a pre-existing concept in subject brain. -- "not sure that helps" - subject about definition of `Bool` -- "is `flipPath` taking a point from `Bool` to another point of `Bool` +[x] we shld say `a ≡ b` means space of paths from `a` to `b`. +[-] 'contradiction' is a pre-existing concept in subject brain. +[] "not sure that helps" - subject about definition of `Bool` +[] "is `flipPath` taking a point from `Bool` to another point of `Bool` or is it taking a space to another space?" -- "just some terminology" - subject on the definition of _fiber_. +[] "just some terminology" - subject on the definition of _fiber_. Subject did not take in the picture of what it is called fiber. -- need to add earlier how to check goal of holes. -- need to be clear _we are assuming `flipPath` is constructed already_. -- overall : need to be clearer that `Type` is space of spaces, +[] need to add earlier how to check goal of holes. +[] need to be clear _we are assuming `flipPath` is constructed already_. +[] overall : need to be clearer that `Type` is space of spaces, and paths in `Type` are saying which spaces are the same. ## Quesst0/Part2 -- For the `iso` bit, change to just `C-c C-r` cuz `Iso` only has one constructor. -- say you can check def of `Iso` by using `SPC c d` -- say "just write `s` and `r` and write the rest then load". -- emphasize agda is indentation sensitive. -- subject unexpectedly extracts lemma `true ≡ true`. +[] For the `iso` bit, change to just `C-c C-r` cuz `Iso` only has one constructor. +[] say you can check def of `Iso` by using `SPC c d` +[] say "just write `s` and `r` and write the rest then load". +[] emphasize agda is indentation sensitive. +[] subject unexpectedly extracts lemma `true ≡ true`. diff --git a/_build/2.6.2/agda/1FundamentalGroup/Preambles/P0.agdai b/_build/2.6.2/agda/1FundamentalGroup/Preambles/P0.agdai new file mode 100644 index 0000000..2950e3f Binary files /dev/null and b/_build/2.6.2/agda/1FundamentalGroup/Preambles/P0.agdai differ diff --git a/_build/2.6.2/agda/1FundamentalGroup/Preambles/P1.agdai b/_build/2.6.2/agda/1FundamentalGroup/Preambles/P1.agdai new file mode 100644 index 0000000..6cd0f16 Binary files /dev/null and b/_build/2.6.2/agda/1FundamentalGroup/Preambles/P1.agdai differ diff --git a/_build/2.6.2/agda/1FundamentalGroup/Preambles/P2.agdai b/_build/2.6.2/agda/1FundamentalGroup/Preambles/P2.agdai new file mode 100644 index 0000000..4f81153 Binary files /dev/null and b/_build/2.6.2/agda/1FundamentalGroup/Preambles/P2.agdai differ diff --git a/_build/2.6.2/agda/1FundamentalGroup/Preambles/Quest0Preamble.agdai b/_build/2.6.2/agda/1FundamentalGroup/Preambles/Quest0Preamble.agdai new file mode 100644 index 0000000..96680f4 Binary files /dev/null and b/_build/2.6.2/agda/1FundamentalGroup/Preambles/Quest0Preamble.agdai differ diff --git a/_build/2.6.2/agda/1FundamentalGroup/Quest1.agdai b/_build/2.6.2/agda/1FundamentalGroup/Quest1.agdai index 382ff92..cc09bdd 100644 Binary files a/_build/2.6.2/agda/1FundamentalGroup/Quest1.agdai and b/_build/2.6.2/agda/1FundamentalGroup/Quest1.agdai differ diff --git a/_build/2.6.2/agda/1FundamentalGroup/Quest2.agdai b/_build/2.6.2/agda/1FundamentalGroup/Quest2.agdai index bb9d3f6..f8aaca9 100644 Binary files a/_build/2.6.2/agda/1FundamentalGroup/Quest2.agdai and b/_build/2.6.2/agda/1FundamentalGroup/Quest2.agdai differ