X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fng_TPTP%2FLAT012-1.ma;h=80f90acc3c380f5201c048fdd25d17ef55d712cc;hb=0639dda9142d1cf047b07e61fb557e8877aba4d8;hp=6bf4ffcab67db3da169b6269d307a44ce540ad9f;hpb=c40f28fe5bfa74fc1fcef986c03fc960793902a5;p=helm.git diff --git a/helm/software/matita/contribs/ng_TPTP/LAT012-1.ma b/helm/software/matita/contribs/ng_TPTP/LAT012-1.ma index 6bf4ffcab..80f90acc3 100644 --- a/helm/software/matita/contribs/ng_TPTP/LAT012-1.ma +++ b/helm/software/matita/contribs/ng_TPTP/LAT012-1.ma @@ -54,7 +54,7 @@ include "logic/equality.ma". (* ----Denial of conclusion: *) ntheorem prove_commutativity_of_meet: - ∀Univ:Type.∀X:Univ.∀Y:Univ.∀Z:Univ. + (∀Univ:Type.∀X:Univ.∀Y:Univ.∀Z:Univ. ∀a:Univ. ∀b:Univ. ∀join:∀_:Univ.∀_:Univ.Univ. @@ -62,21 +62,21 @@ ntheorem prove_commutativity_of_meet: ∀H0:∀X:Univ.∀Y:Univ.∀Z:Univ.eq Univ (meet (meet (join X Y) (join Y Z)) Y) Y. ∀H1:∀X:Univ.∀Y:Univ.∀Z:Univ.eq Univ (join (join (meet X Y) (meet Y Z)) Y) Y. ∀H2:∀X:Univ.∀Y:Univ.∀Z:Univ.eq Univ (meet X (join Y (join X Z))) X. -∀H3:∀X:Univ.∀Y:Univ.∀Z:Univ.eq Univ (join X (meet Y (meet X Z))) X.eq Univ (meet b a) (meet a b) +∀H3:∀X:Univ.∀Y:Univ.∀Z:Univ.eq Univ (join X (meet Y (meet X Z))) X.eq Univ (meet b a) (meet a b)) . -#Univ. -#X. -#Y. -#Z. -#a. -#b. -#join. -#meet. -#H0. -#H1. -#H2. -#H3. -nauto by H0,H1,H2,H3; +#Univ ##. +#X ##. +#Y ##. +#Z ##. +#a ##. +#b ##. +#join ##. +#meet ##. +#H0 ##. +#H1 ##. +#H2 ##. +#H3 ##. +nauto by H0,H1,H2,H3 ##; nqed. (* -------------------------------------------------------------------------- *)