X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fdecidable_kit%2Flist_aux.ma;h=a5bf2edb7588ca139325fa040fb2bf75ac148f3c;hb=9eabe046c1182960de8cfdba96c5414224e3a61e;hp=1c79ebc48debee563a318a0a91b50c764b96a810;hpb=bfb7fbf61e86114e49cb3671503e8307a4582342;p=helm.git

diff --git a/helm/software/matita/library/decidable_kit/list_aux.ma b/helm/software/matita/library/decidable_kit/list_aux.ma
index 1c79ebc48..a5bf2edb7 100644
--- a/helm/software/matita/library/decidable_kit/list_aux.ma
+++ b/helm/software/matita/library/decidable_kit/list_aux.ma
@@ -12,8 +12,6 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/decidable_kit/list_aux/".
-
 include "list/list.ma".
 include "decidable_kit/eqtype.ma".
 include "nat/plus.ma".
@@ -58,17 +56,16 @@ 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.
     
-definition list_eqType : eqType → eqType ≝ λd:eqType.mk_eqType ? ? (lcmpP d).  
\ No newline at end of file
+definition list_eqType : eqType → eqType ≝ λd:eqType.mk_eqType ? ? (lcmpP d).