X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fng_TPTP%2FLAT016-1.ma;h=b2df240e112cf1db2b01b01471364bdfa821184e;hb=ea5d9548f89f6e9570c6c37be2457bc5e1c59740;hp=9da1b618afce38e66cf76fce822db1ba85f0e083;hpb=11e495dda047bcdfa4267c06cad2d074fcffe3e3;p=helm.git diff --git a/helm/software/matita/contribs/ng_TPTP/LAT016-1.ma b/helm/software/matita/contribs/ng_TPTP/LAT016-1.ma index 9da1b618a..b2df240e1 100644 --- a/helm/software/matita/contribs/ng_TPTP/LAT016-1.ma +++ b/helm/software/matita/contribs/ng_TPTP/LAT016-1.ma @@ -4,7 +4,7 @@ include "logic/equality.ma". (* -------------------------------------------------------------------------- *) -(* File : LAT016-1 : TPTP v3.2.0. Bugfixed v2.2.1. *) +(* File : LAT016-1 : TPTP v3.7.0. Bugfixed v2.2.1. *) (* Domain : Lattice Theory (Ortholattices) *) @@ -56,7 +56,7 @@ include "logic/equality.ma". (* -------------------------------------------------------------------------- *) -(* File : LAT003-0 : TPTP v3.2.0. Bugfixed v2.2.1. *) +(* File : LAT003-0 : TPTP v3.7.0. Bugfixed v2.2.1. *) (* Domain : Lattice Theory (Ortholattices) *) @@ -78,7 +78,7 @@ include "logic/equality.ma". (* Syntax : Number of clauses : 10 ( 0 non-Horn; 10 unit; 0 RR) *) -(* Number of literals : 10 ( 10 equality) *) +(* Number of atoms : 10 ( 10 equality) *) (* Maximal clause size : 1 ( 1 average) *) @@ -104,7 +104,7 @@ include "logic/equality.ma". (* ----Denial of equation E1 *) ntheorem prove_e1: - ∀Univ:Type.∀X:Univ.∀Y:Univ.∀Z:Univ. + (∀Univ:Type.∀X:Univ.∀Y:Univ.∀Z:Univ. ∀a:Univ. ∀b:Univ. ∀complement:∀_:Univ.Univ. @@ -121,30 +121,31 @@ ntheorem prove_e1: ∀H6:∀X:Univ.∀Y:Univ.eq Univ (meet X Y) (meet Y X). ∀H7:∀X:Univ.∀Y:Univ.eq Univ (join X (meet X Y)) X. ∀H8:∀X:Univ.eq Univ (meet (complement X) X) n0. -∀H9:∀X:Univ.eq Univ (join (complement X) X) n1.eq Univ (join (complement (join (meet a (complement b)) (complement a))) (join (meet a (complement b)) (join (meet (complement a) (meet (join a (complement b)) (join a b))) (meet (complement a) (complement (meet (join a (complement b)) (join a b))))))) n1 +∀H9:∀X:Univ.eq Univ (join (complement X) X) n1.eq Univ (join (complement (join (meet a (complement b)) (complement a))) (join (meet a (complement b)) (join (meet (complement a) (meet (join a (complement b)) (join a b))) (meet (complement a) (complement (meet (join a (complement b)) (join a b))))))) n1) . -#Univ. -#X. -#Y. -#Z. -#a. -#b. -#complement. -#join. -#meet. -#n0. -#n1. -#H0. -#H1. -#H2. -#H3. -#H4. -#H5. -#H6. -#H7. -#H8. -#H9. -nauto by H0,H1,H2,H3,H4,H5,H6,H7,H8,H9; +#Univ ##. +#X ##. +#Y ##. +#Z ##. +#a ##. +#b ##. +#complement ##. +#join ##. +#meet ##. +#n0 ##. +#n1 ##. +#H0 ##. +#H1 ##. +#H2 ##. +#H3 ##. +#H4 ##. +#H5 ##. +#H6 ##. +#H7 ##. +#H8 ##. +#H9 ##. +nauto by H0,H1,H2,H3,H4,H5,H6,H7,H8,H9 ##; +ntry (nassumption) ##; nqed. (* -------------------------------------------------------------------------- *)