small changes after changes in HoTT library
This commit is contained in:
parent
d6d08ccd83
commit
21c6e8f7e5
2 changed files with 3 additions and 3 deletions
|
@ -708,7 +708,7 @@ namespace chain_complex namespace old
|
||||||
definition CommGroup_LES_of_homotopy_groups3 (n : +6ℕ) : CommGroup.{u} :=
|
definition CommGroup_LES_of_homotopy_groups3 (n : +6ℕ) : CommGroup.{u} :=
|
||||||
CommGroup.mk (LES_of_homotopy_groups3 f (pr1 n + 1, pr2 n))
|
CommGroup.mk (LES_of_homotopy_groups3 f (pr1 n + 1, pr2 n))
|
||||||
(comm_group_LES_of_homotopy_groups3 f (pr1 n) (pr2 n))
|
(comm_group_LES_of_homotopy_groups3 f (pr1 n) (pr2 n))
|
||||||
|
exit
|
||||||
definition homomorphism_LES_of_homotopy_groups_fun3 : Π(k : +6ℕ),
|
definition homomorphism_LES_of_homotopy_groups_fun3 : Π(k : +6ℕ),
|
||||||
CommGroup_LES_of_homotopy_groups3 f (S k) →g CommGroup_LES_of_homotopy_groups3 f k
|
CommGroup_LES_of_homotopy_groups3 f (S k) →g CommGroup_LES_of_homotopy_groups3 f k
|
||||||
| (k, fin.mk 0 H) :=
|
| (k, fin.mk 0 H) :=
|
||||||
|
|
|
@ -33,7 +33,7 @@ end eq open eq
|
||||||
namespace pointed
|
namespace pointed
|
||||||
|
|
||||||
definition pequiv_compose {A B C : Type*} (g : B ≃* C) (f : A ≃* B) : A ≃* C :=
|
definition pequiv_compose {A B C : Type*} (g : B ≃* C) (f : A ≃* B) : A ≃* C :=
|
||||||
pequiv_of_pmap (g ∘* f) (is_equiv_compose f g)
|
pequiv_of_pmap (g ∘* f) (is_equiv_compose g f)
|
||||||
|
|
||||||
infixr ` ∘*ᵉ `:60 := pequiv_compose
|
infixr ` ∘*ᵉ `:60 := pequiv_compose
|
||||||
|
|
||||||
|
@ -63,7 +63,7 @@ namespace pointed
|
||||||
... ≃ Σ(p : pmap.to_fun f = pmap.to_fun g), resp_pt f = ap (λh, h pt) p ⬝ resp_pt g
|
... ≃ Σ(p : pmap.to_fun f = pmap.to_fun g), resp_pt f = ap (λh, h pt) p ⬝ resp_pt g
|
||||||
: sigma_equiv_sigma_right (λp, pathover_eq_equiv_Fl p (resp_pt f) (resp_pt g))
|
: sigma_equiv_sigma_right (λp, pathover_eq_equiv_Fl p (resp_pt f) (resp_pt g))
|
||||||
... ≃ Σ(p : pmap.to_fun f = pmap.to_fun g), resp_pt f = ap10 p pt ⬝ resp_pt g
|
... ≃ Σ(p : pmap.to_fun f = pmap.to_fun g), resp_pt f = ap10 p pt ⬝ resp_pt g
|
||||||
: sigma_equiv_sigma_right (λp, equiv_eq_closed_right _ (whisker_right (ap_eq_ap10 p _) _))
|
: sigma_equiv_sigma_right (λp, equiv_eq_closed_right _ (whisker_right (ap_eq_apd10 p _) _))
|
||||||
... ≃ Σ(p : pmap.to_fun f ~ pmap.to_fun g), resp_pt f = p pt ⬝ resp_pt g
|
... ≃ Σ(p : pmap.to_fun f ~ pmap.to_fun g), resp_pt f = p pt ⬝ resp_pt g
|
||||||
: sigma_equiv_sigma_left' eq_equiv_homotopy
|
: sigma_equiv_sigma_left' eq_equiv_homotopy
|
||||||
... ≃ Σ(p : pmap.to_fun f ~ pmap.to_fun g), p pt ⬝ resp_pt g = resp_pt f
|
... ≃ Σ(p : pmap.to_fun f ~ pmap.to_fun g), p pt ⬝ resp_pt g = resp_pt f
|
||||||
|
|
Loading…
Add table
Reference in a new issue