X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2FTPTP%2FVeloci%2FCOL004-3.p.ma;h=e982e35131fb7d2d7be89e45868826215e97976c;hb=060864edadf332c07663e85bdc2299ee64e191ee;hp=c2cf3ecbc486cda0e091fedd896c652e0318f629;hpb=6558b3742901cee9fe47fa2dd204c365f57a89a8;p=helm.git diff --git a/helm/software/matita/tests/TPTP/Veloci/COL004-3.p.ma b/helm/software/matita/tests/TPTP/Veloci/COL004-3.p.ma index c2cf3ecbc..e982e3513 100644 --- a/helm/software/matita/tests/TPTP/Veloci/COL004-3.p.ma +++ b/helm/software/matita/tests/TPTP/Veloci/COL004-3.p.ma @@ -1,4 +1,4 @@ -set "baseuri" "cic:/matita/TPTP/COL004-3". + include "logic/equality.ma". (* Inclusion of: COL004-3.p *) (* -------------------------------------------------------------------------- *) @@ -36,7 +36,7 @@ theorem prove_u_combinator: \forall H1:\forall X:Univ.\forall Y:Univ.\forall Z:Univ.eq Univ (apply (apply (apply s X) Y) Z) (apply (apply X Z) (apply Y Z)).eq Univ (apply (apply (apply (apply s (apply k (apply s (apply (apply s k) k)))) (apply (apply s (apply (apply s k) k)) (apply (apply s k) k))) x) y) (apply y (apply (apply x x) y)) . intros. -auto paramodulation timeout=100. +autobatch paramodulation timeout=100; try assumption. print proofterm. qed.