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
|
||||
|
||||
|
||||
Ω : (A : Type) (a : A) → Type
|
||||
Ω A a = a ≡ a
|
||||
loopSpace : (A : Type) (a : A) → Type
|
||||
loopSpace A a = a ≡ a
|
||||
|
||||
loop_times : ℤ → Ω S¹ base
|
||||
loop_times : ℤ → loopSpace S¹ base
|
||||
loop n times = {!!}
|
||||
|
||||
{-
|
||||
|
@ -3,10 +3,10 @@ module 1FundamentalGroup.Quest1Solutions where
|
||||
open import 1FundamentalGroup.Preambles.P1
|
||||
|
||||
|
||||
Ω : (A : Type) (a : A) → Type
|
||||
Ω A a = a ≡ a
|
||||
loopSpace : (A : Type) (a : A) → Type
|
||||
loopSpace A a = a ≡ a
|
||||
|
||||
loop_times : ℤ → Ω S¹ base
|
||||
loop_times : ℤ → loopSpace S¹ base
|
||||
loop pos zero times = refl
|
||||
loop pos (suc n) times = loop pos n times ∙ loop
|
||||
loop negsuc zero times = sym loop
|
||||
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user