Proof of Theorem cdlemf2
| Step | Hyp | Ref
| Expression |
| 1 | | cdlemf1.l |
. . . 4
⊢ ≤ =
(le‘𝐾) |
| 2 | | cdlemf1.a |
. . . 4
⊢ 𝐴 = (Atoms‘𝐾) |
| 3 | | cdlemf1.h |
. . . 4
⊢ 𝐻 = (LHyp‘𝐾) |
| 4 | 1, 2, 3 | lhpexnle 40008 |
. . 3
⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ∃𝑝 ∈ 𝐴 ¬ 𝑝 ≤ 𝑊) |
| 5 | 4 | adantr 480 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) → ∃𝑝 ∈ 𝐴 ¬ 𝑝 ≤ 𝑊) |
| 6 | | cdlemf1.j |
. . . . . . 7
⊢ ∨ =
(join‘𝐾) |
| 7 | 1, 6, 2, 3 | cdlemf1 40563 |
. . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊) ∧ (𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊)) → ∃𝑞 ∈ 𝐴 (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞))) |
| 8 | | simpr1r 1232 |
. . . . . . . . . 10
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → ¬ 𝑝 ≤ 𝑊) |
| 9 | | simpr32 1265 |
. . . . . . . . . 10
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → ¬ 𝑞 ≤ 𝑊) |
| 10 | | simpr33 1266 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → 𝑈 ≤ (𝑝 ∨ 𝑞)) |
| 11 | | simplrr 778 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → 𝑈 ≤ 𝑊) |
| 12 | | hllat 39364 |
. . . . . . . . . . . . . 14
⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat) |
| 13 | 12 | ad3antrrr 730 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → 𝐾 ∈ Lat) |
| 14 | | simplrl 777 |
. . . . . . . . . . . . . 14
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → 𝑈 ∈ 𝐴) |
| 15 | | eqid 2737 |
. . . . . . . . . . . . . . 15
⊢
(Base‘𝐾) =
(Base‘𝐾) |
| 16 | 15, 2 | atbase 39290 |
. . . . . . . . . . . . . 14
⊢ (𝑈 ∈ 𝐴 → 𝑈 ∈ (Base‘𝐾)) |
| 17 | 14, 16 | syl 17 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → 𝑈 ∈ (Base‘𝐾)) |
| 18 | | simplll 775 |
. . . . . . . . . . . . . 14
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → 𝐾 ∈ HL) |
| 19 | | simpr1l 1231 |
. . . . . . . . . . . . . 14
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → 𝑝 ∈ 𝐴) |
| 20 | | simpr2 1196 |
. . . . . . . . . . . . . 14
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → 𝑞 ∈ 𝐴) |
| 21 | 15, 6, 2 | hlatjcl 39368 |
. . . . . . . . . . . . . 14
⊢ ((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) → (𝑝 ∨ 𝑞) ∈ (Base‘𝐾)) |
| 22 | 18, 19, 20, 21 | syl3anc 1373 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → (𝑝 ∨ 𝑞) ∈ (Base‘𝐾)) |
| 23 | 15, 3 | lhpbase 40000 |
. . . . . . . . . . . . . 14
⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾)) |
| 24 | 23 | ad3antlr 731 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → 𝑊 ∈ (Base‘𝐾)) |
| 25 | | cdlemf2.m |
. . . . . . . . . . . . . 14
⊢ ∧ =
(meet‘𝐾) |
| 26 | 15, 1, 25 | latlem12 18511 |
. . . . . . . . . . . . 13
⊢ ((𝐾 ∈ Lat ∧ (𝑈 ∈ (Base‘𝐾) ∧ (𝑝 ∨ 𝑞) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → ((𝑈 ≤ (𝑝 ∨ 𝑞) ∧ 𝑈 ≤ 𝑊) ↔ 𝑈 ≤ ((𝑝 ∨ 𝑞) ∧ 𝑊))) |
| 27 | 13, 17, 22, 24, 26 | syl13anc 1374 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → ((𝑈 ≤ (𝑝 ∨ 𝑞) ∧ 𝑈 ≤ 𝑊) ↔ 𝑈 ≤ ((𝑝 ∨ 𝑞) ∧ 𝑊))) |
| 28 | 10, 11, 27 | mpbi2and 712 |
. . . . . . . . . . 11
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → 𝑈 ≤ ((𝑝 ∨ 𝑞) ∧ 𝑊)) |
| 29 | | hlatl 39361 |
. . . . . . . . . . . . 13
⊢ (𝐾 ∈ HL → 𝐾 ∈ AtLat) |
| 30 | 29 | ad3antrrr 730 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → 𝐾 ∈ AtLat) |
| 31 | | simpll 767 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) |
| 32 | | simpr31 1264 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → 𝑝 ≠ 𝑞) |
| 33 | 1, 6, 25, 2, 3 | lhpat 40045 |
. . . . . . . . . . . . 13
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ (𝑞 ∈ 𝐴 ∧ 𝑝 ≠ 𝑞)) → ((𝑝 ∨ 𝑞) ∧ 𝑊) ∈ 𝐴) |
| 34 | 31, 19, 8, 20, 32, 33 | syl122anc 1381 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → ((𝑝 ∨ 𝑞) ∧ 𝑊) ∈ 𝐴) |
| 35 | 1, 2 | atcmp 39312 |
. . . . . . . . . . . 12
⊢ ((𝐾 ∈ AtLat ∧ 𝑈 ∈ 𝐴 ∧ ((𝑝 ∨ 𝑞) ∧ 𝑊) ∈ 𝐴) → (𝑈 ≤ ((𝑝 ∨ 𝑞) ∧ 𝑊) ↔ 𝑈 = ((𝑝 ∨ 𝑞) ∧ 𝑊))) |
| 36 | 30, 14, 34, 35 | syl3anc 1373 |
. . . . . . . . . . 11
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → (𝑈 ≤ ((𝑝 ∨ 𝑞) ∧ 𝑊) ↔ 𝑈 = ((𝑝 ∨ 𝑞) ∧ 𝑊))) |
| 37 | 28, 36 | mpbid 232 |
. . . . . . . . . 10
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → 𝑈 = ((𝑝 ∨ 𝑞) ∧ 𝑊)) |
| 38 | 8, 9, 37 | jca31 514 |
. . . . . . . . 9
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) ∧ ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ 𝑞 ∈ 𝐴 ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)))) → ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) ∧ 𝑈 = ((𝑝 ∨ 𝑞) ∧ 𝑊))) |
| 39 | 38 | 3exp2 1355 |
. . . . . . . 8
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) → ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) → (𝑞 ∈ 𝐴 → ((𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)) → ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) ∧ 𝑈 = ((𝑝 ∨ 𝑞) ∧ 𝑊)))))) |
| 40 | 39 | 3impia 1118 |
. . . . . . 7
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊) ∧ (𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊)) → (𝑞 ∈ 𝐴 → ((𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)) → ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) ∧ 𝑈 = ((𝑝 ∨ 𝑞) ∧ 𝑊))))) |
| 41 | 40 | reximdvai 3165 |
. . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊) ∧ (𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊)) → (∃𝑞 ∈ 𝐴 (𝑝 ≠ 𝑞 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑈 ≤ (𝑝 ∨ 𝑞)) → ∃𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) ∧ 𝑈 = ((𝑝 ∨ 𝑞) ∧ 𝑊)))) |
| 42 | 7, 41 | mpd 15 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊) ∧ (𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊)) → ∃𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) ∧ 𝑈 = ((𝑝 ∨ 𝑞) ∧ 𝑊))) |
| 43 | 42 | 3expia 1122 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) → ((𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) → ∃𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) ∧ 𝑈 = ((𝑝 ∨ 𝑞) ∧ 𝑊)))) |
| 44 | 43 | expd 415 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) → (𝑝 ∈ 𝐴 → (¬ 𝑝 ≤ 𝑊 → ∃𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) ∧ 𝑈 = ((𝑝 ∨ 𝑞) ∧ 𝑊))))) |
| 45 | 44 | reximdvai 3165 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) → (∃𝑝 ∈ 𝐴 ¬ 𝑝 ≤ 𝑊 → ∃𝑝 ∈ 𝐴 ∃𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) ∧ 𝑈 = ((𝑝 ∨ 𝑞) ∧ 𝑊)))) |
| 46 | 5, 45 | mpd 15 |
1
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊)) → ∃𝑝 ∈ 𝐴 ∃𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) ∧ 𝑈 = ((𝑝 ∨ 𝑞) ∧ 𝑊))) |