Proof of Theorem mclsssvlem
Step | Hyp | Ref
| Expression |
1 | | mclsval.3 |
. . . 4
⊢ (𝜑 → 𝐵 ⊆ 𝐸) |
2 | | mclsval.1 |
. . . . . 6
⊢ (𝜑 → 𝑇 ∈ mFS) |
3 | | eqid 2738 |
. . . . . . 7
⊢
(mVR‘𝑇) =
(mVR‘𝑇) |
4 | | mclsval.e |
. . . . . . 7
⊢ 𝐸 = (mEx‘𝑇) |
5 | | mclsval.h |
. . . . . . 7
⊢ 𝐻 = (mVH‘𝑇) |
6 | 3, 4, 5 | mvhf 33520 |
. . . . . 6
⊢ (𝑇 ∈ mFS → 𝐻:(mVR‘𝑇)⟶𝐸) |
7 | 2, 6 | syl 17 |
. . . . 5
⊢ (𝜑 → 𝐻:(mVR‘𝑇)⟶𝐸) |
8 | 7 | frnd 6608 |
. . . 4
⊢ (𝜑 → ran 𝐻 ⊆ 𝐸) |
9 | 1, 8 | unssd 4120 |
. . 3
⊢ (𝜑 → (𝐵 ∪ ran 𝐻) ⊆ 𝐸) |
10 | | mclsval.s |
. . . . . . . . . 10
⊢ 𝑆 = (mSubst‘𝑇) |
11 | 10, 4 | msubf 33494 |
. . . . . . . . 9
⊢ (𝑠 ∈ ran 𝑆 → 𝑠:𝐸⟶𝐸) |
12 | | mclsval.a |
. . . . . . . . . . . . . 14
⊢ 𝐴 = (mAx‘𝑇) |
13 | | eqid 2738 |
. . . . . . . . . . . . . 14
⊢
(mStat‘𝑇) =
(mStat‘𝑇) |
14 | 12, 13 | maxsta 33516 |
. . . . . . . . . . . . 13
⊢ (𝑇 ∈ mFS → 𝐴 ⊆ (mStat‘𝑇)) |
15 | 2, 14 | syl 17 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐴 ⊆ (mStat‘𝑇)) |
16 | | eqid 2738 |
. . . . . . . . . . . . 13
⊢
(mPreSt‘𝑇) =
(mPreSt‘𝑇) |
17 | 16, 13 | mstapst 33509 |
. . . . . . . . . . . 12
⊢
(mStat‘𝑇)
⊆ (mPreSt‘𝑇) |
18 | 15, 17 | sstrdi 3933 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐴 ⊆ (mPreSt‘𝑇)) |
19 | 18 | sselda 3921 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴) → 〈𝑚, 𝑜, 𝑝〉 ∈ (mPreSt‘𝑇)) |
20 | | mclsval.d |
. . . . . . . . . . . 12
⊢ 𝐷 = (mDV‘𝑇) |
21 | 20, 4, 16 | elmpst 33498 |
. . . . . . . . . . 11
⊢
(〈𝑚, 𝑜, 𝑝〉 ∈ (mPreSt‘𝑇) ↔ ((𝑚 ⊆ 𝐷 ∧ ◡𝑚 = 𝑚) ∧ (𝑜 ⊆ 𝐸 ∧ 𝑜 ∈ Fin) ∧ 𝑝 ∈ 𝐸)) |
22 | 21 | simp3bi 1146 |
. . . . . . . . . 10
⊢
(〈𝑚, 𝑜, 𝑝〉 ∈ (mPreSt‘𝑇) → 𝑝 ∈ 𝐸) |
23 | 19, 22 | syl 17 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴) → 𝑝 ∈ 𝐸) |
24 | | ffvelrn 6959 |
. . . . . . . . 9
⊢ ((𝑠:𝐸⟶𝐸 ∧ 𝑝 ∈ 𝐸) → (𝑠‘𝑝) ∈ 𝐸) |
25 | 11, 23, 24 | syl2anr 597 |
. . . . . . . 8
⊢ (((𝜑 ∧ 〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴) ∧ 𝑠 ∈ ran 𝑆) → (𝑠‘𝑝) ∈ 𝐸) |
26 | 25 | a1d 25 |
. . . . . . 7
⊢ (((𝜑 ∧ 〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴) ∧ 𝑠 ∈ ran 𝑆) → (((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸)) |
27 | 26 | ralrimiva 3103 |
. . . . . 6
⊢ ((𝜑 ∧ 〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴) → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸)) |
28 | 27 | ex 413 |
. . . . 5
⊢ (𝜑 → (〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸))) |
29 | 28 | alrimiv 1930 |
. . . 4
⊢ (𝜑 → ∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸))) |
30 | 29 | alrimivv 1931 |
. . 3
⊢ (𝜑 → ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸))) |
31 | 4 | fvexi 6788 |
. . . 4
⊢ 𝐸 ∈ V |
32 | | sseq2 3947 |
. . . . 5
⊢ (𝑐 = 𝐸 → ((𝐵 ∪ ran 𝐻) ⊆ 𝑐 ↔ (𝐵 ∪ ran 𝐻) ⊆ 𝐸)) |
33 | | sseq2 3947 |
. . . . . . . . . . 11
⊢ (𝑐 = 𝐸 → ((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ↔ (𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸)) |
34 | 33 | anbi1d 630 |
. . . . . . . . . 10
⊢ (𝑐 = 𝐸 → (((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) ↔ ((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)))) |
35 | | eleq2 2827 |
. . . . . . . . . 10
⊢ (𝑐 = 𝐸 → ((𝑠‘𝑝) ∈ 𝑐 ↔ (𝑠‘𝑝) ∈ 𝐸)) |
36 | 34, 35 | imbi12d 345 |
. . . . . . . . 9
⊢ (𝑐 = 𝐸 → ((((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐) ↔ (((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸))) |
37 | 36 | ralbidv 3112 |
. . . . . . . 8
⊢ (𝑐 = 𝐸 → (∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐) ↔ ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸))) |
38 | 37 | imbi2d 341 |
. . . . . . 7
⊢ (𝑐 = 𝐸 → ((〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)) ↔ (〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸)))) |
39 | 38 | albidv 1923 |
. . . . . 6
⊢ (𝑐 = 𝐸 → (∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)) ↔ ∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸)))) |
40 | 39 | 2albidv 1926 |
. . . . 5
⊢ (𝑐 = 𝐸 → (∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)) ↔ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸)))) |
41 | 32, 40 | anbi12d 631 |
. . . 4
⊢ (𝑐 = 𝐸 → (((𝐵 ∪ ran 𝐻) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐))) ↔ ((𝐵 ∪ ran 𝐻) ⊆ 𝐸 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸))))) |
42 | 31, 41 | elab 3609 |
. . 3
⊢ (𝐸 ∈ {𝑐 ∣ ((𝐵 ∪ ran 𝐻) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)))} ↔ ((𝐵 ∪ ran 𝐻) ⊆ 𝐸 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸)))) |
43 | 9, 30, 42 | sylanbrc 583 |
. 2
⊢ (𝜑 → 𝐸 ∈ {𝑐 ∣ ((𝐵 ∪ ran 𝐻) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)))}) |
44 | | intss1 4894 |
. 2
⊢ (𝐸 ∈ {𝑐 ∣ ((𝐵 ∪ ran 𝐻) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)))} → ∩
{𝑐 ∣ ((𝐵 ∪ ran 𝐻) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)))} ⊆ 𝐸) |
45 | 43, 44 | syl 17 |
1
⊢ (𝜑 → ∩ {𝑐
∣ ((𝐵 ∪ ran 𝐻) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)))} ⊆ 𝐸) |