case not unfilding fixed

[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..a38d5eb83cc499063b1349003b2904e911925b10 100644 (file)
--- 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.