moved quest 2 to quest 1
This commit is contained in:
parent
8c8c1618d1
commit
9268cc2b51
@ -3,10 +3,10 @@ module 1FundamentalGroup.Quest1 where
|
|||||||
open import 1FundamentalGroup.Preambles.P1
|
open import 1FundamentalGroup.Preambles.P1
|
||||||
|
|
||||||
|
|
||||||
Ω : (A : Type) (a : A) → Type
|
loopSpace : (A : Type) (a : A) → Type
|
||||||
Ω A a = a ≡ a
|
loopSpace A a = a ≡ a
|
||||||
|
|
||||||
loop_times : ℤ → Ω S¹ base
|
loop_times : ℤ → loopSpace S¹ base
|
||||||
loop n times = {!!}
|
loop n times = {!!}
|
||||||
|
|
||||||
{-
|
{-
|
||||||
|
@ -3,10 +3,10 @@ module 1FundamentalGroup.Quest1Solutions where
|
|||||||
open import 1FundamentalGroup.Preambles.P1
|
open import 1FundamentalGroup.Preambles.P1
|
||||||
|
|
||||||
|
|
||||||
Ω : (A : Type) (a : A) → Type
|
loopSpace : (A : Type) (a : A) → Type
|
||||||
Ω A a = a ≡ a
|
loopSpace A a = a ≡ a
|
||||||
|
|
||||||
loop_times : ℤ → Ω S¹ base
|
loop_times : ℤ → loopSpace S¹ base
|
||||||
loop pos zero times = refl
|
loop pos zero times = refl
|
||||||
loop pos (suc n) times = loop pos n times ∙ loop
|
loop pos (suc n) times = loop pos n times ∙ loop
|
||||||
loop negsuc zero times = sym loop
|
loop negsuc zero times = sym loop
|
||||||
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user