X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Fdecl.ma;h=5308f9350fa3762f8c496719266481289b274e97;hb=55dc87ec418b5b8afe10164cfc61b5ad80a88e6c;hp=4b67f551ab6821646c7bda52a445f646504916b4;hpb=0fadcf36d82e4ed816a50db09dfd1559a8507e6c;p=helm.git diff --git a/helm/software/matita/tests/decl.ma b/helm/software/matita/tests/decl.ma index 4b67f551a..5308f9350 100644 --- a/helm/software/matita/tests/decl.ma +++ b/helm/software/matita/tests/decl.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -set "baseuri" "cic:/matita/tests/decl". + include "nat/times.ma". include "nat/orders.ma". @@ -114,11 +114,7 @@ theorem easy3: ∀A:Prop. (A ∧ ∃n:nat.n ≠ n) → True. assume P: Prop. suppose (P ∧ ∃m:nat.m ≠ m) (H). by H we have P (H1) and (∃x:nat.x≠x) (H2). - (*BUG: by H2 let q:nat such that (q ≠ q) (Ineq). - *) - (* the next line is wrong, but for the moment it does the job *) - by H2 let q:nat such that False (Ineq). by I done. qed.