Theorem latmassOLD 39247

Description: Ortholattice meet is associative. (This can also be proved for lattices with a longer proof.) (inass 4203 analog.) (Contributed by NM, 7-Nov-2011.) (Proof modification is discouraged.) (New usage is discouraged.)

Hypotheses

Ref	Expression
olmass.b	⊢ 𝐵 = (Base‘𝐾)
olmass.m	⊢ ∧ = (meet‘𝐾)

Assertion

Ref	Expression
latmassOLD	⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((𝑋 ∧ 𝑌) ∧ 𝑍) = (𝑋 ∧ (𝑌 ∧ 𝑍)))

Proof of Theorem latmassOLD

Step	Hyp	Ref	Expression
1		simpl 482	. . . 4 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝐾 ∈ OL)
2		ollat 39231	. . . . . 6 ⊢ (𝐾 ∈ OL → 𝐾 ∈ Lat)
3	2	adantr 480	. . . . 5 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝐾 ∈ Lat)
4		olop 39232	. . . . . . 7 ⊢ (𝐾 ∈ OL → 𝐾 ∈ OP)
5	4	adantr 480	. . . . . 6 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝐾 ∈ OP)
6		simpr1 1195	. . . . . 6 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑋 ∈ 𝐵)
7		olmass.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐾)
8		eqid 2735	. . . . . . 7 ⊢ (oc‘𝐾) = (oc‘𝐾)
9	7, 8	opoccl 39212	. . . . . 6 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵) → ((oc‘𝐾)‘𝑋) ∈ 𝐵)
10	5, 6, 9	syl2anc 584	. . . . 5 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((oc‘𝐾)‘𝑋) ∈ 𝐵)
11		simpr2 1196	. . . . . 6 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑌 ∈ 𝐵)
12	7, 8	opoccl 39212	. . . . . 6 ⊢ ((𝐾 ∈ OP ∧ 𝑌 ∈ 𝐵) → ((oc‘𝐾)‘𝑌) ∈ 𝐵)
13	5, 11, 12	syl2anc 584	. . . . 5 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((oc‘𝐾)‘𝑌) ∈ 𝐵)
14		eqid 2735	. . . . . 6 ⊢ (join‘𝐾) = (join‘𝐾)
15	7, 14	latjcl 18449	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ ((oc‘𝐾)‘𝑋) ∈ 𝐵 ∧ ((oc‘𝐾)‘𝑌) ∈ 𝐵) → (((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑌)) ∈ 𝐵)
16	3, 10, 13, 15	syl3anc 1373	. . . 4 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑌)) ∈ 𝐵)
17		simpr3 1197	. . . 4 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑍 ∈ 𝐵)
18		olmass.m	. . . . 5 ⊢ ∧ = (meet‘𝐾)
19	7, 14, 18, 8	oldmj3 39241	. . . 4 ⊢ ((𝐾 ∈ OL ∧ (((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑌)) ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) → ((oc‘𝐾)‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑌))(join‘𝐾)((oc‘𝐾)‘𝑍))) = (((oc‘𝐾)‘(((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑌))) ∧ 𝑍))
20	1, 16, 17, 19	syl3anc 1373	. . 3 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((oc‘𝐾)‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑌))(join‘𝐾)((oc‘𝐾)‘𝑍))) = (((oc‘𝐾)‘(((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑌))) ∧ 𝑍))
21	7, 8	opoccl 39212	. . . . . 6 ⊢ ((𝐾 ∈ OP ∧ 𝑍 ∈ 𝐵) → ((oc‘𝐾)‘𝑍) ∈ 𝐵)
22	5, 17, 21	syl2anc 584	. . . . 5 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((oc‘𝐾)‘𝑍) ∈ 𝐵)
23	7, 14	latjass 18493	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (((oc‘𝐾)‘𝑋) ∈ 𝐵 ∧ ((oc‘𝐾)‘𝑌) ∈ 𝐵 ∧ ((oc‘𝐾)‘𝑍) ∈ 𝐵)) → ((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑌))(join‘𝐾)((oc‘𝐾)‘𝑍)) = (((oc‘𝐾)‘𝑋)(join‘𝐾)(((oc‘𝐾)‘𝑌)(join‘𝐾)((oc‘𝐾)‘𝑍))))
24	3, 10, 13, 22, 23	syl13anc 1374	. . . 4 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑌))(join‘𝐾)((oc‘𝐾)‘𝑍)) = (((oc‘𝐾)‘𝑋)(join‘𝐾)(((oc‘𝐾)‘𝑌)(join‘𝐾)((oc‘𝐾)‘𝑍))))
25	24	fveq2d 6880	. . 3 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((oc‘𝐾)‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑌))(join‘𝐾)((oc‘𝐾)‘𝑍))) = ((oc‘𝐾)‘(((oc‘𝐾)‘𝑋)(join‘𝐾)(((oc‘𝐾)‘𝑌)(join‘𝐾)((oc‘𝐾)‘𝑍)))))
26	7, 14, 18, 8	oldmj4 39242	. . . . 5 ⊢ ((𝐾 ∈ OL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((oc‘𝐾)‘(((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑌))) = (𝑋 ∧ 𝑌))
27	26	3adant3r3 1185	. . . 4 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((oc‘𝐾)‘(((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑌))) = (𝑋 ∧ 𝑌))
28	27	oveq1d 7420	. . 3 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (((oc‘𝐾)‘(((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑌))) ∧ 𝑍) = ((𝑋 ∧ 𝑌) ∧ 𝑍))
29	20, 25, 28	3eqtr3rd 2779	. 2 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((𝑋 ∧ 𝑌) ∧ 𝑍) = ((oc‘𝐾)‘(((oc‘𝐾)‘𝑋)(join‘𝐾)(((oc‘𝐾)‘𝑌)(join‘𝐾)((oc‘𝐾)‘𝑍)))))
30	7, 14	latjcl 18449	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ ((oc‘𝐾)‘𝑌) ∈ 𝐵 ∧ ((oc‘𝐾)‘𝑍) ∈ 𝐵) → (((oc‘𝐾)‘𝑌)(join‘𝐾)((oc‘𝐾)‘𝑍)) ∈ 𝐵)
31	3, 13, 22, 30	syl3anc 1373	. . 3 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (((oc‘𝐾)‘𝑌)(join‘𝐾)((oc‘𝐾)‘𝑍)) ∈ 𝐵)
32	7, 14, 18, 8	oldmj2 39240	. . 3 ⊢ ((𝐾 ∈ OL ∧ 𝑋 ∈ 𝐵 ∧ (((oc‘𝐾)‘𝑌)(join‘𝐾)((oc‘𝐾)‘𝑍)) ∈ 𝐵) → ((oc‘𝐾)‘(((oc‘𝐾)‘𝑋)(join‘𝐾)(((oc‘𝐾)‘𝑌)(join‘𝐾)((oc‘𝐾)‘𝑍)))) = (𝑋 ∧ ((oc‘𝐾)‘(((oc‘𝐾)‘𝑌)(join‘𝐾)((oc‘𝐾)‘𝑍)))))
33	1, 6, 31, 32	syl3anc 1373	. 2 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((oc‘𝐾)‘(((oc‘𝐾)‘𝑋)(join‘𝐾)(((oc‘𝐾)‘𝑌)(join‘𝐾)((oc‘𝐾)‘𝑍)))) = (𝑋 ∧ ((oc‘𝐾)‘(((oc‘𝐾)‘𝑌)(join‘𝐾)((oc‘𝐾)‘𝑍)))))
34	7, 14, 18, 8	oldmj4 39242	. . . 4 ⊢ ((𝐾 ∈ OL ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) → ((oc‘𝐾)‘(((oc‘𝐾)‘𝑌)(join‘𝐾)((oc‘𝐾)‘𝑍))) = (𝑌 ∧ 𝑍))
35	34	3adant3r1 1183	. . 3 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((oc‘𝐾)‘(((oc‘𝐾)‘𝑌)(join‘𝐾)((oc‘𝐾)‘𝑍))) = (𝑌 ∧ 𝑍))
36	35	oveq2d 7421	. 2 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (𝑋 ∧ ((oc‘𝐾)‘(((oc‘𝐾)‘𝑌)(join‘𝐾)((oc‘𝐾)‘𝑍)))) = (𝑋 ∧ (𝑌 ∧ 𝑍)))
37	29, 33, 36	3eqtrd 2774	1 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((𝑋 ∧ 𝑌) ∧ 𝑍) = (𝑋 ∧ (𝑌 ∧ 𝑍)))

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2108  ‘cfv 6531  (class class class)co 7405  Basecbs 17228  occoc 17279  joincjn 18323  meetcmee 18324  Latclat 18441  OPcops 39190  OLcol 39192

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-rep 5249  ax-sep 5266  ax-nul 5276  ax-pow 5335  ax-pr 5402  ax-un 7729

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2809  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3061  df-rmo 3359  df-reu 3360  df-rab 3416  df-v 3461  df-sbc 3766  df-csb 3875  df-dif 3929  df-un 3931  df-in 3933  df-ss 3943  df-nul 4309  df-if 4501  df-pw 4577  df-sn 4602  df-pr 4604  df-op 4608  df-uni 4884  df-iun 4969  df-br 5120  df-opab 5182  df-mpt 5202  df-id 5548  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-iota 6484  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-riota 7362  df-ov 7408  df-oprab 7409  df-proset 18306  df-poset 18325  df-lub 18356  df-glb 18357  df-join 18358  df-meet 18359  df-lat 18442  df-oposet 39194  df-ol 39196

This theorem is referenced by:  latm12  39248  latm32  39249  latmrot  39250  latm4  39251  cmtcomlemN  39266  cmtbr3N  39272  omlfh1N  39276  dalawlem2  39891  dalawlem7  39896  dalawlem11  39900  dalawlem12  39901  lhp2at0  40051  cdleme20d  40331  cdleme23b  40369  cdlemh2  40835  dia2dimlem2  41084  dihmeetbclemN  41323