X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2FTPTP%2FVeloci%2FCOL064-7.p.ma;h=a1a903e8081e0008fc94ae5f89a9e4d17da7e989;hb=d86eefac7dff521eb2589b6f2dcb8a1b361be186;hp=d7a0a9cabf5f7882288a9a6c20aeb63abf5483f4;hpb=fa2319814d744d3e374490fe4e4746d9a5c84f1f;p=helm.git diff --git a/helm/software/matita/tests/TPTP/Veloci/COL064-7.p.ma b/helm/software/matita/tests/TPTP/Veloci/COL064-7.p.ma index d7a0a9cab..a1a903e80 100644 --- a/helm/software/matita/tests/TPTP/Veloci/COL064-7.p.ma +++ b/helm/software/matita/tests/TPTP/Veloci/COL064-7.p.ma @@ -1,4 +1,4 @@ -set "baseuri" "cic:/matita/TPTP/COL064-7". + include "logic/equality.ma". (* Inclusion of: COL064-7.p *) (* -------------------------------------------------------------------------- *) @@ -39,7 +39,7 @@ theorem prove_v_combinator: \forall H1:\forall X:Univ.\forall Y:Univ.\forall Z:Univ.eq Univ (apply (apply (apply b X) Y) Z) (apply X (apply Y Z)).eq Univ (apply (apply (apply (apply (apply b (apply t (apply (apply b b) t))) (apply (apply b b) (apply (apply b t) t))) x) y) z) (apply (apply z x) y) . intros. -autobatch paramodulation timeout=100. +autobatch paramodulation timeout=100; try assumption. print proofterm. qed.