X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=src%2FFunctors_ch1_4.v;h=52b0403a7643243b2cf6f4f873f656b8bb9d810f;hb=20641452e40570b4bfc9429ca57b0cffca6eccfb;hp=ee644ae660d85910543daa066808474bf48e031d;hpb=2403342ad32f12dd56a82ce575dd2d35d91f545a;p=coq-categories.git

diff --git a/src/Functors_ch1_4.v b/src/Functors_ch1_4.v
index ee644ae..52b0403 100644
--- a/src/Functors_ch1_4.v
+++ b/src/Functors_ch1_4.v
@@ -1,5 +1,5 @@
 Generalizable All Variables.
-Require Import Preamble.
+Require Import Notations.
 Require Import Categories_ch1_3.
 
 (******************************************************************************)
@@ -59,7 +59,15 @@ Definition functor_comp
   Defined.
 Notation "f >>>> g" := (@functor_comp _ _ _ _ _ _ _ _ _ _ f _ g)   : category_scope.
 
-
+Lemma functor_comp_assoc `{C':Category}`{D:Category}`{E:Category}`{F:Category}
+  {F1obj}(F1:Functor C' D F1obj)
+  {F2obj}(F2:Functor D E F2obj)
+  {F3obj}(F3:Functor E F F3obj)
+  `(f:a~>b) :
+  ((F1 >>>> F2) >>>> F3) \ f ~~ (F1 >>>> (F2 >>>> F3)) \ f.
+  intros; simpl.
+  reflexivity.
+  Qed.
 
 (* this is like JMEq, but for the particular case of ~~; note it does not require any axioms! *)
 Inductive heq_morphisms `{c:Category}{a b:c}(f:a~>b) : forall {a' b':c}, a'~>b' -> Prop :=