ported to the new destruct

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

diff --git a/matita/library/decidable_kit/list_aux.ma b/matita/library/decidable_kit/list_aux.ma
index b68858d68b11f7bef762a24d88fa284660e2eca5..33a57c75256b7556362146a4386ec8cca6a14e86 100644 (file)
--- a/matita/library/decidable_kit/list_aux.ma
+++ b/matita/library/decidable_kit/list_aux.ma
@@ -96,9 +96,9 @@ 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;
-         rewrite > Hcut1 in H'; apply H'; reflexivity;]]]]
+         apply H'; reflexivity;]]]]
 qed.
     
 definition list_eqType : eqType → eqType ≝ λd:eqType.mk_eqType ? ? (lcmpP d).