@@ -80,6 +80,7 @@ Lemma compColimOfArrows
8080(* TODO déplacer ça dans Signature.v *)
8181
8282Section ColimsSig.
83+
8384 Context
8485 {C : category}
8586 {g : graph} (colims_g : Colims_of_shape g C)
@@ -196,6 +197,7 @@ Section ColimsSig.
196197 cbn.
197198 now rewrite id_right.
198199 Qed .
200+
199201 Lemma Sig_lim_is_signature : is_signature Sig_lim_signature_data.
200202 Proof .
201203 split.
@@ -278,6 +280,7 @@ Section ColimsSig.
278280 cbn.
279281 apply (colimArrowCommutes cc2).
280282 Qed .
283+
281284 Lemma Sig_coneOut_laws v :
282285 is_signature_Mor
283286 Sig_lim (dob d v : signature _)
@@ -357,6 +360,7 @@ Section ColimsSig.
357360 cbn.
358361 apply signature_Mor_ax_pw.
359362 Qed .
363+
360364 Lemma Sig_limArrow_laws {M : signature C} (cc : cone d M) :
361365 is_signature_Mor
362366 M ( Sig_lim)
@@ -421,6 +425,7 @@ Section ColimsSig.
421425 intro u.
422426 apply ( maponpaths (fun z => pr1 z R) (h u)).
423427 Defined .
428+
424429 Lemma Sig_isLimCone : isLimCone _ _ Sig_lim_cone.
425430 intros M cc.
426431 use unique_exists.
@@ -455,7 +460,8 @@ Definition Sig_Colims_of_shape {C : category}
455460 (g : graph)
456461 (colims_g : Colims_of_shape g C)
457462 : Colims_of_shape g (signature_category) :=
458- Sig_ColimCocone (C:= C) (g := g) colims_g.
463+ Sig_ColimCocone (C:= C) (g := g) colims_g.
464+
459465Definition Sig_Lims_of_shape {C : category}
460466 (g : graph)
461467 (lims_g : Lims_of_shape g C)
0 commit comments