X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fdecidable_kit%2Flist_aux.ma;h=c1a03060b27ea43871a5c837776876d598771fb2;hb=34d2f477be65e3fd26bfb6d43a3dd0807274549b;hp=b68858d68b11f7bef762a24d88fa284660e2eca5;hpb=9af0ac16488f57149c7d02aa5bbee47a81c7c342;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 b68858d68..c1a03060b 100644
--- a/helm/software/matita/library/decidable_kit/list_aux.ma
+++ b/helm/software/matita/library/decidable_kit/list_aux.ma
@@ -98,7 +98,7 @@ cases c; intros (H); [ apply reflect_true | apply reflect_false ]
        [ intros; lapply (b2pF ? ? (eqP d ? ?) H1) as H'; clear H1;
          destruct H; rewrite > Hcut in 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).