Proof of Theorem cdleme0cq
Step | Hyp | Ref
| Expression |
1 | | cdleme0.u |
. . 3
⊢ 𝑈 = ((𝑃 ∨ 𝑄) ∧ 𝑊) |
2 | 1 | oveq2i 7181 |
. 2
⊢ (𝑄 ∨ 𝑈) = (𝑄 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)) |
3 | | simpll 767 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝐾 ∈ HL) |
4 | | simprrl 781 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝑄 ∈ 𝐴) |
5 | | hllat 37000 |
. . . . . 6
⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat) |
6 | 5 | ad2antrr 726 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝐾 ∈ Lat) |
7 | | eqid 2738 |
. . . . . . 7
⊢
(Base‘𝐾) =
(Base‘𝐾) |
8 | | cdleme0.a |
. . . . . . 7
⊢ 𝐴 = (Atoms‘𝐾) |
9 | 7, 8 | atbase 36926 |
. . . . . 6
⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ (Base‘𝐾)) |
10 | 9 | ad2antrl 728 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝑃 ∈ (Base‘𝐾)) |
11 | 7, 8 | atbase 36926 |
. . . . . 6
⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ (Base‘𝐾)) |
12 | 4, 11 | syl 17 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝑄 ∈ (Base‘𝐾)) |
13 | | cdleme0.j |
. . . . . 6
⊢ ∨ =
(join‘𝐾) |
14 | 7, 13 | latjcl 17777 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾)) → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾)) |
15 | 6, 10, 12, 14 | syl3anc 1372 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾)) |
16 | | cdleme0.h |
. . . . . 6
⊢ 𝐻 = (LHyp‘𝐾) |
17 | 7, 16 | lhpbase 37635 |
. . . . 5
⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾)) |
18 | 17 | ad2antlr 727 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝑊 ∈ (Base‘𝐾)) |
19 | | cdleme0.l |
. . . . . 6
⊢ ≤ =
(le‘𝐾) |
20 | 7, 19, 13 | latlej2 17787 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾)) → 𝑄 ≤ (𝑃 ∨ 𝑄)) |
21 | 6, 10, 12, 20 | syl3anc 1372 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝑄 ≤ (𝑃 ∨ 𝑄)) |
22 | | cdleme0.m |
. . . . 5
⊢ ∧ =
(meet‘𝐾) |
23 | 7, 19, 13, 22, 8 | atmod3i1 37501 |
. . . 4
⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ (𝑃 ∨ 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ 𝑄 ≤ (𝑃 ∨ 𝑄)) → (𝑄 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)) = ((𝑃 ∨ 𝑄) ∧ (𝑄 ∨ 𝑊))) |
24 | 3, 4, 15, 18, 21, 23 | syl131anc 1384 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝑄 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)) = ((𝑃 ∨ 𝑄) ∧ (𝑄 ∨ 𝑊))) |
25 | | eqid 2738 |
. . . . . 6
⊢
(1.‘𝐾) =
(1.‘𝐾) |
26 | 19, 13, 25, 8, 16 | lhpjat2 37658 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑄 ∨ 𝑊) = (1.‘𝐾)) |
27 | 26 | adantrl 716 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝑄 ∨ 𝑊) = (1.‘𝐾)) |
28 | 27 | oveq2d 7186 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → ((𝑃 ∨ 𝑄) ∧ (𝑄 ∨ 𝑊)) = ((𝑃 ∨ 𝑄) ∧ (1.‘𝐾))) |
29 | | hlol 36998 |
. . . . 5
⊢ (𝐾 ∈ HL → 𝐾 ∈ OL) |
30 | 29 | ad2antrr 726 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝐾 ∈ OL) |
31 | 7, 22, 25 | olm11 36864 |
. . . 4
⊢ ((𝐾 ∈ OL ∧ (𝑃 ∨ 𝑄) ∈ (Base‘𝐾)) → ((𝑃 ∨ 𝑄) ∧ (1.‘𝐾)) = (𝑃 ∨ 𝑄)) |
32 | 30, 15, 31 | syl2anc 587 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → ((𝑃 ∨ 𝑄) ∧ (1.‘𝐾)) = (𝑃 ∨ 𝑄)) |
33 | 24, 28, 32 | 3eqtrd 2777 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝑄 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)) = (𝑃 ∨ 𝑄)) |
34 | 2, 33 | syl5eq 2785 |
1
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝑄 ∨ 𝑈) = (𝑃 ∨ 𝑄)) |