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

diff --git a/helm/software/matita/library/nat/permutation.ma b/helm/software/matita/library/nat/permutation.ma
index 209c0c12e..884c18ddc 100644
--- a/helm/software/matita/library/nat/permutation.ma
+++ b/helm/software/matita/library/nat/permutation.ma
@@ -12,8 +12,6 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/nat/permutation".
-
 include "nat/compare.ma".
 include "nat/sigma_and_pi.ma".
 
@@ -620,7 +618,7 @@ apply le_S.apply le_n.assumption.
 apply (trans_eq ? ? (map_iter_i (S k) (\lambda m. g 
 (transpose i (S(m1 + i)) (transpose (S(m1 + i)) (S(S(m1 + i))) m))) f n)).
 apply (H2 O ? ? (S(m1+i))).
-unfold lt.apply le_S_S.apply le_O_n.
+unfold lt.apply le_S_S.apply le_O_n.id.
 apply (trans_le ? i).assumption.
 change with (i \le (S m1)+i).apply le_plus_n.
 exact H4.