X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FTPTP%2FHEQ%2FHEN011-3.ma;h=d61a767ff6ac54cd87e6c23e43346d4e79244876;hb=a1a2df562444579a2c33e98fc96ba6b41e0371ef;hp=7e3b1a9874c33b670c5b4b90652ed69ff3be5470;hpb=2af96fc83e36af5270b1181864855791ed38fbb8;p=helm.git diff --git a/helm/software/matita/contribs/TPTP/HEQ/HEN011-3.ma b/helm/software/matita/contribs/TPTP/HEQ/HEN011-3.ma index 7e3b1a987..d61a767ff 100644 --- a/helm/software/matita/contribs/TPTP/HEQ/HEN011-3.ma +++ b/helm/software/matita/contribs/TPTP/HEQ/HEN011-3.ma @@ -105,10 +105,10 @@ include "logic/equality.ma". (* -------------------------------------------------------------------------- *) theorem prove_commutativity: - ∀Univ:Set.∀X:Univ.∀Y:Univ.∀Z:Univ.∀a:Univ.∀b:Univ.∀c:Univ.∀d:Univ.∀divide:∀_:Univ.∀_:Univ.Univ.∀e:Univ.∀g:Univ.∀identity:Univ.∀less_equal:∀_:Univ.∀_:Univ.Prop.∀zero:Univ.∀H0:eq Univ (divide identity d) g.∀H1:eq Univ (divide identity c) e.∀H2:eq Univ (divide identity b) d.∀H3:eq Univ (divide identity a) c.∀H4:eq Univ (divide (divide identity a) (divide identity (divide identity b))) (divide (divide identity b) (divide identity (divide identity a))).∀H5:∀X:Univ.less_equal X identity.∀H6:∀X:Univ.∀Y:Univ.∀_:less_equal Y X.∀_:less_equal X Y.eq Univ X Y.∀H7:∀X:Univ.less_equal zero X.∀H8:∀X:Univ.∀Y:Univ.∀Z:Univ.less_equal (divide (divide X Z) (divide Y Z)) (divide (divide X Y) Z).∀H9:∀X:Univ.∀Y:Univ.less_equal (divide X Y) X.∀H10:∀X:Univ.∀Y:Univ.∀_:less_equal X Y.eq Univ (divide X Y) zero.∀H11:∀X:Univ.∀Y:Univ.∀_:less_equal X Y.eq Univ (divide X Y) zero.eq Univ (divide c g) (divide d e) + ∀Univ:Set.∀X:Univ.∀Y:Univ.∀Z:Univ.∀a:Univ.∀b:Univ.∀c:Univ.∀d:Univ.∀divide:∀_:Univ.∀_:Univ.Univ.∀e:Univ.∀g:Univ.∀identity:Univ.∀less_equal:∀_:Univ.∀_:Univ.Prop.∀zero:Univ.∀H0:eq Univ (divide identity d) g.∀H1:eq Univ (divide identity c) e.∀H2:eq Univ (divide identity b) d.∀H3:eq Univ (divide identity a) c.∀H4:eq Univ (divide (divide identity a) (divide identity (divide identity b))) (divide (divide identity b) (divide identity (divide identity a))).∀H5:∀X:Univ.less_equal X identity.∀H6:∀X:Univ.∀Y:Univ.∀_:less_equal Y X.∀_:less_equal X Y.eq Univ X Y.∀H7:∀X:Univ.less_equal zero X.∀H8:∀X:Univ.∀Y:Univ.∀Z:Univ.less_equal (divide (divide X Z) (divide Y Z)) (divide (divide X Y) Z).∀H9:∀X:Univ.∀Y:Univ.less_equal (divide X Y) X.∀H10:∀X:Univ.∀Y:Univ.∀_:eq Univ (divide X Y) zero.less_equal X Y.∀H11:∀X:Univ.∀Y:Univ.∀_:less_equal X Y.eq Univ (divide X Y) zero.eq Univ (divide c g) (divide d e) . intros. -autobatch paramodulation timeout=600; +autobatch depth=5 width=5 size=20 timeout=10; try assumption. print proofterm. qed.