X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fdecidable_kit%2Flist_aux.ma;h=a38d5eb83cc499063b1349003b2904e911925b10;hb=3c4660604bb23d862c72f64e6b5b5974260eea28;hp=1c79ebc48debee563a318a0a91b50c764b96a810;hpb=2b10614120e86ec755f4826c6e78a654434bc7f8;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..a38d5eb83 100644
--- a/helm/software/matita/library/decidable_kit/list_aux.ma
+++ b/helm/software/matita/library/decidable_kit/list_aux.ma
@@ -65,9 +65,9 @@ cases c; intros (H); [ apply reflect_true | apply reflect_false ]
      [ 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.