X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Fbad_induction.ma;h=99c6b5898b6c0680c9c7d3dea3a302cf66066902;hb=e880d6eab5e1700f4a625ddcd7d0fa8f0cce2dcc;hp=172aa8e117a87efc75d3c7a8ab3be7348d701ec2;hpb=5c1b44dfefa085fbb56e23047652d3650be9d855;p=helm.git

diff --git a/helm/software/matita/tests/bad_induction.ma b/helm/software/matita/tests/bad_induction.ma
index 172aa8e11..99c6b5898 100644
--- a/helm/software/matita/tests/bad_induction.ma
+++ b/helm/software/matita/tests/bad_induction.ma
@@ -23,5 +23,5 @@ axiom bad_ind : ∀P : nat -> Prop. ∀n.(n = O -> P n) -> (∀n.P n -> P (S n))
 theorem absurd: ∀n. n = O.
   intros.
   letin P ≝ (λx:nat. n = O).
-  apply (bad_ind P n); simplify; intros; autobatch.
+  apply (bad_ind P n); simplify; intros; unfold; autobatch.
 qed.
\ No newline at end of file