X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Fpermutation.ma;h=e594b82205d0423a05bc607bd5adb87615adefeb;hb=6e3edeedb090d7406c2383d57d14755a55b43946;hp=884c18ddc17c0f2a3dafe344c38dabb24160ec38;hpb=c445ba5534cccde19016c92660ab52777af221c0;p=helm.git

diff --git a/helm/software/matita/library/nat/permutation.ma b/helm/software/matita/library/nat/permutation.ma
index 884c18ddc..e594b8220 100644
--- a/helm/software/matita/library/nat/permutation.ma
+++ b/helm/software/matita/library/nat/permutation.ma
@@ -72,16 +72,13 @@ match eqb n i with
       [ true \Rightarrow i
       | false \Rightarrow n]].
 
-notation < "(❲i↹j❳)n"
-  right associative with precedence 71 
+notation < "(❲i↹j❳)n" with precedence 71 
 for @{ 'transposition $i $j $n}.
 
-notation < "(❲i \atop j❳)n"
-  right associative with precedence 71 
+notation < "(❲i \atop j❳)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).
+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.