Step | Hyp | Ref
| Expression |
1 | | simpl 475 |
. . . . . . 7
⊢ ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋) → 𝑝 ∈ (Atoms‘𝐾)) |
2 | 1 | a1i 11 |
. . . . . 6
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋) → 𝑝 ∈ (Atoms‘𝐾))) |
3 | | pmapjoin.b |
. . . . . . . 8
⊢ 𝐵 = (Base‘𝐾) |
4 | | eqid 2778 |
. . . . . . . 8
⊢
(Atoms‘𝐾) =
(Atoms‘𝐾) |
5 | 3, 4 | atbase 35876 |
. . . . . . 7
⊢ (𝑝 ∈ (Atoms‘𝐾) → 𝑝 ∈ 𝐵) |
6 | | eqid 2778 |
. . . . . . . . . . 11
⊢
(le‘𝐾) =
(le‘𝐾) |
7 | | pmapjoin.j |
. . . . . . . . . . 11
⊢ ∨ =
(join‘𝐾) |
8 | 3, 6, 7 | latlej1 17528 |
. . . . . . . . . 10
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝑋(le‘𝐾)(𝑋 ∨ 𝑌)) |
9 | 8 | adantr 473 |
. . . . . . . . 9
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → 𝑋(le‘𝐾)(𝑋 ∨ 𝑌)) |
10 | | simpl1 1171 |
. . . . . . . . . 10
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → 𝐾 ∈ Lat) |
11 | | simpr 477 |
. . . . . . . . . 10
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → 𝑝 ∈ 𝐵) |
12 | | simpl2 1172 |
. . . . . . . . . 10
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → 𝑋 ∈ 𝐵) |
13 | 3, 7 | latjcl 17519 |
. . . . . . . . . . 11
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ∨ 𝑌) ∈ 𝐵) |
14 | 13 | adantr 473 |
. . . . . . . . . 10
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → (𝑋 ∨ 𝑌) ∈ 𝐵) |
15 | 3, 6 | lattr 17524 |
. . . . . . . . . 10
⊢ ((𝐾 ∈ Lat ∧ (𝑝 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵 ∧ (𝑋 ∨ 𝑌) ∈ 𝐵)) → ((𝑝(le‘𝐾)𝑋 ∧ 𝑋(le‘𝐾)(𝑋 ∨ 𝑌)) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
16 | 10, 11, 12, 14, 15 | syl13anc 1352 |
. . . . . . . . 9
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → ((𝑝(le‘𝐾)𝑋 ∧ 𝑋(le‘𝐾)(𝑋 ∨ 𝑌)) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
17 | 9, 16 | mpan2d 681 |
. . . . . . . 8
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → (𝑝(le‘𝐾)𝑋 → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
18 | 17 | expimpd 446 |
. . . . . . 7
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑝 ∈ 𝐵 ∧ 𝑝(le‘𝐾)𝑋) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
19 | 5, 18 | sylani 594 |
. . . . . 6
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
20 | 2, 19 | jcad 505 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋) → (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑌)))) |
21 | | simpl 475 |
. . . . . . 7
⊢ ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑌) → 𝑝 ∈ (Atoms‘𝐾)) |
22 | 21 | a1i 11 |
. . . . . 6
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑌) → 𝑝 ∈ (Atoms‘𝐾))) |
23 | 3, 6, 7 | latlej2 17529 |
. . . . . . . . . 10
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝑌(le‘𝐾)(𝑋 ∨ 𝑌)) |
24 | 23 | adantr 473 |
. . . . . . . . 9
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → 𝑌(le‘𝐾)(𝑋 ∨ 𝑌)) |
25 | | simpl3 1173 |
. . . . . . . . . 10
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → 𝑌 ∈ 𝐵) |
26 | 3, 6 | lattr 17524 |
. . . . . . . . . 10
⊢ ((𝐾 ∈ Lat ∧ (𝑝 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ (𝑋 ∨ 𝑌) ∈ 𝐵)) → ((𝑝(le‘𝐾)𝑌 ∧ 𝑌(le‘𝐾)(𝑋 ∨ 𝑌)) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
27 | 10, 11, 25, 14, 26 | syl13anc 1352 |
. . . . . . . . 9
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → ((𝑝(le‘𝐾)𝑌 ∧ 𝑌(le‘𝐾)(𝑋 ∨ 𝑌)) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
28 | 24, 27 | mpan2d 681 |
. . . . . . . 8
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → (𝑝(le‘𝐾)𝑌 → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
29 | 28 | expimpd 446 |
. . . . . . 7
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑝 ∈ 𝐵 ∧ 𝑝(le‘𝐾)𝑌) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
30 | 5, 29 | sylani 594 |
. . . . . 6
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑌) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
31 | 22, 30 | jcad 505 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑌) → (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑌)))) |
32 | 20, 31 | jaod 845 |
. . . 4
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋) ∨ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑌)) → (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑌)))) |
33 | | simpl 475 |
. . . . . 6
⊢ ((𝑝 ∈ (Atoms‘𝐾) ∧ ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑌)𝑝(le‘𝐾)(𝑞 ∨ 𝑟)) → 𝑝 ∈ (Atoms‘𝐾)) |
34 | 33 | a1i 11 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑝 ∈ (Atoms‘𝐾) ∧ ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑌)𝑝(le‘𝐾)(𝑞 ∨ 𝑟)) → 𝑝 ∈ (Atoms‘𝐾))) |
35 | | pmapjoin.m |
. . . . . . . . . . . . . 14
⊢ 𝑀 = (pmap‘𝐾) |
36 | 3, 6, 4, 35 | elpmap 36345 |
. . . . . . . . . . . . 13
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) → (𝑞 ∈ (𝑀‘𝑋) ↔ (𝑞 ∈ (Atoms‘𝐾) ∧ 𝑞(le‘𝐾)𝑋))) |
37 | 36 | 3adant3 1112 |
. . . . . . . . . . . 12
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑞 ∈ (𝑀‘𝑋) ↔ (𝑞 ∈ (Atoms‘𝐾) ∧ 𝑞(le‘𝐾)𝑋))) |
38 | 3, 6, 4, 35 | elpmap 36345 |
. . . . . . . . . . . . 13
⊢ ((𝐾 ∈ Lat ∧ 𝑌 ∈ 𝐵) → (𝑟 ∈ (𝑀‘𝑌) ↔ (𝑟 ∈ (Atoms‘𝐾) ∧ 𝑟(le‘𝐾)𝑌))) |
39 | 38 | 3adant2 1111 |
. . . . . . . . . . . 12
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑟 ∈ (𝑀‘𝑌) ↔ (𝑟 ∈ (Atoms‘𝐾) ∧ 𝑟(le‘𝐾)𝑌))) |
40 | 37, 39 | anbi12d 621 |
. . . . . . . . . . 11
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑞 ∈ (𝑀‘𝑋) ∧ 𝑟 ∈ (𝑀‘𝑌)) ↔ ((𝑞 ∈ (Atoms‘𝐾) ∧ 𝑞(le‘𝐾)𝑋) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ 𝑟(le‘𝐾)𝑌)))) |
41 | | an4 643 |
. . . . . . . . . . 11
⊢ (((𝑞 ∈ (Atoms‘𝐾) ∧ 𝑞(le‘𝐾)𝑋) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ 𝑟(le‘𝐾)𝑌)) ↔ ((𝑞 ∈ (Atoms‘𝐾) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑞(le‘𝐾)𝑋 ∧ 𝑟(le‘𝐾)𝑌))) |
42 | 40, 41 | syl6bb 279 |
. . . . . . . . . 10
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑞 ∈ (𝑀‘𝑋) ∧ 𝑟 ∈ (𝑀‘𝑌)) ↔ ((𝑞 ∈ (Atoms‘𝐾) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑞(le‘𝐾)𝑋 ∧ 𝑟(le‘𝐾)𝑌)))) |
43 | 42 | adantr 473 |
. . . . . . . . 9
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → ((𝑞 ∈ (𝑀‘𝑋) ∧ 𝑟 ∈ (𝑀‘𝑌)) ↔ ((𝑞 ∈ (Atoms‘𝐾) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑞(le‘𝐾)𝑋 ∧ 𝑟(le‘𝐾)𝑌)))) |
44 | 3, 4 | atbase 35876 |
. . . . . . . . . . 11
⊢ (𝑞 ∈ (Atoms‘𝐾) → 𝑞 ∈ 𝐵) |
45 | 3, 4 | atbase 35876 |
. . . . . . . . . . 11
⊢ (𝑟 ∈ (Atoms‘𝐾) → 𝑟 ∈ 𝐵) |
46 | 44, 45 | anim12i 603 |
. . . . . . . . . 10
⊢ ((𝑞 ∈ (Atoms‘𝐾) ∧ 𝑟 ∈ (Atoms‘𝐾)) → (𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵)) |
47 | | simpll1 1192 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) ∧ (𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵)) → 𝐾 ∈ Lat) |
48 | | simprl 758 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) ∧ (𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵)) → 𝑞 ∈ 𝐵) |
49 | | simpll2 1193 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) ∧ (𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵)) → 𝑋 ∈ 𝐵) |
50 | | simprr 760 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) ∧ (𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵)) → 𝑟 ∈ 𝐵) |
51 | | simpll3 1194 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) ∧ (𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵)) → 𝑌 ∈ 𝐵) |
52 | 3, 6, 7 | latjlej12 17535 |
. . . . . . . . . . . . 13
⊢ ((𝐾 ∈ Lat ∧ (𝑞 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) ∧ (𝑟 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵)) → ((𝑞(le‘𝐾)𝑋 ∧ 𝑟(le‘𝐾)𝑌) → (𝑞 ∨ 𝑟)(le‘𝐾)(𝑋 ∨ 𝑌))) |
53 | 47, 48, 49, 50, 51, 52 | syl122anc 1359 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) ∧ (𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵)) → ((𝑞(le‘𝐾)𝑋 ∧ 𝑟(le‘𝐾)𝑌) → (𝑞 ∨ 𝑟)(le‘𝐾)(𝑋 ∨ 𝑌))) |
54 | | simplr 756 |
. . . . . . . . . . . . . 14
⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) ∧ (𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵)) → 𝑝 ∈ 𝐵) |
55 | 3, 7 | latjcl 17519 |
. . . . . . . . . . . . . . 15
⊢ ((𝐾 ∈ Lat ∧ 𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵) → (𝑞 ∨ 𝑟) ∈ 𝐵) |
56 | 47, 48, 50, 55 | syl3anc 1351 |
. . . . . . . . . . . . . 14
⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) ∧ (𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵)) → (𝑞 ∨ 𝑟) ∈ 𝐵) |
57 | 13 | ad2antrr 713 |
. . . . . . . . . . . . . 14
⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) ∧ (𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵)) → (𝑋 ∨ 𝑌) ∈ 𝐵) |
58 | 3, 6 | lattr 17524 |
. . . . . . . . . . . . . 14
⊢ ((𝐾 ∈ Lat ∧ (𝑝 ∈ 𝐵 ∧ (𝑞 ∨ 𝑟) ∈ 𝐵 ∧ (𝑋 ∨ 𝑌) ∈ 𝐵)) → ((𝑝(le‘𝐾)(𝑞 ∨ 𝑟) ∧ (𝑞 ∨ 𝑟)(le‘𝐾)(𝑋 ∨ 𝑌)) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
59 | 47, 54, 56, 57, 58 | syl13anc 1352 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) ∧ (𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵)) → ((𝑝(le‘𝐾)(𝑞 ∨ 𝑟) ∧ (𝑞 ∨ 𝑟)(le‘𝐾)(𝑋 ∨ 𝑌)) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
60 | 59 | expcomd 409 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) ∧ (𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵)) → ((𝑞 ∨ 𝑟)(le‘𝐾)(𝑋 ∨ 𝑌) → (𝑝(le‘𝐾)(𝑞 ∨ 𝑟) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌)))) |
61 | 53, 60 | syld 47 |
. . . . . . . . . . 11
⊢ ((((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) ∧ (𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵)) → ((𝑞(le‘𝐾)𝑋 ∧ 𝑟(le‘𝐾)𝑌) → (𝑝(le‘𝐾)(𝑞 ∨ 𝑟) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌)))) |
62 | 61 | expimpd 446 |
. . . . . . . . . 10
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → (((𝑞 ∈ 𝐵 ∧ 𝑟 ∈ 𝐵) ∧ (𝑞(le‘𝐾)𝑋 ∧ 𝑟(le‘𝐾)𝑌)) → (𝑝(le‘𝐾)(𝑞 ∨ 𝑟) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌)))) |
63 | 46, 62 | sylani 594 |
. . . . . . . . 9
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → (((𝑞 ∈ (Atoms‘𝐾) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑞(le‘𝐾)𝑋 ∧ 𝑟(le‘𝐾)𝑌)) → (𝑝(le‘𝐾)(𝑞 ∨ 𝑟) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌)))) |
64 | 43, 63 | sylbid 232 |
. . . . . . . 8
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → ((𝑞 ∈ (𝑀‘𝑋) ∧ 𝑟 ∈ (𝑀‘𝑌)) → (𝑝(le‘𝐾)(𝑞 ∨ 𝑟) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌)))) |
65 | 64 | rexlimdvv 3238 |
. . . . . . 7
⊢ (((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑝 ∈ 𝐵) → (∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑌)𝑝(le‘𝐾)(𝑞 ∨ 𝑟) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
66 | 65 | expimpd 446 |
. . . . . 6
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑝 ∈ 𝐵 ∧ ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑌)𝑝(le‘𝐾)(𝑞 ∨ 𝑟)) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
67 | 5, 66 | sylani 594 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑝 ∈ (Atoms‘𝐾) ∧ ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑌)𝑝(le‘𝐾)(𝑞 ∨ 𝑟)) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑌))) |
68 | 34, 67 | jcad 505 |
. . . 4
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑝 ∈ (Atoms‘𝐾) ∧ ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑌)𝑝(le‘𝐾)(𝑞 ∨ 𝑟)) → (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑌)))) |
69 | 32, 68 | jaod 845 |
. . 3
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋) ∨ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑌)) ∨ (𝑝 ∈ (Atoms‘𝐾) ∧ ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑌)𝑝(le‘𝐾)(𝑞 ∨ 𝑟))) → (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑌)))) |
70 | | simp1 1116 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝐾 ∈ Lat) |
71 | 3, 4, 35 | pmapssat 36346 |
. . . . . 6
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) → (𝑀‘𝑋) ⊆ (Atoms‘𝐾)) |
72 | 71 | 3adant3 1112 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑀‘𝑋) ⊆ (Atoms‘𝐾)) |
73 | 3, 4, 35 | pmapssat 36346 |
. . . . . 6
⊢ ((𝐾 ∈ Lat ∧ 𝑌 ∈ 𝐵) → (𝑀‘𝑌) ⊆ (Atoms‘𝐾)) |
74 | 73 | 3adant2 1111 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑀‘𝑌) ⊆ (Atoms‘𝐾)) |
75 | | pmapjoin.p |
. . . . . 6
⊢ + =
(+𝑃‘𝐾) |
76 | 6, 7, 4, 75 | elpadd 36386 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ (𝑀‘𝑋) ⊆ (Atoms‘𝐾) ∧ (𝑀‘𝑌) ⊆ (Atoms‘𝐾)) → (𝑝 ∈ ((𝑀‘𝑋) + (𝑀‘𝑌)) ↔ ((𝑝 ∈ (𝑀‘𝑋) ∨ 𝑝 ∈ (𝑀‘𝑌)) ∨ (𝑝 ∈ (Atoms‘𝐾) ∧ ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑌)𝑝(le‘𝐾)(𝑞 ∨ 𝑟))))) |
77 | 70, 72, 74, 76 | syl3anc 1351 |
. . . 4
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑝 ∈ ((𝑀‘𝑋) + (𝑀‘𝑌)) ↔ ((𝑝 ∈ (𝑀‘𝑋) ∨ 𝑝 ∈ (𝑀‘𝑌)) ∨ (𝑝 ∈ (Atoms‘𝐾) ∧ ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑌)𝑝(le‘𝐾)(𝑞 ∨ 𝑟))))) |
78 | 3, 6, 4, 35 | elpmap 36345 |
. . . . . . 7
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵) → (𝑝 ∈ (𝑀‘𝑋) ↔ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋))) |
79 | 78 | 3adant3 1112 |
. . . . . 6
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑝 ∈ (𝑀‘𝑋) ↔ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋))) |
80 | 3, 6, 4, 35 | elpmap 36345 |
. . . . . . 7
⊢ ((𝐾 ∈ Lat ∧ 𝑌 ∈ 𝐵) → (𝑝 ∈ (𝑀‘𝑌) ↔ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑌))) |
81 | 80 | 3adant2 1111 |
. . . . . 6
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑝 ∈ (𝑀‘𝑌) ↔ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑌))) |
82 | 79, 81 | orbi12d 902 |
. . . . 5
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑝 ∈ (𝑀‘𝑋) ∨ 𝑝 ∈ (𝑀‘𝑌)) ↔ ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋) ∨ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑌)))) |
83 | 82 | orbi1d 900 |
. . . 4
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (((𝑝 ∈ (𝑀‘𝑋) ∨ 𝑝 ∈ (𝑀‘𝑌)) ∨ (𝑝 ∈ (Atoms‘𝐾) ∧ ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑌)𝑝(le‘𝐾)(𝑞 ∨ 𝑟))) ↔ (((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋) ∨ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑌)) ∨ (𝑝 ∈ (Atoms‘𝐾) ∧ ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑌)𝑝(le‘𝐾)(𝑞 ∨ 𝑟))))) |
84 | 77, 83 | bitrd 271 |
. . 3
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑝 ∈ ((𝑀‘𝑋) + (𝑀‘𝑌)) ↔ (((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋) ∨ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑌)) ∨ (𝑝 ∈ (Atoms‘𝐾) ∧ ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑌)𝑝(le‘𝐾)(𝑞 ∨ 𝑟))))) |
85 | 3, 6, 4, 35 | elpmap 36345 |
. . . 4
⊢ ((𝐾 ∈ Lat ∧ (𝑋 ∨ 𝑌) ∈ 𝐵) → (𝑝 ∈ (𝑀‘(𝑋 ∨ 𝑌)) ↔ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑌)))) |
86 | 70, 13, 85 | syl2anc 576 |
. . 3
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑝 ∈ (𝑀‘(𝑋 ∨ 𝑌)) ↔ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑌)))) |
87 | 69, 84, 86 | 3imtr4d 286 |
. 2
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑝 ∈ ((𝑀‘𝑋) + (𝑀‘𝑌)) → 𝑝 ∈ (𝑀‘(𝑋 ∨ 𝑌)))) |
88 | 87 | ssrdv 3864 |
1
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑀‘𝑋) + (𝑀‘𝑌)) ⊆ (𝑀‘(𝑋 ∨ 𝑌))) |