ch2
This commit is contained in:
parent
c84f1f8958
commit
73a58bd2c2
3 changed files with 22 additions and 1 deletions
1
flake.nix
Normal file
1
flake.nix
Normal file
|
@ -0,0 +1 @@
|
||||||
|
|
|
@ -11,6 +11,26 @@ private
|
||||||
variable
|
variable
|
||||||
l l2 : Level
|
l l2 : Level
|
||||||
|
|
||||||
|
module lemma211 where
|
||||||
|
lemma : {A : Type l} → {x y : A} → (x ≡ y) → (y ≡ x)
|
||||||
|
lemma p i = p (~ i)
|
||||||
|
|
||||||
|
module lemma212 where
|
||||||
|
lemma : {A : Type l} → {x y z : A} → x ≡ y → y ≡ z → x ≡ z
|
||||||
|
lemma {x = x} p q i = hcomp (λ j → λ { (i = i0) → x ; (i = i1) → q j }) (p i)
|
||||||
|
|
||||||
|
module lemma214 where
|
||||||
|
private
|
||||||
|
variable
|
||||||
|
A : Type l
|
||||||
|
x y z w : A
|
||||||
|
p : x ≡ y
|
||||||
|
q : y ≡ z
|
||||||
|
r : z ≡ w
|
||||||
|
|
||||||
|
lemma-i : p ≡ p ∙ refl
|
||||||
|
lemma-i = hfill {! !} {! !} {! !}
|
||||||
|
|
||||||
module lemma2310 where
|
module lemma2310 where
|
||||||
lemma : {A B : Type l}
|
lemma : {A B : Type l}
|
||||||
→ (P : B → Type l2)
|
→ (P : B → Type l2)
|
||||||
|
|
|
@ -64,7 +64,7 @@ module section81 where
|
||||||
-- decode (loop i) c = {! loop^ c !}
|
-- decode (loop i) c = {! loop^ c !}
|
||||||
decode : (x : S¹) → code {l} x → (base ≡ x)
|
decode : (x : S¹) → code {l} x → (base ≡ x)
|
||||||
decode base (lift c) = loop^ c
|
decode base (lift c) = loop^ c
|
||||||
decode (loop i) c j = {! c !}
|
decode (loop i) c j = {! !}
|
||||||
|
|
||||||
-- Lemma 8.1.7
|
-- Lemma 8.1.7
|
||||||
postulate
|
postulate
|
||||||
|
|
Loading…
Reference in a new issue