Proof of Theorem dihglblem3N
| Step | Hyp | Ref
| Expression |
| 1 | | simp1 1137 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) |
| 2 | | dihglblem.t |
. . . . . 6
⊢ 𝑇 = {𝑢 ∈ 𝐵 ∣ ∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊)} |
| 3 | | simp11l 1285 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → 𝐾 ∈ HL) |
| 4 | 3 | hllatd 39365 |
. . . . . . . . . . 11
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → 𝐾 ∈ Lat) |
| 5 | | simp12l 1287 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → 𝑆 ⊆ 𝐵) |
| 6 | | simp3 1139 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → 𝑣 ∈ 𝑆) |
| 7 | 5, 6 | sseldd 3984 |
. . . . . . . . . . 11
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → 𝑣 ∈ 𝐵) |
| 8 | | simp11r 1286 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → 𝑊 ∈ 𝐻) |
| 9 | | dihglblem.b |
. . . . . . . . . . . . 13
⊢ 𝐵 = (Base‘𝐾) |
| 10 | | dihglblem.h |
. . . . . . . . . . . . 13
⊢ 𝐻 = (LHyp‘𝐾) |
| 11 | 9, 10 | lhpbase 40000 |
. . . . . . . . . . . 12
⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵) |
| 12 | 8, 11 | syl 17 |
. . . . . . . . . . 11
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → 𝑊 ∈ 𝐵) |
| 13 | | dihglblem.l |
. . . . . . . . . . . 12
⊢ ≤ =
(le‘𝐾) |
| 14 | | dihglblem.m |
. . . . . . . . . . . 12
⊢ ∧ =
(meet‘𝐾) |
| 15 | 9, 13, 14 | latmle2 18510 |
. . . . . . . . . . 11
⊢ ((𝐾 ∈ Lat ∧ 𝑣 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑣 ∧ 𝑊) ≤ 𝑊) |
| 16 | 4, 7, 12, 15 | syl3anc 1373 |
. . . . . . . . . 10
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → (𝑣 ∧ 𝑊) ≤ 𝑊) |
| 17 | 16 | 3expia 1122 |
. . . . . . . . 9
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵) → (𝑣 ∈ 𝑆 → (𝑣 ∧ 𝑊) ≤ 𝑊)) |
| 18 | | breq1 5146 |
. . . . . . . . . 10
⊢ (𝑢 = (𝑣 ∧ 𝑊) → (𝑢 ≤ 𝑊 ↔ (𝑣 ∧ 𝑊) ≤ 𝑊)) |
| 19 | 18 | biimprcd 250 |
. . . . . . . . 9
⊢ ((𝑣 ∧ 𝑊) ≤ 𝑊 → (𝑢 = (𝑣 ∧ 𝑊) → 𝑢 ≤ 𝑊)) |
| 20 | 17, 19 | syl6 35 |
. . . . . . . 8
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵) → (𝑣 ∈ 𝑆 → (𝑢 = (𝑣 ∧ 𝑊) → 𝑢 ≤ 𝑊))) |
| 21 | 20 | rexlimdv 3153 |
. . . . . . 7
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵) → (∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊) → 𝑢 ≤ 𝑊)) |
| 22 | 21 | ss2rabdv 4076 |
. . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → {𝑢 ∈ 𝐵 ∣ ∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊)} ⊆ {𝑢 ∈ 𝐵 ∣ 𝑢 ≤ 𝑊}) |
| 23 | 2, 22 | eqsstrid 4022 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝑇 ⊆ {𝑢 ∈ 𝐵 ∣ 𝑢 ≤ 𝑊}) |
| 24 | | dihglblem.i |
. . . . . . 7
⊢ 𝐽 = ((DIsoB‘𝐾)‘𝑊) |
| 25 | 9, 13, 10, 24 | dibdmN 41159 |
. . . . . 6
⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → dom 𝐽 = {𝑢 ∈ 𝐵 ∣ 𝑢 ≤ 𝑊}) |
| 26 | 25 | 3ad2ant1 1134 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → dom 𝐽 = {𝑢 ∈ 𝐵 ∣ 𝑢 ≤ 𝑊}) |
| 27 | 23, 26 | sseqtrrd 4021 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝑇 ⊆ dom 𝐽) |
| 28 | | dihglblem.g |
. . . . . 6
⊢ 𝐺 = (glb‘𝐾) |
| 29 | 9, 13, 14, 28, 10, 2 | dihglblem2aN 41295 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) → 𝑇 ≠ ∅) |
| 30 | 29 | 3adant3 1133 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝑇 ≠ ∅) |
| 31 | 28, 10, 24 | dibglbN 41168 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑇 ⊆ dom 𝐽 ∧ 𝑇 ≠ ∅)) → (𝐽‘(𝐺‘𝑇)) = ∩
𝑥 ∈ 𝑇 (𝐽‘𝑥)) |
| 32 | 1, 27, 30, 31 | syl12anc 837 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐽‘(𝐺‘𝑇)) = ∩
𝑥 ∈ 𝑇 (𝐽‘𝑥)) |
| 33 | 9, 13, 14, 28, 10, 2 | dihglblem2N 41296 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐺‘𝑆) = (𝐺‘𝑇)) |
| 34 | 33 | 3adant2r 1180 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐺‘𝑆) = (𝐺‘𝑇)) |
| 35 | 34 | fveq2d 6910 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐽‘(𝐺‘𝑆)) = (𝐽‘(𝐺‘𝑇))) |
| 36 | | simpl1 1192 |
. . . . 5
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑇) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) |
| 37 | 23 | sselda 3983 |
. . . . . 6
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑇) → 𝑥 ∈ {𝑢 ∈ 𝐵 ∣ 𝑢 ≤ 𝑊}) |
| 38 | | breq1 5146 |
. . . . . . 7
⊢ (𝑢 = 𝑥 → (𝑢 ≤ 𝑊 ↔ 𝑥 ≤ 𝑊)) |
| 39 | 38 | elrab 3692 |
. . . . . 6
⊢ (𝑥 ∈ {𝑢 ∈ 𝐵 ∣ 𝑢 ≤ 𝑊} ↔ (𝑥 ∈ 𝐵 ∧ 𝑥 ≤ 𝑊)) |
| 40 | 37, 39 | sylib 218 |
. . . . 5
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑇) → (𝑥 ∈ 𝐵 ∧ 𝑥 ≤ 𝑊)) |
| 41 | | dihglblem.ih |
. . . . . 6
⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊) |
| 42 | 9, 13, 10, 41, 24 | dihvalb 41239 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑥 ∈ 𝐵 ∧ 𝑥 ≤ 𝑊)) → (𝐼‘𝑥) = (𝐽‘𝑥)) |
| 43 | 36, 40, 42 | syl2anc 584 |
. . . 4
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑇) → (𝐼‘𝑥) = (𝐽‘𝑥)) |
| 44 | 43 | iineq2dv 5017 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → ∩
𝑥 ∈ 𝑇 (𝐼‘𝑥) = ∩ 𝑥 ∈ 𝑇 (𝐽‘𝑥)) |
| 45 | 32, 35, 44 | 3eqtr4rd 2788 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → ∩
𝑥 ∈ 𝑇 (𝐼‘𝑥) = (𝐽‘(𝐺‘𝑆))) |
| 46 | | simp1l 1198 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝐾 ∈ HL) |
| 47 | | hlclat 39359 |
. . . . 5
⊢ (𝐾 ∈ HL → 𝐾 ∈ CLat) |
| 48 | 46, 47 | syl 17 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝐾 ∈ CLat) |
| 49 | | simp2l 1200 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝑆 ⊆ 𝐵) |
| 50 | 9, 28 | clatglbcl 18550 |
. . . 4
⊢ ((𝐾 ∈ CLat ∧ 𝑆 ⊆ 𝐵) → (𝐺‘𝑆) ∈ 𝐵) |
| 51 | 48, 49, 50 | syl2anc 584 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐺‘𝑆) ∈ 𝐵) |
| 52 | | simp3 1139 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐺‘𝑆) ≤ 𝑊) |
| 53 | 9, 13, 10, 41, 24 | dihvalb 41239 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝐺‘𝑆) ∈ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊)) → (𝐼‘(𝐺‘𝑆)) = (𝐽‘(𝐺‘𝑆))) |
| 54 | 1, 51, 52, 53 | syl12anc 837 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐼‘(𝐺‘𝑆)) = (𝐽‘(𝐺‘𝑆))) |
| 55 | 34 | fveq2d 6910 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐼‘(𝐺‘𝑆)) = (𝐼‘(𝐺‘𝑇))) |
| 56 | 45, 54, 55 | 3eqtr2rd 2784 |
1
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐼‘(𝐺‘𝑇)) = ∩
𝑥 ∈ 𝑇 (𝐼‘𝑥)) |