Theorem cmtbr2N 37928

Description: Alternate definition of the commutes relation. Remark in [Kalmbach] p. 23. (cmbr2i 30712 analog.) (Contributed by NM, 8-Nov-2011.) (New usage is discouraged.)

Hypotheses

Ref	Expression
cmtbr2.b	⊢ 𝐵 = (Base‘𝐾)
cmtbr2.j	⊢ ∨ = (join‘𝐾)
cmtbr2.m	⊢ ∧ = (meet‘𝐾)
cmtbr2.o	⊢ ⊥ = (oc‘𝐾)
cmtbr2.c	⊢ 𝐶 = (cm‘𝐾)

Assertion

Ref	Expression
cmtbr2N	⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 ↔ 𝑋 = ((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌)))))

Proof of Theorem cmtbr2N

Step	Hyp	Ref	Expression
1		cmtbr2.b	. . 3 ⊢ 𝐵 = (Base‘𝐾)
2		cmtbr2.o	. . 3 ⊢ ⊥ = (oc‘𝐾)
3		cmtbr2.c	. . 3 ⊢ 𝐶 = (cm‘𝐾)
4	1, 2, 3	cmt4N 37927	. 2 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 ↔ ( ⊥ ‘𝑋)𝐶( ⊥ ‘𝑌)))
5		simp1 1136	. . 3 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝐾 ∈ OML)
6		omlop 37916	. . . . 5 ⊢ (𝐾 ∈ OML → 𝐾 ∈ OP)
7	6	3ad2ant1 1133	. . . 4 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝐾 ∈ OP)
8		simp2 1137	. . . 4 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝑋 ∈ 𝐵)
9	1, 2	opoccl 37869	. . . 4 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵) → ( ⊥ ‘𝑋) ∈ 𝐵)
10	7, 8, 9	syl2anc 584	. . 3 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ( ⊥ ‘𝑋) ∈ 𝐵)
11		simp3 1138	. . . 4 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝑌 ∈ 𝐵)
12	1, 2	opoccl 37869	. . . 4 ⊢ ((𝐾 ∈ OP ∧ 𝑌 ∈ 𝐵) → ( ⊥ ‘𝑌) ∈ 𝐵)
13	7, 11, 12	syl2anc 584	. . 3 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ( ⊥ ‘𝑌) ∈ 𝐵)
14		cmtbr2.j	. . . 4 ⊢ ∨ = (join‘𝐾)
15		cmtbr2.m	. . . 4 ⊢ ∧ = (meet‘𝐾)
16	1, 14, 15, 2, 3	cmtvalN 37886	. . 3 ⊢ ((𝐾 ∈ OML ∧ ( ⊥ ‘𝑋) ∈ 𝐵 ∧ ( ⊥ ‘𝑌) ∈ 𝐵) → (( ⊥ ‘𝑋)𝐶( ⊥ ‘𝑌) ↔ ( ⊥ ‘𝑋) = ((( ⊥ ‘𝑋) ∧ ( ⊥ ‘𝑌)) ∨ (( ⊥ ‘𝑋) ∧ ( ⊥ ‘( ⊥ ‘𝑌))))))
17	5, 10, 13, 16	syl3anc 1371	. 2 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (( ⊥ ‘𝑋)𝐶( ⊥ ‘𝑌) ↔ ( ⊥ ‘𝑋) = ((( ⊥ ‘𝑋) ∧ ( ⊥ ‘𝑌)) ∨ (( ⊥ ‘𝑋) ∧ ( ⊥ ‘( ⊥ ‘𝑌))))))
18		eqcom 2738	. . . 4 ⊢ (𝑋 = ((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌))) ↔ ((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌))) = 𝑋)
19	18	a1i 11	. . 3 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 = ((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌))) ↔ ((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌))) = 𝑋))
20		omllat 37917	. . . . . 6 ⊢ (𝐾 ∈ OML → 𝐾 ∈ Lat)
21	20	3ad2ant1 1133	. . . . 5 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝐾 ∈ Lat)
22	1, 14	latjcl 18374	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ∨ 𝑌) ∈ 𝐵)
23	20, 22	syl3an1 1163	. . . . 5 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ∨ 𝑌) ∈ 𝐵)
24	1, 14	latjcl 18374	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ ( ⊥ ‘𝑌) ∈ 𝐵) → (𝑋 ∨ ( ⊥ ‘𝑌)) ∈ 𝐵)
25	21, 8, 13, 24	syl3anc 1371	. . . . 5 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ∨ ( ⊥ ‘𝑌)) ∈ 𝐵)
26	1, 15	latmcl 18375	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑋 ∨ 𝑌) ∈ 𝐵 ∧ (𝑋 ∨ ( ⊥ ‘𝑌)) ∈ 𝐵) → ((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌))) ∈ 𝐵)
27	21, 23, 25, 26	syl3anc 1371	. . . 4 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌))) ∈ 𝐵)
28	1, 2	opcon3b 37871	. . . 4 ⊢ ((𝐾 ∈ OP ∧ ((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌))) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → (((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌))) = 𝑋 ↔ ( ⊥ ‘𝑋) = ( ⊥ ‘((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌))))))
29	7, 27, 8, 28	syl3anc 1371	. . 3 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌))) = 𝑋 ↔ ( ⊥ ‘𝑋) = ( ⊥ ‘((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌))))))
30		omlol 37915	. . . . . . 7 ⊢ (𝐾 ∈ OML → 𝐾 ∈ OL)
31	30	3ad2ant1 1133	. . . . . 6 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝐾 ∈ OL)
32	1, 14, 15, 2	oldmm1 37892	. . . . . 6 ⊢ ((𝐾 ∈ OL ∧ (𝑋 ∨ 𝑌) ∈ 𝐵 ∧ (𝑋 ∨ ( ⊥ ‘𝑌)) ∈ 𝐵) → ( ⊥ ‘((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌)))) = (( ⊥ ‘(𝑋 ∨ 𝑌)) ∨ ( ⊥ ‘(𝑋 ∨ ( ⊥ ‘𝑌)))))
33	31, 23, 25, 32	syl3anc 1371	. . . . 5 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ( ⊥ ‘((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌)))) = (( ⊥ ‘(𝑋 ∨ 𝑌)) ∨ ( ⊥ ‘(𝑋 ∨ ( ⊥ ‘𝑌)))))
34	1, 14, 15, 2	oldmj1 37896	. . . . . . 7 ⊢ ((𝐾 ∈ OL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ( ⊥ ‘(𝑋 ∨ 𝑌)) = (( ⊥ ‘𝑋) ∧ ( ⊥ ‘𝑌)))
35	30, 34	syl3an1 1163	. . . . . 6 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ( ⊥ ‘(𝑋 ∨ 𝑌)) = (( ⊥ ‘𝑋) ∧ ( ⊥ ‘𝑌)))
36	1, 14, 15, 2	oldmj1 37896	. . . . . . 7 ⊢ ((𝐾 ∈ OL ∧ 𝑋 ∈ 𝐵 ∧ ( ⊥ ‘𝑌) ∈ 𝐵) → ( ⊥ ‘(𝑋 ∨ ( ⊥ ‘𝑌))) = (( ⊥ ‘𝑋) ∧ ( ⊥ ‘( ⊥ ‘𝑌))))
37	31, 8, 13, 36	syl3anc 1371	. . . . . 6 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ( ⊥ ‘(𝑋 ∨ ( ⊥ ‘𝑌))) = (( ⊥ ‘𝑋) ∧ ( ⊥ ‘( ⊥ ‘𝑌))))
38	35, 37	oveq12d 7411	. . . . 5 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (( ⊥ ‘(𝑋 ∨ 𝑌)) ∨ ( ⊥ ‘(𝑋 ∨ ( ⊥ ‘𝑌)))) = ((( ⊥ ‘𝑋) ∧ ( ⊥ ‘𝑌)) ∨ (( ⊥ ‘𝑋) ∧ ( ⊥ ‘( ⊥ ‘𝑌)))))
39	33, 38	eqtrd 2771	. . . 4 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ( ⊥ ‘((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌)))) = ((( ⊥ ‘𝑋) ∧ ( ⊥ ‘𝑌)) ∨ (( ⊥ ‘𝑋) ∧ ( ⊥ ‘( ⊥ ‘𝑌)))))
40	39	eqeq2d 2742	. . 3 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (( ⊥ ‘𝑋) = ( ⊥ ‘((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌)))) ↔ ( ⊥ ‘𝑋) = ((( ⊥ ‘𝑋) ∧ ( ⊥ ‘𝑌)) ∨ (( ⊥ ‘𝑋) ∧ ( ⊥ ‘( ⊥ ‘𝑌))))))
41	19, 29, 40	3bitrrd 305	. 2 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (( ⊥ ‘𝑋) = ((( ⊥ ‘𝑋) ∧ ( ⊥ ‘𝑌)) ∨ (( ⊥ ‘𝑋) ∧ ( ⊥ ‘( ⊥ ‘𝑌)))) ↔ 𝑋 = ((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌)))))
42	4, 17, 41	3bitrd 304	1 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 ↔ 𝑋 = ((𝑋 ∨ 𝑌) ∧ (𝑋 ∨ ( ⊥ ‘𝑌)))))

