X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fformal_topology%2Foverlap%2Fapply_functor.ma;h=81cf6d8e216b25aadc308877e97eeddfb83861bf;hb=05cfeb82d2624860e66941421a937f308d66cf33;hp=789988194f6ade4c616334b96bf5157b77a71912;hpb=e78cf74f8976cf0ca554f64baa9979d0423ee927;p=helm.git

diff --git a/helm/software/matita/contribs/formal_topology/overlap/apply_functor.ma b/helm/software/matita/contribs/formal_topology/overlap/apply_functor.ma
index 789988194..81cf6d8e2 100644
--- a/helm/software/matita/contribs/formal_topology/overlap/apply_functor.ma
+++ b/helm/software/matita/contribs/formal_topology/overlap/apply_functor.ma
@@ -70,7 +70,7 @@ qed.
 
 definition F_comp : 
   ∀C1,C2: CAT2.∀F:arrows3 CAT2 C1 C2.∀o1,o2,o3.
-    binary_morphism2 (Fm ?? F o1 o2) (Fm ?? F o2 o3) (Fm ?? F o1 o3).
+    (Fm ?? F o1 o2) × (Fm ?? F o2 o3) ⇒_2 (Fm ?? F o1 o3).
 intros; constructor 1;
 [ intros (f g); constructor 1;
     [ apply (comp2 C2 ??? (ℳ_2 f) (ℳ_2 g));
@@ -111,7 +111,7 @@ intros; constructor 1;
     lapply (FmP ????? a) as H1; lapply (FmP ????? a') as H2;
     cut (REW ????? (map_arrows2 ?? F ?? (ℳ_1 a)) = 
          REW ????? (map_arrows2 ?? F ?? (ℳ_1 a')));[2:
-      apply (.= H1); apply (.= e); apply H2^-1;]
+      apply (.= H1); apply (.= e); apply (H2^-1);]
     clear H1 H2 e; cases S in a a' Hcut; cases T;
     cases H; cases H1; simplify; intros; assumption;]
 | intro; apply rule #;