Step | Hyp | Ref
| Expression |
1 | | eqid 2610 |
. . . . . . . 8
⊢
(Base‘𝐾) =
(Base‘𝐾) |
2 | | dihintcl.h |
. . . . . . . 8
⊢ 𝐻 = (LHyp‘𝐾) |
3 | | dihintcl.i |
. . . . . . . 8
⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊) |
4 | 1, 2, 3 | dihfn 35575 |
. . . . . . 7
⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐼 Fn (Base‘𝐾)) |
5 | 1, 2, 3 | dihdm 35576 |
. . . . . . . 8
⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → dom 𝐼 = (Base‘𝐾)) |
6 | 5 | fneq2d 5896 |
. . . . . . 7
⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝐼 Fn dom 𝐼 ↔ 𝐼 Fn (Base‘𝐾))) |
7 | 4, 6 | mpbird 246 |
. . . . . 6
⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐼 Fn dom 𝐼) |
8 | 7 | adantr 480 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → 𝐼 Fn dom 𝐼) |
9 | | cnvimass 5404 |
. . . . 5
⊢ (◡𝐼 “ 𝑆) ⊆ dom 𝐼 |
10 | | fnssres 5918 |
. . . . 5
⊢ ((𝐼 Fn dom 𝐼 ∧ (◡𝐼 “ 𝑆) ⊆ dom 𝐼) → (𝐼 ↾ (◡𝐼 “ 𝑆)) Fn (◡𝐼 “ 𝑆)) |
11 | 8, 9, 10 | sylancl 693 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → (𝐼 ↾ (◡𝐼 “ 𝑆)) Fn (◡𝐼 “ 𝑆)) |
12 | | fniinfv 6167 |
. . . 4
⊢ ((𝐼 ↾ (◡𝐼 “ 𝑆)) Fn (◡𝐼 “ 𝑆) → ∩
𝑦 ∈ (◡𝐼 “ 𝑆)((𝐼 ↾ (◡𝐼 “ 𝑆))‘𝑦) = ∩ ran (𝐼 ↾ (◡𝐼 “ 𝑆))) |
13 | 11, 12 | syl 17 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → ∩ 𝑦 ∈ (◡𝐼 “ 𝑆)((𝐼 ↾ (◡𝐼 “ 𝑆))‘𝑦) = ∩ ran (𝐼 ↾ (◡𝐼 “ 𝑆))) |
14 | | df-ima 5051 |
. . . . 5
⊢ (𝐼 “ (◡𝐼 “ 𝑆)) = ran (𝐼 ↾ (◡𝐼 “ 𝑆)) |
15 | 4 | adantr 480 |
. . . . . . 7
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → 𝐼 Fn (Base‘𝐾)) |
16 | | dffn4 6034 |
. . . . . . 7
⊢ (𝐼 Fn (Base‘𝐾) ↔ 𝐼:(Base‘𝐾)–onto→ran 𝐼) |
17 | 15, 16 | sylib 207 |
. . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → 𝐼:(Base‘𝐾)–onto→ran 𝐼) |
18 | | simprl 790 |
. . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → 𝑆 ⊆ ran 𝐼) |
19 | | foimacnv 6067 |
. . . . . 6
⊢ ((𝐼:(Base‘𝐾)–onto→ran 𝐼 ∧ 𝑆 ⊆ ran 𝐼) → (𝐼 “ (◡𝐼 “ 𝑆)) = 𝑆) |
20 | 17, 18, 19 | syl2anc 691 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → (𝐼 “ (◡𝐼 “ 𝑆)) = 𝑆) |
21 | 14, 20 | syl5eqr 2658 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → ran (𝐼 ↾ (◡𝐼 “ 𝑆)) = 𝑆) |
22 | 21 | inteqd 4415 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → ∩ ran (𝐼 ↾ (◡𝐼 “ 𝑆)) = ∩ 𝑆) |
23 | 13, 22 | eqtrd 2644 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → ∩ 𝑦 ∈ (◡𝐼 “ 𝑆)((𝐼 ↾ (◡𝐼 “ 𝑆))‘𝑦) = ∩ 𝑆) |
24 | | simpl 472 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) |
25 | 5 | adantr 480 |
. . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → dom 𝐼 = (Base‘𝐾)) |
26 | 9, 25 | syl5sseq 3616 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → (◡𝐼 “ 𝑆) ⊆ (Base‘𝐾)) |
27 | | simprr 792 |
. . . . . . 7
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → 𝑆 ≠ ∅) |
28 | | n0 3890 |
. . . . . . 7
⊢ (𝑆 ≠ ∅ ↔
∃𝑦 𝑦 ∈ 𝑆) |
29 | 27, 28 | sylib 207 |
. . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → ∃𝑦 𝑦 ∈ 𝑆) |
30 | 18 | sselda 3568 |
. . . . . . . 8
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑦 ∈ 𝑆) → 𝑦 ∈ ran 𝐼) |
31 | 25 | fneq2d 5896 |
. . . . . . . . . . 11
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → (𝐼 Fn dom 𝐼 ↔ 𝐼 Fn (Base‘𝐾))) |
32 | 15, 31 | mpbird 246 |
. . . . . . . . . 10
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → 𝐼 Fn dom 𝐼) |
33 | 32 | adantr 480 |
. . . . . . . . 9
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑦 ∈ 𝑆) → 𝐼 Fn dom 𝐼) |
34 | | fvelrnb 6153 |
. . . . . . . . 9
⊢ (𝐼 Fn dom 𝐼 → (𝑦 ∈ ran 𝐼 ↔ ∃𝑥 ∈ dom 𝐼(𝐼‘𝑥) = 𝑦)) |
35 | 33, 34 | syl 17 |
. . . . . . . 8
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑦 ∈ 𝑆) → (𝑦 ∈ ran 𝐼 ↔ ∃𝑥 ∈ dom 𝐼(𝐼‘𝑥) = 𝑦)) |
36 | 30, 35 | mpbid 221 |
. . . . . . 7
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑦 ∈ 𝑆) → ∃𝑥 ∈ dom 𝐼(𝐼‘𝑥) = 𝑦) |
37 | | fnfun 5902 |
. . . . . . . . . . . . . . 15
⊢ (𝐼 Fn (Base‘𝐾) → Fun 𝐼) |
38 | 15, 37 | syl 17 |
. . . . . . . . . . . . . 14
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → Fun 𝐼) |
39 | | fvimacnv 6240 |
. . . . . . . . . . . . . 14
⊢ ((Fun
𝐼 ∧ 𝑥 ∈ dom 𝐼) → ((𝐼‘𝑥) ∈ 𝑆 ↔ 𝑥 ∈ (◡𝐼 “ 𝑆))) |
40 | 38, 39 | sylan 487 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ dom 𝐼) → ((𝐼‘𝑥) ∈ 𝑆 ↔ 𝑥 ∈ (◡𝐼 “ 𝑆))) |
41 | | ne0i 3880 |
. . . . . . . . . . . . 13
⊢ (𝑥 ∈ (◡𝐼 “ 𝑆) → (◡𝐼 “ 𝑆) ≠ ∅) |
42 | 40, 41 | syl6bi 242 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ dom 𝐼) → ((𝐼‘𝑥) ∈ 𝑆 → (◡𝐼 “ 𝑆) ≠ ∅)) |
43 | 42 | ex 449 |
. . . . . . . . . . 11
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → (𝑥 ∈ dom 𝐼 → ((𝐼‘𝑥) ∈ 𝑆 → (◡𝐼 “ 𝑆) ≠ ∅))) |
44 | | eleq1 2676 |
. . . . . . . . . . . . 13
⊢ ((𝐼‘𝑥) = 𝑦 → ((𝐼‘𝑥) ∈ 𝑆 ↔ 𝑦 ∈ 𝑆)) |
45 | 44 | biimprd 237 |
. . . . . . . . . . . 12
⊢ ((𝐼‘𝑥) = 𝑦 → (𝑦 ∈ 𝑆 → (𝐼‘𝑥) ∈ 𝑆)) |
46 | 45 | imim1d 80 |
. . . . . . . . . . 11
⊢ ((𝐼‘𝑥) = 𝑦 → (((𝐼‘𝑥) ∈ 𝑆 → (◡𝐼 “ 𝑆) ≠ ∅) → (𝑦 ∈ 𝑆 → (◡𝐼 “ 𝑆) ≠ ∅))) |
47 | 43, 46 | syl9 75 |
. . . . . . . . . 10
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → ((𝐼‘𝑥) = 𝑦 → (𝑥 ∈ dom 𝐼 → (𝑦 ∈ 𝑆 → (◡𝐼 “ 𝑆) ≠ ∅)))) |
48 | 47 | com24 93 |
. . . . . . . . 9
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → (𝑦 ∈ 𝑆 → (𝑥 ∈ dom 𝐼 → ((𝐼‘𝑥) = 𝑦 → (◡𝐼 “ 𝑆) ≠ ∅)))) |
49 | 48 | imp 444 |
. . . . . . . 8
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑦 ∈ 𝑆) → (𝑥 ∈ dom 𝐼 → ((𝐼‘𝑥) = 𝑦 → (◡𝐼 “ 𝑆) ≠ ∅))) |
50 | 49 | rexlimdv 3012 |
. . . . . . 7
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑦 ∈ 𝑆) → (∃𝑥 ∈ dom 𝐼(𝐼‘𝑥) = 𝑦 → (◡𝐼 “ 𝑆) ≠ ∅)) |
51 | 36, 50 | mpd 15 |
. . . . . 6
⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑦 ∈ 𝑆) → (◡𝐼 “ 𝑆) ≠ ∅) |
52 | 29, 51 | exlimddv 1850 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → (◡𝐼 “ 𝑆) ≠ ∅) |
53 | | eqid 2610 |
. . . . . 6
⊢
(glb‘𝐾) =
(glb‘𝐾) |
54 | 1, 53, 2, 3 | dihglb 35648 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((◡𝐼 “ 𝑆) ⊆ (Base‘𝐾) ∧ (◡𝐼 “ 𝑆) ≠ ∅)) → (𝐼‘((glb‘𝐾)‘(◡𝐼 “ 𝑆))) = ∩
𝑦 ∈ (◡𝐼 “ 𝑆)(𝐼‘𝑦)) |
55 | 24, 26, 52, 54 | syl12anc 1316 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → (𝐼‘((glb‘𝐾)‘(◡𝐼 “ 𝑆))) = ∩
𝑦 ∈ (◡𝐼 “ 𝑆)(𝐼‘𝑦)) |
56 | | fvres 6117 |
. . . . 5
⊢ (𝑦 ∈ (◡𝐼 “ 𝑆) → ((𝐼 ↾ (◡𝐼 “ 𝑆))‘𝑦) = (𝐼‘𝑦)) |
57 | 56 | iineq2i 4476 |
. . . 4
⊢ ∩ 𝑦 ∈ (◡𝐼 “ 𝑆)((𝐼 ↾ (◡𝐼 “ 𝑆))‘𝑦) = ∩ 𝑦 ∈ (◡𝐼 “ 𝑆)(𝐼‘𝑦) |
58 | 55, 57 | syl6eqr 2662 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → (𝐼‘((glb‘𝐾)‘(◡𝐼 “ 𝑆))) = ∩
𝑦 ∈ (◡𝐼 “ 𝑆)((𝐼 ↾ (◡𝐼 “ 𝑆))‘𝑦)) |
59 | | hlclat 33663 |
. . . . . 6
⊢ (𝐾 ∈ HL → 𝐾 ∈ CLat) |
60 | 59 | ad2antrr 758 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → 𝐾 ∈ CLat) |
61 | 1, 53 | clatglbcl 16937 |
. . . . 5
⊢ ((𝐾 ∈ CLat ∧ (◡𝐼 “ 𝑆) ⊆ (Base‘𝐾)) → ((glb‘𝐾)‘(◡𝐼 “ 𝑆)) ∈ (Base‘𝐾)) |
62 | 60, 26, 61 | syl2anc 691 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → ((glb‘𝐾)‘(◡𝐼 “ 𝑆)) ∈ (Base‘𝐾)) |
63 | 1, 2, 3 | dihcl 35577 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((glb‘𝐾)‘(◡𝐼 “ 𝑆)) ∈ (Base‘𝐾)) → (𝐼‘((glb‘𝐾)‘(◡𝐼 “ 𝑆))) ∈ ran 𝐼) |
64 | 62, 63 | syldan 486 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → (𝐼‘((glb‘𝐾)‘(◡𝐼 “ 𝑆))) ∈ ran 𝐼) |
65 | 58, 64 | eqeltrrd 2689 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → ∩ 𝑦 ∈ (◡𝐼 “ 𝑆)((𝐼 ↾ (◡𝐼 “ 𝑆))‘𝑦) ∈ ran 𝐼) |
66 | 23, 65 | eqeltrrd 2689 |
1
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ ran 𝐼 ∧ 𝑆 ≠ ∅)) → ∩ 𝑆
∈ ran 𝐼) |