X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Fformal_topology%2Fapply_functor.ma;h=e08cf5176caffec6f4fb43ce9426c73fdb69286e;hb=8db3579bec4d9a97af526f95a179587a2fbfe3e3;hp=41e242caac7a282ce0ae610f92ceddc269068e42;hpb=c8718cc46ab9aaca047366dfefe72bc7c9402e5a;p=helm.git

diff --git a/matita/matita/lib/formal_topology/apply_functor.ma b/matita/matita/lib/formal_topology/apply_functor.ma
index 41e242caa..e08cf5176 100644
--- a/matita/matita/lib/formal_topology/apply_functor.ma
+++ b/matita/matita/lib/formal_topology/apply_functor.ma
@@ -14,18 +14,18 @@
 
 include "formal_topology/categories.ma".
 include "formal_topology/notation.ma".
-
+(*
 record Fo (C1,C2:CAT2) (F:arrows3 CAT2 C1 C2) : Type[2] ≝ {
   F2: C2;
   F1: C1;
   FP: map_objs2 ?? F F1 =_\ID F2
 }.
 
-notation "ℱ\sub 1 x" non associative with precedence 60 for @{'F1 $x}.
+notation "ℱ\sub 1 x" non associative with precedence 65 for @{'F1 $x}.
 notation > "ℱ_1" non associative with precedence 90 for @{F1 ???}.
 interpretation "F1" 'F1 x = (F1 ??? x). 
 
-notation "ℱ\sub 2 x" non associative with precedence 60 for @{'F2 $x}.
+notation "ℱ\sub 2 x" non associative with precedence 65 for @{'F2 $x}.
 notation > "ℱ_2" non associative with precedence 90 for @{F2 ???}.
 interpretation "F2" 'F2 x = (F2 ??? x). 
 
@@ -42,11 +42,11 @@ record Fm_c (C1,C2:CAT2) (F:arrows3 CAT2 C1 C2) (X,Y:Fo ?? F) : Type[2] ≝ {
   FmP: REW ?? F X Y (map_arrows2 ?? F ?? Fm1) = Fm2
 }.
 
-notation "ℳ\sub 1 x" non associative with precedence 60 for @{'Fm1 $x}.
+notation "ℳ\sub 1 x" non associative with precedence 65 for @{'Fm1 $x}.
 notation > "ℳ_1" non associative with precedence 90 for @{Fm1 ?????}.
 interpretation "Fm1" 'Fm1 x = (Fm1 ????? x). 
 
-notation "ℳ\sub 2 x" non associative with precedence 60 for @{'Fm2 $x}.
+notation "ℳ\sub 2 x" non associative with precedence 65 for @{'Fm2 $x}.
 notation > "ℳ_2" non associative with precedence 90 for @{Fm2 ?????}.
 interpretation "Fm2" 'Fm2 x = (Fm2 ????? x). 
 
@@ -120,3 +120,4 @@ qed.
 
 
 
+*)