moved quest 2 to quest 1

This commit is contained in:
Jlh18 2021-10-02 15:14:02 +01:00
parent 8c8c1618d1
commit 9268cc2b51
3 changed files with 6 additions and 6 deletions

View File

@ -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 : Ω base
loop_times : loopSpace base
loop n times = {!!}
{-

View File

@ -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 : Ω base
loop_times : loopSpace base
loop pos zero times = refl
loop pos (suc n) times = loop pos n times loop
loop negsuc zero times = sym loop