generalize no more required before elim

[helm.git] / helm / software / matita / library / decidable_kit / list_aux.ma

diff --git a/helm/software/matita/library/decidable_kit/list_aux.ma b/helm/software/matita/library/decidable_kit/list_aux.ma
index 1c79ebc48debee563a318a0a91b50c764b96a810..a7db00c7278292d471ece6424af61ef19ba95062 100644 (file)
--- a/helm/software/matita/library/decidable_kit/list_aux.ma
+++ b/helm/software/matita/library/decidable_kit/list_aux.ma
@@ -58,16 +58,15 @@ cases c; intros (H); [ apply reflect_true | apply reflect_false ]
   apply (list_ind2 ? ? ? ? ? Hl); [1: intros; reflexivity]
   simplify; intros (tl1 tl2 hd1 hd2 IH H); cases (b2pT ? ? (andbP ? ?) H);
   rewrite > (IH H2); rewrite > (b2pT ? ? (eqP d ? ?) H1); reflexivity
-| generalize in match H; clear H; generalize in match l2; clear l2;
-  elim l1 1 (l1 x1);
+| elim l1 in H l2 ⊢ % 1 (l1 x1);
    [ cases l1; simplify; [intros; destruct H | unfold Not; intros; destruct H1;]
    | intros 3 (tl1 IH l2); cases l2;
      [ unfold Not; intros; destruct H1;
      | simplify;  intros;
        cases (b2pT ? ? (andbPF ? ?) (p2bT ? ? (negbP ?) H)); clear H;
-       [ intros; lapply (b2pF ? ? (eqP d ? ?) H1) as H'; clear H1;
+       [ intro; lapply (b2pF ? ? (eqP d ? ?) H1) as H'; clear H1;
          destruct H; apply H'; reflexivity;
-       | intros; lapply (IH ? H1) as H'; destruct H;
+       | intro; lapply (IH ? H1) as H'; destruct H;
          apply H'; reflexivity;]]]]
 qed.