Syntax hints:   → wi 4   ↔ wb 205   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106   class class class wbr 5141  ‘cfv 6532  (class class class)co 7393  Basecbs 17126  occoc 17187  joincjn 18246  meetcmee 18247  Latclat 18366  OPcops 37847  cmccmtN 37848  OLcol 37849  OMLcoml 37850

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2702  ax-rep 5278  ax-sep 5292  ax-nul 5299  ax-pow 5356  ax-pr 5420  ax-un 7708

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-ral 3061  df-rex 3070  df-rmo 3375  df-reu 3376  df-rab 3432  df-v 3475  df-sbc 3774  df-csb 3890  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-nul 4319  df-if 4523  df-pw 4598  df-sn 4623  df-pr 4625  df-op 4629  df-uni 4902  df-iun 4992  df-br 5142  df-opab 5204  df-mpt 5225  df-id 5567  df-xp 5675  df-rel 5676  df-cnv 5677  df-co 5678  df-dm 5679  df-rn 5680  df-res 5681  df-ima 5682  df-iota 6484  df-fun 6534  df-fn 6535  df-f 6536  df-f1 6537  df-fo 6538  df-f1o 6539  df-fv 6540  df-riota 7349  df-ov 7396  df-oprab 7397  df-proset 18230  df-poset 18248  df-lub 18281  df-glb 18282  df-join 18283  df-meet 18284  df-lat 18367  df-oposet 37851  df-cmtN 37852  df-ol 37853  df-oml 37854

This theorem is referenced by:  cmtbr3N  37929