making a start on the exactness of the derived couple

This commit is contained in:
Egbert Rijke 2017-06-19 13:40:52 -04:00
parent 313754ee2b
commit 36cd36a64c

View file

@ -273,10 +273,21 @@ definition derived_couple_k : derived_couple_B →g derived_couple_A :=
exact pr1 (center' (derived_couple_k_unique)), exact pr1 (center' (derived_couple_k_unique)),
end end
print conter_internal.center
definition derived_couple_k_htpy : group_fun (derived_couple_k ∘g SES.g (SES_of_differential d H)) ~ group_fun definition derived_couple_k_htpy : group_fun (derived_couple_k ∘g SES.g (SES_of_differential d H)) ~ group_fun
(SES.g (SES_im_i_trivial) ∘g k_restrict) := (SES.g (SES_im_i_trivial) ∘g k_restrict) :=
begin begin
exact pr2 (center' (derived_couple_k_unique)), exact pr2 (center' (derived_couple_k_unique)),
end end
definition derived_couple_exact_ij : is_exact_ag derived_couple_i derived_couple_j :=
begin
fapply is_exact.mk,
intro a,
induction a with a' t,
induction t with q, induction q with a p, induction p,
repeat exact sorry,
end
end derived_couple end derived_couple