X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fng_TPTP%2FLAT074-1.ma;h=3873afe9701a15ae40c48caba67c6886a6e373b9;hb=e880d6eab5e1700f4a625ddcd7d0fa8f0cce2dcc;hp=cad65bd027a69e5c7e57d27e8f5dbde1eeb7b4aa;hpb=11e495dda047bcdfa4267c06cad2d074fcffe3e3;p=helm.git diff --git a/helm/software/matita/contribs/ng_TPTP/LAT074-1.ma b/helm/software/matita/contribs/ng_TPTP/LAT074-1.ma index cad65bd02..3873afe97 100644 --- a/helm/software/matita/contribs/ng_TPTP/LAT074-1.ma +++ b/helm/software/matita/contribs/ng_TPTP/LAT074-1.ma @@ -4,7 +4,7 @@ include "logic/equality.ma". (* -------------------------------------------------------------------------- *) -(* File : LAT074-1 : TPTP v3.2.0. Released v2.6.0. *) +(* File : LAT074-1 : TPTP v3.7.0. Released v2.6.0. *) (* Domain : Lattice Theory (Ortholattices) *) @@ -50,24 +50,25 @@ include "logic/equality.ma". (* ----Denial of Sheffer stroke associativity *) ntheorem associativity: - ∀Univ:Type.∀A:Univ.∀B:Univ.∀C:Univ.∀D:Univ. + (∀Univ:Type.∀A:Univ.∀B:Univ.∀C:Univ.∀D:Univ. ∀a:Univ. ∀b:Univ. ∀c:Univ. ∀f:∀_:Univ.∀_:Univ.Univ. -∀H0:∀A:Univ.∀B:Univ.∀C:Univ.∀D:Univ.eq Univ (f (f B A) (f (f (f A A) C) (f (f (f (f (f A B) C) C) A) (f A D)))) A.eq Univ (f a (f (f b c) (f b c))) (f c (f (f b a) (f b a))) +∀H0:∀A:Univ.∀B:Univ.∀C:Univ.∀D:Univ.eq Univ (f (f B A) (f (f (f A A) C) (f (f (f (f (f A B) C) C) A) (f A D)))) A.eq Univ (f a (f (f b c) (f b c))) (f c (f (f b a) (f b a)))) . -#Univ. -#A. -#B. -#C. -#D. -#a. -#b. -#c. -#f. -#H0. -nauto by H0; +#Univ ##. +#A ##. +#B ##. +#C ##. +#D ##. +#a ##. +#b ##. +#c ##. +#f ##. +#H0 ##. +nauto by H0 ##; +ntry (nassumption) ##; nqed. (* -------------------------------------------------------------------------- *)