X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fng_TPTP%2FLAT076-1.ma;h=44cb2c26efe74eb2d3a9dd7e94c8dc5b3d02b854;hb=e880d6eab5e1700f4a625ddcd7d0fa8f0cce2dcc;hp=bb9b8b9f74ca20c8911ceecb0c11f281cc8e2426;hpb=11e495dda047bcdfa4267c06cad2d074fcffe3e3;p=helm.git diff --git a/helm/software/matita/contribs/ng_TPTP/LAT076-1.ma b/helm/software/matita/contribs/ng_TPTP/LAT076-1.ma index bb9b8b9f7..44cb2c26e 100644 --- a/helm/software/matita/contribs/ng_TPTP/LAT076-1.ma +++ b/helm/software/matita/contribs/ng_TPTP/LAT076-1.ma @@ -4,7 +4,7 @@ include "logic/equality.ma". (* -------------------------------------------------------------------------- *) -(* File : LAT076-1 : TPTP v3.2.0. Released v2.6.0. *) +(* File : LAT076-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 (f (f B A) (f C A)) D) (f A (f (f (f (f (f (f B B) A) C) C) A) B))) 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 (f (f B A) (f C A)) D) (f A (f (f (f (f (f (f B B) A) C) C) A) B))) 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. (* -------------------------------------------------------------------------- *)