Metamath Proof Explorer


Theorem cm2j

Description: A lattice element that commutes with two others also commutes with their join. Theorem 4.2 of Beran p. 49. (Contributed by NM, 15-Jun-2006) (New usage is discouraged.)

Ref Expression
Assertion cm2j ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B ∧ A 𝐶 ℋ C → A 𝐶 ℋ B ∨ ℋ C

Proof

Step Hyp Ref Expression
1 cmcm ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → A 𝐶 ℋ B ↔ B 𝐶 ℋ A
2 cmbr ⊢ B ∈ C ℋ ∧ A ∈ C ℋ → B 𝐶 ℋ A ↔ B = B ∩ A ∨ ℋ B ∩ ⊥ ⁡ A
3 2 ancoms ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → B 𝐶 ℋ A ↔ B = B ∩ A ∨ ℋ B ∩ ⊥ ⁡ A
4 1 3 bitrd ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → A 𝐶 ℋ B ↔ B = B ∩ A ∨ ℋ B ∩ ⊥ ⁡ A
5 4 biimpa ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ A 𝐶 ℋ B → B = B ∩ A ∨ ℋ B ∩ ⊥ ⁡ A
6 incom ⊢ B ∩ A = A ∩ B
7 incom ⊢ B ∩ ⊥ ⁡ A = ⊥ ⁡ A ∩ B
8 6 7 oveq12i ⊢ B ∩ A ∨ ℋ B ∩ ⊥ ⁡ A = A ∩ B ∨ ℋ ⊥ ⁡ A ∩ B
9 5 8 eqtrdi ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ A 𝐶 ℋ B → B = A ∩ B ∨ ℋ ⊥ ⁡ A ∩ B
10 9 3adantl3 ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B → B = A ∩ B ∨ ℋ ⊥ ⁡ A ∩ B
11 10 adantrr ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B ∧ A 𝐶 ℋ C → B = A ∩ B ∨ ℋ ⊥ ⁡ A ∩ B
12 cmcm ⊢ A ∈ C ℋ ∧ C ∈ C ℋ → A 𝐶 ℋ C ↔ C 𝐶 ℋ A
13 cmbr ⊢ C ∈ C ℋ ∧ A ∈ C ℋ → C 𝐶 ℋ A ↔ C = C ∩ A ∨ ℋ C ∩ ⊥ ⁡ A
14 13 ancoms ⊢ A ∈ C ℋ ∧ C ∈ C ℋ → C 𝐶 ℋ A ↔ C = C ∩ A ∨ ℋ C ∩ ⊥ ⁡ A
15 12 14 bitrd ⊢ A ∈ C ℋ ∧ C ∈ C ℋ → A 𝐶 ℋ C ↔ C = C ∩ A ∨ ℋ C ∩ ⊥ ⁡ A
16 15 biimpa ⊢ A ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ C → C = C ∩ A ∨ ℋ C ∩ ⊥ ⁡ A
17 incom ⊢ C ∩ A = A ∩ C
18 incom ⊢ C ∩ ⊥ ⁡ A = ⊥ ⁡ A ∩ C
19 17 18 oveq12i ⊢ C ∩ A ∨ ℋ C ∩ ⊥ ⁡ A = A ∩ C ∨ ℋ ⊥ ⁡ A ∩ C
20 16 19 eqtrdi ⊢ A ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ C → C = A ∩ C ∨ ℋ ⊥ ⁡ A ∩ C
21 20 3adantl2 ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ C → C = A ∩ C ∨ ℋ ⊥ ⁡ A ∩ C
22 21 adantrl ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B ∧ A 𝐶 ℋ C → C = A ∩ C ∨ ℋ ⊥ ⁡ A ∩ C
23 11 22 oveq12d ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B ∧ A 𝐶 ℋ C → B ∨ ℋ C = A ∩ B ∨ ℋ ⊥ ⁡ A ∩ B ∨ ℋ A ∩ C ∨ ℋ ⊥ ⁡ A ∩ C
24 chincl ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → A ∩ B ∈ C ℋ
25 choccl ⊢ A ∈ C ℋ → ⊥ ⁡ A ∈ C ℋ
26 chincl ⊢ ⊥ ⁡ A ∈ C ℋ ∧ B ∈ C ℋ → ⊥ ⁡ A ∩ B ∈ C ℋ
27 25 26 sylan ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → ⊥ ⁡ A ∩ B ∈ C ℋ
28 24 27 jca ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → A ∩ B ∈ C ℋ ∧ ⊥ ⁡ A ∩ B ∈ C ℋ
29 chincl ⊢ A ∈ C ℋ ∧ C ∈ C ℋ → A ∩ C ∈ C ℋ
30 chincl ⊢ ⊥ ⁡ A ∈ C ℋ ∧ C ∈ C ℋ → ⊥ ⁡ A ∩ C ∈ C ℋ
31 25 30 sylan ⊢ A ∈ C ℋ ∧ C ∈ C ℋ → ⊥ ⁡ A ∩ C ∈ C ℋ
32 29 31 jca ⊢ A ∈ C ℋ ∧ C ∈ C ℋ → A ∩ C ∈ C ℋ ∧ ⊥ ⁡ A ∩ C ∈ C ℋ
33 chj4 ⊢ A ∩ B ∈ C ℋ ∧ ⊥ ⁡ A ∩ B ∈ C ℋ ∧ A ∩ C ∈ C ℋ ∧ ⊥ ⁡ A ∩ C ∈ C ℋ → A ∩ B ∨ ℋ ⊥ ⁡ A ∩ B ∨ ℋ A ∩ C ∨ ℋ ⊥ ⁡ A ∩ C = A ∩ B ∨ ℋ A ∩ C ∨ ℋ ⊥ ⁡ A ∩ B ∨ ℋ ⊥ ⁡ A ∩ C
34 28 32 33 syl2an ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ A ∈ C ℋ ∧ C ∈ C ℋ → A ∩ B ∨ ℋ ⊥ ⁡ A ∩ B ∨ ℋ A ∩ C ∨ ℋ ⊥ ⁡ A ∩ C = A ∩ B ∨ ℋ A ∩ C ∨ ℋ ⊥ ⁡ A ∩ B ∨ ℋ ⊥ ⁡ A ∩ C
35 34 3impdi ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ → A ∩ B ∨ ℋ ⊥ ⁡ A ∩ B ∨ ℋ A ∩ C ∨ ℋ ⊥ ⁡ A ∩ C = A ∩ B ∨ ℋ A ∩ C ∨ ℋ ⊥ ⁡ A ∩ B ∨ ℋ ⊥ ⁡ A ∩ C
36 35 adantr ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B ∧ A 𝐶 ℋ C → A ∩ B ∨ ℋ ⊥ ⁡ A ∩ B ∨ ℋ A ∩ C ∨ ℋ ⊥ ⁡ A ∩ C = A ∩ B ∨ ℋ A ∩ C ∨ ℋ ⊥ ⁡ A ∩ B ∨ ℋ ⊥ ⁡ A ∩ C
37 fh1 ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B ∧ A 𝐶 ℋ C → A ∩ B ∨ ℋ C = A ∩ B ∨ ℋ A ∩ C
38 incom ⊢ A ∩ B ∨ ℋ C = B ∨ ℋ C ∩ A
39 37 38 eqtr3di ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B ∧ A 𝐶 ℋ C → A ∩ B ∨ ℋ A ∩ C = B ∨ ℋ C ∩ A
40 25 3anim1i ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ → ⊥ ⁡ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ
41 40 adantr ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B ∧ A 𝐶 ℋ C → ⊥ ⁡ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ
42 cmcm3 ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → A 𝐶 ℋ B ↔ ⊥ ⁡ A 𝐶 ℋ B
43 42 3adant3 ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ → A 𝐶 ℋ B ↔ ⊥ ⁡ A 𝐶 ℋ B
44 cmcm3 ⊢ A ∈ C ℋ ∧ C ∈ C ℋ → A 𝐶 ℋ C ↔ ⊥ ⁡ A 𝐶 ℋ C
45 44 3adant2 ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ → A 𝐶 ℋ C ↔ ⊥ ⁡ A 𝐶 ℋ C
46 43 45 anbi12d ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ → A 𝐶 ℋ B ∧ A 𝐶 ℋ C ↔ ⊥ ⁡ A 𝐶 ℋ B ∧ ⊥ ⁡ A 𝐶 ℋ C
47 46 biimpa ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B ∧ A 𝐶 ℋ C → ⊥ ⁡ A 𝐶 ℋ B ∧ ⊥ ⁡ A 𝐶 ℋ C
48 fh1 ⊢ ⊥ ⁡ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ ⊥ ⁡ A 𝐶 ℋ B ∧ ⊥ ⁡ A 𝐶 ℋ C → ⊥ ⁡ A ∩ B ∨ ℋ C = ⊥ ⁡ A ∩ B ∨ ℋ ⊥ ⁡ A ∩ C
49 41 47 48 syl2anc ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B ∧ A 𝐶 ℋ C → ⊥ ⁡ A ∩ B ∨ ℋ C = ⊥ ⁡ A ∩ B ∨ ℋ ⊥ ⁡ A ∩ C
50 incom ⊢ ⊥ ⁡ A ∩ B ∨ ℋ C = B ∨ ℋ C ∩ ⊥ ⁡ A
51 49 50 eqtr3di ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B ∧ A 𝐶 ℋ C → ⊥ ⁡ A ∩ B ∨ ℋ ⊥ ⁡ A ∩ C = B ∨ ℋ C ∩ ⊥ ⁡ A
52 39 51 oveq12d ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B ∧ A 𝐶 ℋ C → A ∩ B ∨ ℋ A ∩ C ∨ ℋ ⊥ ⁡ A ∩ B ∨ ℋ ⊥ ⁡ A ∩ C = B ∨ ℋ C ∩ A ∨ ℋ B ∨ ℋ C ∩ ⊥ ⁡ A
53 23 36 52 3eqtrd ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B ∧ A 𝐶 ℋ C → B ∨ ℋ C = B ∨ ℋ C ∩ A ∨ ℋ B ∨ ℋ C ∩ ⊥ ⁡ A
54 53 ex ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ → A 𝐶 ℋ B ∧ A 𝐶 ℋ C → B ∨ ℋ C = B ∨ ℋ C ∩ A ∨ ℋ B ∨ ℋ C ∩ ⊥ ⁡ A
55 chjcl ⊢ B ∈ C ℋ ∧ C ∈ C ℋ → B ∨ ℋ C ∈ C ℋ
56 cmcm ⊢ A ∈ C ℋ ∧ B ∨ ℋ C ∈ C ℋ → A 𝐶 ℋ B ∨ ℋ C ↔ B ∨ ℋ C 𝐶 ℋ A
57 cmbr ⊢ B ∨ ℋ C ∈ C ℋ ∧ A ∈ C ℋ → B ∨ ℋ C 𝐶 ℋ A ↔ B ∨ ℋ C = B ∨ ℋ C ∩ A ∨ ℋ B ∨ ℋ C ∩ ⊥ ⁡ A
58 57 ancoms ⊢ A ∈ C ℋ ∧ B ∨ ℋ C ∈ C ℋ → B ∨ ℋ C 𝐶 ℋ A ↔ B ∨ ℋ C = B ∨ ℋ C ∩ A ∨ ℋ B ∨ ℋ C ∩ ⊥ ⁡ A
59 56 58 bitrd ⊢ A ∈ C ℋ ∧ B ∨ ℋ C ∈ C ℋ → A 𝐶 ℋ B ∨ ℋ C ↔ B ∨ ℋ C = B ∨ ℋ C ∩ A ∨ ℋ B ∨ ℋ C ∩ ⊥ ⁡ A
60 55 59 sylan2 ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ → A 𝐶 ℋ B ∨ ℋ C ↔ B ∨ ℋ C = B ∨ ℋ C ∩ A ∨ ℋ B ∨ ℋ C ∩ ⊥ ⁡ A
61 60 3impb ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ → A 𝐶 ℋ B ∨ ℋ C ↔ B ∨ ℋ C = B ∨ ℋ C ∩ A ∨ ℋ B ∨ ℋ C ∩ ⊥ ⁡ A
62 54 61 sylibrd ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ → A 𝐶 ℋ B ∧ A 𝐶 ℋ C → A 𝐶 ℋ B ∨ ℋ C
63 62 imp ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ C ∈ C ℋ ∧ A 𝐶 ℋ B ∧ A 𝐶 ℋ C → A 𝐶 ℋ B ∨ ℋ C