Proof of Theorem mclsssvlem
| Step | Hyp | Ref
| Expression |
| 1 | | mclsval.3 |
. . . 4
⊢ (𝜑 → 𝐵 ⊆ 𝐸) |
| 2 | | mclsval.1 |
. . . . . 6
⊢ (𝜑 → 𝑇 ∈ mFS) |
| 3 | | eqid 2734 |
. . . . . . 7
⊢
(mVR‘𝑇) =
(mVR‘𝑇) |
| 4 | | mclsval.e |
. . . . . . 7
⊢ 𝐸 = (mEx‘𝑇) |
| 5 | | mclsval.h |
. . . . . . 7
⊢ 𝐻 = (mVH‘𝑇) |
| 6 | 3, 4, 5 | mvhf 35504 |
. . . . . 6
⊢ (𝑇 ∈ mFS → 𝐻:(mVR‘𝑇)⟶𝐸) |
| 7 | 2, 6 | syl 17 |
. . . . 5
⊢ (𝜑 → 𝐻:(mVR‘𝑇)⟶𝐸) |
| 8 | 7 | frnd 6725 |
. . . 4
⊢ (𝜑 → ran 𝐻 ⊆ 𝐸) |
| 9 | 1, 8 | unssd 4174 |
. . 3
⊢ (𝜑 → (𝐵 ∪ ran 𝐻) ⊆ 𝐸) |
| 10 | | mclsval.s |
. . . . . . . . . 10
⊢ 𝑆 = (mSubst‘𝑇) |
| 11 | 10, 4 | msubf 35478 |
. . . . . . . . 9
⊢ (𝑠 ∈ ran 𝑆 → 𝑠:𝐸⟶𝐸) |
| 12 | | mclsval.a |
. . . . . . . . . . . . . 14
⊢ 𝐴 = (mAx‘𝑇) |
| 13 | | eqid 2734 |
. . . . . . . . . . . . . 14
⊢
(mStat‘𝑇) =
(mStat‘𝑇) |
| 14 | 12, 13 | maxsta 35500 |
. . . . . . . . . . . . 13
⊢ (𝑇 ∈ mFS → 𝐴 ⊆ (mStat‘𝑇)) |
| 15 | 2, 14 | syl 17 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐴 ⊆ (mStat‘𝑇)) |
| 16 | | eqid 2734 |
. . . . . . . . . . . . 13
⊢
(mPreSt‘𝑇) =
(mPreSt‘𝑇) |
| 17 | 16, 13 | mstapst 35493 |
. . . . . . . . . . . 12
⊢
(mStat‘𝑇)
⊆ (mPreSt‘𝑇) |
| 18 | 15, 17 | sstrdi 3978 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐴 ⊆ (mPreSt‘𝑇)) |
| 19 | 18 | sselda 3965 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴) → 〈𝑚, 𝑜, 𝑝〉 ∈ (mPreSt‘𝑇)) |
| 20 | | mclsval.d |
. . . . . . . . . . . 12
⊢ 𝐷 = (mDV‘𝑇) |
| 21 | 20, 4, 16 | elmpst 35482 |
. . . . . . . . . . 11
⊢
(〈𝑚, 𝑜, 𝑝〉 ∈ (mPreSt‘𝑇) ↔ ((𝑚 ⊆ 𝐷 ∧ ◡𝑚 = 𝑚) ∧ (𝑜 ⊆ 𝐸 ∧ 𝑜 ∈ Fin) ∧ 𝑝 ∈ 𝐸)) |
| 22 | 21 | simp3bi 1147 |
. . . . . . . . . 10
⊢
(〈𝑚, 𝑜, 𝑝〉 ∈ (mPreSt‘𝑇) → 𝑝 ∈ 𝐸) |
| 23 | 19, 22 | syl 17 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴) → 𝑝 ∈ 𝐸) |
| 24 | | ffvelcdm 7082 |
. . . . . . . . 9
⊢ ((𝑠:𝐸⟶𝐸 ∧ 𝑝 ∈ 𝐸) → (𝑠‘𝑝) ∈ 𝐸) |
| 25 | 11, 23, 24 | syl2anr 597 |
. . . . . . . 8
⊢ (((𝜑 ∧ 〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴) ∧ 𝑠 ∈ ran 𝑆) → (𝑠‘𝑝) ∈ 𝐸) |
| 26 | 25 | a1d 25 |
. . . . . . 7
⊢ (((𝜑 ∧ 〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴) ∧ 𝑠 ∈ ran 𝑆) → (((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸)) |
| 27 | 26 | ralrimiva 3133 |
. . . . . 6
⊢ ((𝜑 ∧ 〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴) → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸)) |
| 28 | 27 | ex 412 |
. . . . 5
⊢ (𝜑 → (〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸))) |
| 29 | 28 | alrimiv 1926 |
. . . 4
⊢ (𝜑 → ∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸))) |
| 30 | 29 | alrimivv 1927 |
. . 3
⊢ (𝜑 → ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸))) |
| 31 | 4 | fvexi 6901 |
. . . 4
⊢ 𝐸 ∈ V |
| 32 | | sseq2 3992 |
. . . . 5
⊢ (𝑐 = 𝐸 → ((𝐵 ∪ ran 𝐻) ⊆ 𝑐 ↔ (𝐵 ∪ ran 𝐻) ⊆ 𝐸)) |
| 33 | | sseq2 3992 |
. . . . . . . . . . 11
⊢ (𝑐 = 𝐸 → ((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ↔ (𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸)) |
| 34 | 33 | anbi1d 631 |
. . . . . . . . . 10
⊢ (𝑐 = 𝐸 → (((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) ↔ ((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)))) |
| 35 | | eleq2 2822 |
. . . . . . . . . 10
⊢ (𝑐 = 𝐸 → ((𝑠‘𝑝) ∈ 𝑐 ↔ (𝑠‘𝑝) ∈ 𝐸)) |
| 36 | 34, 35 | imbi12d 344 |
. . . . . . . . 9
⊢ (𝑐 = 𝐸 → ((((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐) ↔ (((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸))) |
| 37 | 36 | ralbidv 3165 |
. . . . . . . 8
⊢ (𝑐 = 𝐸 → (∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐) ↔ ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸))) |
| 38 | 37 | imbi2d 340 |
. . . . . . 7
⊢ (𝑐 = 𝐸 → ((〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)) ↔ (〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸)))) |
| 39 | 38 | albidv 1919 |
. . . . . 6
⊢ (𝑐 = 𝐸 → (∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)) ↔ ∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸)))) |
| 40 | 39 | 2albidv 1922 |
. . . . 5
⊢ (𝑐 = 𝐸 → (∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)) ↔ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸)))) |
| 41 | 32, 40 | anbi12d 632 |
. . . 4
⊢ (𝑐 = 𝐸 → (((𝐵 ∪ ran 𝐻) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐))) ↔ ((𝐵 ∪ ran 𝐻) ⊆ 𝐸 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸))))) |
| 42 | 31, 41 | elab 3663 |
. . 3
⊢ (𝐸 ∈ {𝑐 ∣ ((𝐵 ∪ ran 𝐻) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)))} ↔ ((𝐵 ∪ ran 𝐻) ⊆ 𝐸 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝐸 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝐸)))) |
| 43 | 9, 30, 42 | sylanbrc 583 |
. 2
⊢ (𝜑 → 𝐸 ∈ {𝑐 ∣ ((𝐵 ∪ ran 𝐻) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)))}) |
| 44 | | intss1 4945 |
. 2
⊢ (𝐸 ∈ {𝑐 ∣ ((𝐵 ∪ ran 𝐻) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)))} → ∩
{𝑐 ∣ ((𝐵 ∪ ran 𝐻) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)))} ⊆ 𝐸) |
| 45 | 43, 44 | syl 17 |
1
⊢ (𝜑 → ∩ {𝑐
∣ ((𝐵 ∪ ran 𝐻) ⊆ 𝑐 ∧ ∀𝑚∀𝑜∀𝑝(〈𝑚, 𝑜, 𝑝〉 ∈ 𝐴 → ∀𝑠 ∈ ran 𝑆(((𝑠 “ (𝑜 ∪ ran 𝐻)) ⊆ 𝑐 ∧ ∀𝑥∀𝑦(𝑥𝑚𝑦 → ((𝑉‘(𝑠‘(𝐻‘𝑥))) × (𝑉‘(𝑠‘(𝐻‘𝑦)))) ⊆ 𝐾)) → (𝑠‘𝑝) ∈ 𝑐)))} ⊆ 𝐸) |