michael/Spectral
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix error in EM

Browse source
This commit is contained in:
Floris van Doorn 2018-01-23 12:47:29 -05:00
parent 6de6e72a03
commit 3a09e743a2
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
homotopy/EM.hlean
View file

@ -530,7 +530,7 @@ namespace EM
refine isomorphism_of_eq (ap (λx, πg[x+1] X) !zero_add⁻¹) ⬝g homotopy_group_add X 0 n ⬝g _ ⬝g refine isomorphism_of_eq (ap (λx, πg[x+1] X) !zero_add⁻¹) ⬝g homotopy_group_add X 0 n ⬝g _ ⬝g
!fundamental_group_EM1, !fundamental_group_EM1,
exact homotopy_group_isomorphism_of_pequiv 0 e, exact homotopy_group_isomorphism_of_pequiv 0 e,
refine is_trunc_of_is_trunc_loopn n 1 X _ _, refine is_trunc_of_is_trunc_loopn n 1 X _ (@is_conn_of_is_conn_succ _ _ H1),
apply is_trunc_equiv_closed_rev 1 e apply is_trunc_equiv_closed_rev 1 e
end end