Proof of Theorem hlmod1i
Step | Hyp | Ref
| Expression |
1 | | hlmod.b |
. . 3
⊢ 𝐵 = (Base‘𝐾) |
2 | | hlmod.l |
. . 3
⊢ ≤ =
(le‘𝐾) |
3 | | hllat 37150 |
. . . 4
⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat) |
4 | 3 | 3ad2ant1 1135 |
. . 3
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → 𝐾 ∈ Lat) |
5 | | simp21 1208 |
. . . . 5
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → 𝑋 ∈ 𝐵) |
6 | | simp22 1209 |
. . . . 5
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → 𝑌 ∈ 𝐵) |
7 | | hlmod.j |
. . . . . 6
⊢ ∨ =
(join‘𝐾) |
8 | 1, 7 | latjcl 17977 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ∨ 𝑌) ∈ 𝐵) |
9 | 4, 5, 6, 8 | syl3anc 1373 |
. . . 4
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝑋 ∨ 𝑌) ∈ 𝐵) |
10 | | simp23 1210 |
. . . 4
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → 𝑍 ∈ 𝐵) |
11 | | hlmod.m |
. . . . 5
⊢ ∧ =
(meet‘𝐾) |
12 | 1, 11 | latmcl 17978 |
. . . 4
⊢ ((𝐾 ∈ Lat ∧ (𝑋 ∨ 𝑌) ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) → ((𝑋 ∨ 𝑌) ∧ 𝑍) ∈ 𝐵) |
13 | 4, 9, 10, 12 | syl3anc 1373 |
. . 3
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → ((𝑋 ∨ 𝑌) ∧ 𝑍) ∈ 𝐵) |
14 | 1, 11 | latmcl 17978 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) → (𝑌 ∧ 𝑍) ∈ 𝐵) |
15 | 4, 6, 10, 14 | syl3anc 1373 |
. . . 4
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝑌 ∧ 𝑍) ∈ 𝐵) |
16 | 1, 7 | latjcl 17977 |
. . . 4
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ (𝑌 ∧ 𝑍) ∈ 𝐵) → (𝑋 ∨ (𝑌 ∧ 𝑍)) ∈ 𝐵) |
17 | 4, 5, 15, 16 | syl3anc 1373 |
. . 3
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝑋 ∨ (𝑌 ∧ 𝑍)) ∈ 𝐵) |
18 | | simp1 1138 |
. . . . . . 7
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → 𝐾 ∈ HL) |
19 | | eqid 2739 |
. . . . . . . . 9
⊢
(Atoms‘𝐾) =
(Atoms‘𝐾) |
20 | | hlmod.f |
. . . . . . . . 9
⊢ 𝐹 = (pmap‘𝐾) |
21 | 1, 19, 20 | pmapssat 37546 |
. . . . . . . 8
⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵) → (𝐹‘𝑋) ⊆ (Atoms‘𝐾)) |
22 | 18, 5, 21 | syl2anc 587 |
. . . . . . 7
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝐹‘𝑋) ⊆ (Atoms‘𝐾)) |
23 | 1, 19, 20 | pmapssat 37546 |
. . . . . . . 8
⊢ ((𝐾 ∈ HL ∧ 𝑌 ∈ 𝐵) → (𝐹‘𝑌) ⊆ (Atoms‘𝐾)) |
24 | 18, 6, 23 | syl2anc 587 |
. . . . . . 7
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝐹‘𝑌) ⊆ (Atoms‘𝐾)) |
25 | | eqid 2739 |
. . . . . . . . 9
⊢
(PSubSp‘𝐾) =
(PSubSp‘𝐾) |
26 | 1, 25, 20 | pmapsub 37555 |
. . . . . . . 8
⊢ ((𝐾 ∈ Lat ∧ 𝑍 ∈ 𝐵) → (𝐹‘𝑍) ∈ (PSubSp‘𝐾)) |
27 | 4, 10, 26 | syl2anc 587 |
. . . . . . 7
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝐹‘𝑍) ∈ (PSubSp‘𝐾)) |
28 | | simp3l 1203 |
. . . . . . . 8
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → 𝑋 ≤ 𝑍) |
29 | 1, 2, 20 | pmaple 37548 |
. . . . . . . . 9
⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) → (𝑋 ≤ 𝑍 ↔ (𝐹‘𝑋) ⊆ (𝐹‘𝑍))) |
30 | 18, 5, 10, 29 | syl3anc 1373 |
. . . . . . . 8
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝑋 ≤ 𝑍 ↔ (𝐹‘𝑋) ⊆ (𝐹‘𝑍))) |
31 | 28, 30 | mpbid 235 |
. . . . . . 7
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝐹‘𝑋) ⊆ (𝐹‘𝑍)) |
32 | | hlmod.p |
. . . . . . . . 9
⊢ + =
(+𝑃‘𝐾) |
33 | 19, 25, 32 | pmod1i 37635 |
. . . . . . . 8
⊢ ((𝐾 ∈ HL ∧ ((𝐹‘𝑋) ⊆ (Atoms‘𝐾) ∧ (𝐹‘𝑌) ⊆ (Atoms‘𝐾) ∧ (𝐹‘𝑍) ∈ (PSubSp‘𝐾))) → ((𝐹‘𝑋) ⊆ (𝐹‘𝑍) → (((𝐹‘𝑋) + (𝐹‘𝑌)) ∩ (𝐹‘𝑍)) = ((𝐹‘𝑋) + ((𝐹‘𝑌) ∩ (𝐹‘𝑍))))) |
34 | 33 | 3impia 1119 |
. . . . . . 7
⊢ ((𝐾 ∈ HL ∧ ((𝐹‘𝑋) ⊆ (Atoms‘𝐾) ∧ (𝐹‘𝑌) ⊆ (Atoms‘𝐾) ∧ (𝐹‘𝑍) ∈ (PSubSp‘𝐾)) ∧ (𝐹‘𝑋) ⊆ (𝐹‘𝑍)) → (((𝐹‘𝑋) + (𝐹‘𝑌)) ∩ (𝐹‘𝑍)) = ((𝐹‘𝑋) + ((𝐹‘𝑌) ∩ (𝐹‘𝑍)))) |
35 | 18, 22, 24, 27, 31, 34 | syl131anc 1385 |
. . . . . 6
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (((𝐹‘𝑋) + (𝐹‘𝑌)) ∩ (𝐹‘𝑍)) = ((𝐹‘𝑋) + ((𝐹‘𝑌) ∩ (𝐹‘𝑍)))) |
36 | 1, 11, 19, 20 | pmapmeet 37560 |
. . . . . . . 8
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∨ 𝑌) ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) → (𝐹‘((𝑋 ∨ 𝑌) ∧ 𝑍)) = ((𝐹‘(𝑋 ∨ 𝑌)) ∩ (𝐹‘𝑍))) |
37 | 18, 9, 10, 36 | syl3anc 1373 |
. . . . . . 7
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝐹‘((𝑋 ∨ 𝑌) ∧ 𝑍)) = ((𝐹‘(𝑋 ∨ 𝑌)) ∩ (𝐹‘𝑍))) |
38 | | simp3r 1204 |
. . . . . . . 8
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌))) |
39 | 38 | ineq1d 4142 |
. . . . . . 7
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → ((𝐹‘(𝑋 ∨ 𝑌)) ∩ (𝐹‘𝑍)) = (((𝐹‘𝑋) + (𝐹‘𝑌)) ∩ (𝐹‘𝑍))) |
40 | 37, 39 | eqtrd 2779 |
. . . . . 6
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝐹‘((𝑋 ∨ 𝑌) ∧ 𝑍)) = (((𝐹‘𝑋) + (𝐹‘𝑌)) ∩ (𝐹‘𝑍))) |
41 | 1, 11, 19, 20 | pmapmeet 37560 |
. . . . . . . 8
⊢ ((𝐾 ∈ HL ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) → (𝐹‘(𝑌 ∧ 𝑍)) = ((𝐹‘𝑌) ∩ (𝐹‘𝑍))) |
42 | 18, 6, 10, 41 | syl3anc 1373 |
. . . . . . 7
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝐹‘(𝑌 ∧ 𝑍)) = ((𝐹‘𝑌) ∩ (𝐹‘𝑍))) |
43 | 42 | oveq2d 7250 |
. . . . . 6
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → ((𝐹‘𝑋) + (𝐹‘(𝑌 ∧ 𝑍))) = ((𝐹‘𝑋) + ((𝐹‘𝑌) ∩ (𝐹‘𝑍)))) |
44 | 35, 40, 43 | 3eqtr4d 2789 |
. . . . 5
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝐹‘((𝑋 ∨ 𝑌) ∧ 𝑍)) = ((𝐹‘𝑋) + (𝐹‘(𝑌 ∧ 𝑍)))) |
45 | 1, 7, 20, 32 | pmapjoin 37639 |
. . . . . 6
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ (𝑌 ∧ 𝑍) ∈ 𝐵) → ((𝐹‘𝑋) + (𝐹‘(𝑌 ∧ 𝑍))) ⊆ (𝐹‘(𝑋 ∨ (𝑌 ∧ 𝑍)))) |
46 | 4, 5, 15, 45 | syl3anc 1373 |
. . . . 5
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → ((𝐹‘𝑋) + (𝐹‘(𝑌 ∧ 𝑍))) ⊆ (𝐹‘(𝑋 ∨ (𝑌 ∧ 𝑍)))) |
47 | 44, 46 | eqsstrd 3955 |
. . . 4
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝐹‘((𝑋 ∨ 𝑌) ∧ 𝑍)) ⊆ (𝐹‘(𝑋 ∨ (𝑌 ∧ 𝑍)))) |
48 | 1, 2, 20 | pmaple 37548 |
. . . . 5
⊢ ((𝐾 ∈ HL ∧ ((𝑋 ∨ 𝑌) ∧ 𝑍) ∈ 𝐵 ∧ (𝑋 ∨ (𝑌 ∧ 𝑍)) ∈ 𝐵) → (((𝑋 ∨ 𝑌) ∧ 𝑍) ≤ (𝑋 ∨ (𝑌 ∧ 𝑍)) ↔ (𝐹‘((𝑋 ∨ 𝑌) ∧ 𝑍)) ⊆ (𝐹‘(𝑋 ∨ (𝑌 ∧ 𝑍))))) |
49 | 18, 13, 17, 48 | syl3anc 1373 |
. . . 4
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (((𝑋 ∨ 𝑌) ∧ 𝑍) ≤ (𝑋 ∨ (𝑌 ∧ 𝑍)) ↔ (𝐹‘((𝑋 ∨ 𝑌) ∧ 𝑍)) ⊆ (𝐹‘(𝑋 ∨ (𝑌 ∧ 𝑍))))) |
50 | 47, 49 | mpbird 260 |
. . 3
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → ((𝑋 ∨ 𝑌) ∧ 𝑍) ≤ (𝑋 ∨ (𝑌 ∧ 𝑍))) |
51 | 1, 2, 7, 11 | mod1ile 18031 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (𝑋 ≤ 𝑍 → (𝑋 ∨ (𝑌 ∧ 𝑍)) ≤ ((𝑋 ∨ 𝑌) ∧ 𝑍))) |
52 | 51 | 3impia 1119 |
. . . 4
⊢ ((𝐾 ∈ Lat ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ 𝑋 ≤ 𝑍) → (𝑋 ∨ (𝑌 ∧ 𝑍)) ≤ ((𝑋 ∨ 𝑌) ∧ 𝑍)) |
53 | 4, 5, 6, 10, 28, 52 | syl131anc 1385 |
. . 3
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → (𝑋 ∨ (𝑌 ∧ 𝑍)) ≤ ((𝑋 ∨ 𝑌) ∧ 𝑍)) |
54 | 1, 2, 4, 13, 17, 50, 53 | latasymd 17983 |
. 2
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) ∧ (𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌)))) → ((𝑋 ∨ 𝑌) ∧ 𝑍) = (𝑋 ∨ (𝑌 ∧ 𝑍))) |
55 | 54 | 3expia 1123 |
1
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((𝑋 ≤ 𝑍 ∧ (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌))) → ((𝑋 ∨ 𝑌) ∧ 𝑍) = (𝑋 ∨ (𝑌 ∧ 𝑍)))) |