Generalize no more required for elim.

[helm.git] / helm / software / matita / library / list / sort.ma

diff --git a/helm/software/matita/library/list/sort.ma b/helm/software/matita/library/list/sort.ma
index 857ab4e86ad0d224596d74878e7b102d274e5fa7..4c67cb636842ca20eaf5c1f1e7df431c693777a4 100644 (file)
--- a/helm/software/matita/library/list/sort.ma
+++ b/helm/software/matita/library/list/sort.ma
@@ -147,9 +147,7 @@ lemma ordered_injective:
   elim l
   [ simplify; reflexivity;
   | simplify;
-    generalize in match H1;
-    clear H1;
-    elim l1;
+    elim l1 in H1 ⊢ %;
     [ simplify; reflexivity;
     | cut ((le a a1 \land ordered A le (a1::l2)) = true);
       [ generalize in match Hcut; 
@@ -181,8 +179,7 @@ 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 a); simplify;