X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Flibrary%2Fdecidable_kit%2Flist_aux.ma;h=33a57c75256b7556362146a4386ec8cca6a14e86;hb=b76f72834c3885d06ceb71d92bf53e5d6334b24a;hp=c1a03060b27ea43871a5c837776876d598771fb2;hpb=0d3abcf9c11d95736820c9c6a8240d71f252941b;p=helm.git

diff --git a/matita/library/decidable_kit/list_aux.ma b/matita/library/decidable_kit/list_aux.ma
index c1a03060b..33a57c752 100644
--- a/matita/library/decidable_kit/list_aux.ma
+++ b/matita/library/decidable_kit/list_aux.ma
@@ -96,7 +96,7 @@ cases c; intros (H); [ apply reflect_true | apply reflect_false ]
      | simplify;  intros;
        cases (b2pT ? ? (andbPF ? ?) (p2bT ? ? (negbP ?) H)); clear H;
        [ intros; lapply (b2pF ? ? (eqP d ? ?) H1) as H'; clear H1;
-         destruct H; rewrite > Hcut in H'; apply H'; reflexivity;
+         destruct H; apply H'; reflexivity;
        | intros; lapply (IH ? H1) as H'; destruct H;
          apply H'; reflexivity;]]]]
 qed.