Proof of Theorem trljat1
Step | Hyp | Ref
| Expression |
1 | | trljat.l |
. . . 4
⊢ ≤ =
(le‘𝐾) |
2 | | trljat.j |
. . . 4
⊢ ∨ =
(join‘𝐾) |
3 | | eqid 2610 |
. . . 4
⊢
(meet‘𝐾) =
(meet‘𝐾) |
4 | | trljat.a |
. . . 4
⊢ 𝐴 = (Atoms‘𝐾) |
5 | | trljat.h |
. . . 4
⊢ 𝐻 = (LHyp‘𝐾) |
6 | | trljat.t |
. . . 4
⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊) |
7 | | trljat.r |
. . . 4
⊢ 𝑅 = ((trL‘𝐾)‘𝑊) |
8 | 1, 2, 3, 4, 5, 6, 7 | trlval2 34468 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘𝐹) = ((𝑃 ∨ (𝐹‘𝑃))(meet‘𝐾)𝑊)) |
9 | 8 | oveq1d 6564 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑅‘𝐹) ∨ 𝑃) = (((𝑃 ∨ (𝐹‘𝑃))(meet‘𝐾)𝑊) ∨ 𝑃)) |
10 | | simp1l 1078 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐾 ∈ HL) |
11 | | hllat 33668 |
. . . 4
⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat) |
12 | 10, 11 | syl 17 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐾 ∈ Lat) |
13 | | simp3l 1082 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑃 ∈ 𝐴) |
14 | | eqid 2610 |
. . . . 5
⊢
(Base‘𝐾) =
(Base‘𝐾) |
15 | 14, 4 | atbase 33594 |
. . . 4
⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ (Base‘𝐾)) |
16 | 13, 15 | syl 17 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑃 ∈ (Base‘𝐾)) |
17 | 14, 5, 6, 7 | trlcl 34469 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝑅‘𝐹) ∈ (Base‘𝐾)) |
18 | 17 | 3adant3 1074 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘𝐹) ∈ (Base‘𝐾)) |
19 | 14, 2 | latjcom 16882 |
. . 3
⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ (𝑅‘𝐹) ∈ (Base‘𝐾)) → (𝑃 ∨ (𝑅‘𝐹)) = ((𝑅‘𝐹) ∨ 𝑃)) |
20 | 12, 16, 18, 19 | syl3anc 1318 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑃 ∨ (𝑅‘𝐹)) = ((𝑅‘𝐹) ∨ 𝑃)) |
21 | 14, 5, 6 | ltrncl 34429 |
. . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝑃 ∈ (Base‘𝐾)) → (𝐹‘𝑃) ∈ (Base‘𝐾)) |
22 | 16, 21 | syld3an3 1363 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐹‘𝑃) ∈ (Base‘𝐾)) |
23 | 14, 2 | latjcl 16874 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ (𝐹‘𝑃) ∈ (Base‘𝐾)) → (𝑃 ∨ (𝐹‘𝑃)) ∈ (Base‘𝐾)) |
24 | 12, 16, 22, 23 | syl3anc 1318 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑃 ∨ (𝐹‘𝑃)) ∈ (Base‘𝐾)) |
25 | | simp1r 1079 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑊 ∈ 𝐻) |
26 | 14, 5 | lhpbase 34302 |
. . . . 5
⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾)) |
27 | 25, 26 | syl 17 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑊 ∈ (Base‘𝐾)) |
28 | 14, 1, 2 | latlej1 16883 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ (𝐹‘𝑃) ∈ (Base‘𝐾)) → 𝑃 ≤ (𝑃 ∨ (𝐹‘𝑃))) |
29 | 12, 16, 22, 28 | syl3anc 1318 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑃 ≤ (𝑃 ∨ (𝐹‘𝑃))) |
30 | 14, 1, 2, 3, 4 | atmod2i1 34165 |
. . . 4
⊢ ((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ (𝑃 ∨ (𝐹‘𝑃)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ 𝑃 ≤ (𝑃 ∨ (𝐹‘𝑃))) → (((𝑃 ∨ (𝐹‘𝑃))(meet‘𝐾)𝑊) ∨ 𝑃) = ((𝑃 ∨ (𝐹‘𝑃))(meet‘𝐾)(𝑊 ∨ 𝑃))) |
31 | 10, 13, 24, 27, 29, 30 | syl131anc 1331 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝑃 ∨ (𝐹‘𝑃))(meet‘𝐾)𝑊) ∨ 𝑃) = ((𝑃 ∨ (𝐹‘𝑃))(meet‘𝐾)(𝑊 ∨ 𝑃))) |
32 | | eqid 2610 |
. . . . . 6
⊢
(1.‘𝐾) =
(1.‘𝐾) |
33 | 1, 2, 32, 4, 5 | lhpjat1 34324 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑊 ∨ 𝑃) = (1.‘𝐾)) |
34 | 33 | 3adant2 1073 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑊 ∨ 𝑃) = (1.‘𝐾)) |
35 | 34 | oveq2d 6565 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑃 ∨ (𝐹‘𝑃))(meet‘𝐾)(𝑊 ∨ 𝑃)) = ((𝑃 ∨ (𝐹‘𝑃))(meet‘𝐾)(1.‘𝐾))) |
36 | | hlol 33666 |
. . . . 5
⊢ (𝐾 ∈ HL → 𝐾 ∈ OL) |
37 | 10, 36 | syl 17 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐾 ∈ OL) |
38 | 14, 3, 32 | olm11 33532 |
. . . 4
⊢ ((𝐾 ∈ OL ∧ (𝑃 ∨ (𝐹‘𝑃)) ∈ (Base‘𝐾)) → ((𝑃 ∨ (𝐹‘𝑃))(meet‘𝐾)(1.‘𝐾)) = (𝑃 ∨ (𝐹‘𝑃))) |
39 | 37, 24, 38 | syl2anc 691 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑃 ∨ (𝐹‘𝑃))(meet‘𝐾)(1.‘𝐾)) = (𝑃 ∨ (𝐹‘𝑃))) |
40 | 31, 35, 39 | 3eqtrrd 2649 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑃 ∨ (𝐹‘𝑃)) = (((𝑃 ∨ (𝐹‘𝑃))(meet‘𝐾)𝑊) ∨ 𝑃)) |
41 | 9, 20, 40 | 3eqtr4d 2654 |
1
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑃 ∨ (𝑅‘𝐹)) = (𝑃 ∨ (𝐹‘𝑃))) |