X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fng_TPTP%2FRNG036-7.ma;fp=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fng_TPTP%2FRNG036-7.ma;h=cb3a5d1a58a65ee51201feb400c06699ca6f7c53;hb=0639dda9142d1cf047b07e61fb557e8877aba4d8;hp=96e40b2f02c524fb1c18a86b494623cf7b080045;hpb=c40f28fe5bfa74fc1fcef986c03fc960793902a5;p=helm.git diff --git a/helm/software/matita/contribs/ng_TPTP/RNG036-7.ma b/helm/software/matita/contribs/ng_TPTP/RNG036-7.ma index 96e40b2f0..cb3a5d1a5 100644 --- a/helm/software/matita/contribs/ng_TPTP/RNG036-7.ma +++ b/helm/software/matita/contribs/ng_TPTP/RNG036-7.ma @@ -104,7 +104,7 @@ include "logic/equality.ma". (* -------------------------------------------------------------------------- *) ntheorem prove_commutativity: - ∀Univ:Type.∀X:Univ.∀Y:Univ.∀Z:Univ. + (∀Univ:Type.∀X:Univ.∀Y:Univ.∀Z:Univ. ∀a:Univ. ∀add:∀_:Univ.∀_:Univ.Univ. ∀additive_identity:Univ. @@ -122,31 +122,31 @@ ntheorem prove_commutativity: ∀H7:∀X:Univ.eq Univ (add X (additive_inverse X)) additive_identity. ∀H8:∀X:Univ.eq Univ (add (additive_inverse X) X) additive_identity. ∀H9:∀X:Univ.eq Univ (add X additive_identity) X. -∀H10:∀X:Univ.eq Univ (add additive_identity X) X.eq Univ (multiply b a) c +∀H10:∀X:Univ.eq Univ (add additive_identity X) X.eq Univ (multiply b a) c) . -#Univ. -#X. -#Y. -#Z. -#a. -#add. -#additive_identity. -#additive_inverse. -#b. -#c. -#multiply. -#H0. -#H1. -#H2. -#H3. -#H4. -#H5. -#H6. -#H7. -#H8. -#H9. -#H10. -nauto by H0,H1,H2,H3,H4,H5,H6,H7,H8,H9,H10; +#Univ ##. +#X ##. +#Y ##. +#Z ##. +#a ##. +#add ##. +#additive_identity ##. +#additive_inverse ##. +#b ##. +#c ##. +#multiply ##. +#H0 ##. +#H1 ##. +#H2 ##. +#H3 ##. +#H4 ##. +#H5 ##. +#H6 ##. +#H7 ##. +#H8 ##. +#H9 ##. +#H10 ##. +nauto by H0,H1,H2,H3,H4,H5,H6,H7,H8,H9,H10 ##; nqed. (* -------------------------------------------------------------------------- *)