X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Fpermutation.ma;h=bfa5112bc4f2d6482ef1f83a912df96359fd0b88;hb=3cf6181bded05eb63140d1b2ba4f2f5791a73b48;hp=4654f33fca7efa46bc1d58daa2ebfea4df0f5f2c;hpb=8c4659819a1c1f2e450d9a588ecca37d95ae48e9;p=helm.git

diff --git a/helm/software/matita/library/nat/permutation.ma b/helm/software/matita/library/nat/permutation.ma
index 4654f33fc..bfa5112bc 100644
--- a/helm/software/matita/library/nat/permutation.ma
+++ b/helm/software/matita/library/nat/permutation.ma
@@ -72,14 +72,16 @@ match eqb n i with
       [ true \Rightarrow i
       | false \Rightarrow n]].
 
-notation < "(❲i↹j❳)n" with precedence 71 
+notation < "(❲i↹j❳) term 72 n" with precedence 71 
 for @{ 'transposition $i $j $n}.
 
-notation < "(❲i \atop j❳)n" with precedence 71 
+notation < "(❲i \atop j❳) term 72 n" with precedence 71 
 for @{ 'transposition $i $j $n}.
 
-interpretation "natural transposition" 'transposition i j n =
-  (cic:/matita/nat/permutation/transpose.con i j n).
+notation > "(❲\frac term 90 i term 90 j❳)n" with precedence 71 
+for @{ 'transposition $i $j $n}.
+
+interpretation "natural transposition" 'transposition i j n = (transpose i j n).
 
 lemma transpose_i_j_i: \forall i,j:nat. transpose i j i = j.
 intros.unfold transpose.
@@ -748,4 +750,4 @@ intros 4.elim k
       ]
     ]
   ]
-qed.
\ No newline at end of file
+qed.