X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Flist%2Fsort.ma;h=4c67cb636842ca20eaf5c1f1e7df431c693777a4;hb=7002fb8d9d0102e9baa410935fdabc9be0f8690d;hp=c67b28227101efee63462b06b59020441638b945;hpb=bfb7fbf61e86114e49cb3671503e8307a4582342;p=helm.git

diff --git a/helm/software/matita/library/list/sort.ma b/helm/software/matita/library/list/sort.ma
index c67b28227..4c67cb636 100644
--- a/helm/software/matita/library/list/sort.ma
+++ b/helm/software/matita/library/list/sort.ma
@@ -147,16 +147,14 @@ lemma ordered_injective:
   elim l
   [ simplify; reflexivity;
   | simplify;
-    generalize in match H1;
-    clear H1;
-    elim l1;
+    elim l1 in H1 ⊢ %;
     [ simplify; reflexivity;
-    | cut ((le t t1 \land ordered A le (t1::l2)) = true);
+    | cut ((le a a1 \land ordered A le (a1::l2)) = true);
       [ generalize in match Hcut; 
         apply andb_elim;
-        elim (le t t1);
+        elim (le a a1);
         [ simplify;
-          fold simplify (ordered ? le (t1::l2));
+          fold simplify (ordered ? le (a1::l2));
           intros; assumption;
         | simplify;
           intros (Habsurd);
@@ -181,11 +179,10 @@ lemma insert_sorted:
  clear l; intros; simplify; intros;
   [2: rewrite > H1;
     [ generalize in match (H ? ? H2); clear H2; intro;
-      generalize in match H4; clear H4;
-      elim l'; simplify;
+      elim l' in H4 ⊢ %; simplify;
       [ rewrite > H5;
         reflexivity
-      | elim (le x t); simplify;
+      | elim (le x a); simplify;
         [ rewrite > H5;
           reflexivity
         | simplify in H4;
@@ -212,7 +209,7 @@ theorem insertionsort_sorted:
   elim l;
   [ simplify;
     reflexivity;
-  | apply (insert_sorted ? ? le_tot (insertionsort ? le l1) t);
+  | apply (insert_sorted ? ? le_tot (insertionsort ? le l1) a);
     assumption;
   ]
 qed.
\ No newline at end of file