Proof of Theorem esplyindfv
| Step | Hyp | Ref
| Expression |
| 1 | | esplyindfv.f |
. . . . 5
⊢ 𝐹 = ((𝐼eSymPoly𝑅)‘(𝐾 + 1)) |
| 2 | | eqid 2736 |
. . . . . 6
⊢ (𝐼 mPoly 𝑅) = (𝐼 mPoly 𝑅) |
| 3 | | eqid 2736 |
. . . . . 6
⊢ (𝐼 mVar 𝑅) = (𝐼 mVar 𝑅) |
| 4 | | eqid 2736 |
. . . . . 6
⊢
(+g‘(𝐼 mPoly 𝑅)) = (+g‘(𝐼 mPoly 𝑅)) |
| 5 | | eqid 2736 |
. . . . . 6
⊢
(.r‘(𝐼 mPoly 𝑅)) = (.r‘(𝐼 mPoly 𝑅)) |
| 6 | | eqid 2736 |
. . . . . 6
⊢ {ℎ ∈ (ℕ0
↑m 𝐼)
∣ ℎ finSupp 0} =
{ℎ ∈
(ℕ0 ↑m 𝐼) ∣ ℎ finSupp 0} |
| 7 | | eqid 2736 |
. . . . . 6
⊢ ((𝐼extendVars𝑅)‘𝑌) = ((𝐼extendVars𝑅)‘𝑌) |
| 8 | | esplyindfv.i |
. . . . . 6
⊢ (𝜑 → 𝐼 ∈ Fin) |
| 9 | | esplyindfv.r |
. . . . . . 7
⊢ (𝜑 → 𝑅 ∈ CRing) |
| 10 | 9 | crngringd 20181 |
. . . . . 6
⊢ (𝜑 → 𝑅 ∈ Ring) |
| 11 | | esplyindfv.y |
. . . . . 6
⊢ (𝜑 → 𝑌 ∈ 𝐼) |
| 12 | | esplyindfv.j |
. . . . . 6
⊢ 𝐽 = (𝐼 ∖ {𝑌}) |
| 13 | | esplyindfv.e |
. . . . . 6
⊢ 𝐸 = (𝐽eSymPoly𝑅) |
| 14 | | esplyindfv.k |
. . . . . . . 8
⊢ (𝜑 → 𝐾 ∈ (0...(♯‘𝐽))) |
| 15 | 14 | elfzelzd 13441 |
. . . . . . 7
⊢ (𝜑 → 𝐾 ∈ ℤ) |
| 16 | | hashcl 14279 |
. . . . . . . . 9
⊢ (𝐼 ∈ Fin →
(♯‘𝐼) ∈
ℕ0) |
| 17 | 8, 16 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → (♯‘𝐼) ∈
ℕ0) |
| 18 | 17 | nn0zd 12513 |
. . . . . . 7
⊢ (𝜑 → (♯‘𝐼) ∈
ℤ) |
| 19 | 12 | uneq1i 4116 |
. . . . . . . . . . . . . 14
⊢ (𝐽 ∪ {𝑌}) = ((𝐼 ∖ {𝑌}) ∪ {𝑌}) |
| 20 | 11 | snssd 4765 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → {𝑌} ⊆ 𝐼) |
| 21 | | undifr 4435 |
. . . . . . . . . . . . . . 15
⊢ ({𝑌} ⊆ 𝐼 ↔ ((𝐼 ∖ {𝑌}) ∪ {𝑌}) = 𝐼) |
| 22 | 20, 21 | sylib 218 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → ((𝐼 ∖ {𝑌}) ∪ {𝑌}) = 𝐼) |
| 23 | 19, 22 | eqtrid 2783 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝐽 ∪ {𝑌}) = 𝐼) |
| 24 | 23 | fveq2d 6838 |
. . . . . . . . . . . 12
⊢ (𝜑 → (♯‘(𝐽 ∪ {𝑌})) = (♯‘𝐼)) |
| 25 | | difssd 4089 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (𝐼 ∖ {𝑌}) ⊆ 𝐼) |
| 26 | 12, 25 | eqsstrid 3972 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → 𝐽 ⊆ 𝐼) |
| 27 | 8, 26 | ssfid 9169 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐽 ∈ Fin) |
| 28 | | neldifsnd 4749 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → ¬ 𝑌 ∈ (𝐼 ∖ {𝑌})) |
| 29 | 12 | eleq2i 2828 |
. . . . . . . . . . . . . 14
⊢ (𝑌 ∈ 𝐽 ↔ 𝑌 ∈ (𝐼 ∖ {𝑌})) |
| 30 | 28, 29 | sylnibr 329 |
. . . . . . . . . . . . 13
⊢ (𝜑 → ¬ 𝑌 ∈ 𝐽) |
| 31 | | hashunsng 14315 |
. . . . . . . . . . . . . 14
⊢ (𝑌 ∈ 𝐼 → ((𝐽 ∈ Fin ∧ ¬ 𝑌 ∈ 𝐽) → (♯‘(𝐽 ∪ {𝑌})) = ((♯‘𝐽) + 1))) |
| 32 | 31 | imp 406 |
. . . . . . . . . . . . 13
⊢ ((𝑌 ∈ 𝐼 ∧ (𝐽 ∈ Fin ∧ ¬ 𝑌 ∈ 𝐽)) → (♯‘(𝐽 ∪ {𝑌})) = ((♯‘𝐽) + 1)) |
| 33 | 11, 27, 30, 32 | syl12anc 836 |
. . . . . . . . . . . 12
⊢ (𝜑 → (♯‘(𝐽 ∪ {𝑌})) = ((♯‘𝐽) + 1)) |
| 34 | 24, 33 | eqtr3d 2773 |
. . . . . . . . . . 11
⊢ (𝜑 → (♯‘𝐼) = ((♯‘𝐽) + 1)) |
| 35 | 34 | oveq1d 7373 |
. . . . . . . . . 10
⊢ (𝜑 → ((♯‘𝐼) − 1) =
(((♯‘𝐽) + 1)
− 1)) |
| 36 | | hashcl 14279 |
. . . . . . . . . . . . 13
⊢ (𝐽 ∈ Fin →
(♯‘𝐽) ∈
ℕ0) |
| 37 | 27, 36 | syl 17 |
. . . . . . . . . . . 12
⊢ (𝜑 → (♯‘𝐽) ∈
ℕ0) |
| 38 | 37 | nn0cnd 12464 |
. . . . . . . . . . 11
⊢ (𝜑 → (♯‘𝐽) ∈
ℂ) |
| 39 | | 1cnd 11127 |
. . . . . . . . . . 11
⊢ (𝜑 → 1 ∈
ℂ) |
| 40 | 38, 39 | pncand 11493 |
. . . . . . . . . 10
⊢ (𝜑 → (((♯‘𝐽) + 1) − 1) =
(♯‘𝐽)) |
| 41 | 35, 40 | eqtr2d 2772 |
. . . . . . . . 9
⊢ (𝜑 → (♯‘𝐽) = ((♯‘𝐼) − 1)) |
| 42 | 41 | oveq2d 7374 |
. . . . . . . 8
⊢ (𝜑 → (0...(♯‘𝐽)) = (0...((♯‘𝐼) − 1))) |
| 43 | 14, 42 | eleqtrd 2838 |
. . . . . . 7
⊢ (𝜑 → 𝐾 ∈ (0...((♯‘𝐼) − 1))) |
| 44 | | elfzp1b 13517 |
. . . . . . . 8
⊢ ((𝐾 ∈ ℤ ∧
(♯‘𝐼) ∈
ℤ) → (𝐾 ∈
(0...((♯‘𝐼)
− 1)) ↔ (𝐾 + 1)
∈ (1...(♯‘𝐼)))) |
| 45 | 44 | biimpa 476 |
. . . . . . 7
⊢ (((𝐾 ∈ ℤ ∧
(♯‘𝐼) ∈
ℤ) ∧ 𝐾 ∈
(0...((♯‘𝐼)
− 1))) → (𝐾 + 1)
∈ (1...(♯‘𝐼))) |
| 46 | 15, 18, 43, 45 | syl21anc 837 |
. . . . . 6
⊢ (𝜑 → (𝐾 + 1) ∈ (1...(♯‘𝐼))) |
| 47 | | esplyindfv.c |
. . . . . 6
⊢ 𝐶 = {ℎ ∈ (ℕ0
↑m 𝐽)
∣ ℎ finSupp
0} |
| 48 | 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 46, 47 | esplyind 33731 |
. . . . 5
⊢ (𝜑 → ((𝐼eSymPoly𝑅)‘(𝐾 + 1)) = ((((𝐼 mVar 𝑅)‘𝑌)(.r‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) −
1))))(+g‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 + 1))))) |
| 49 | 1, 48 | eqtrid 2783 |
. . . 4
⊢ (𝜑 → 𝐹 = ((((𝐼 mVar 𝑅)‘𝑌)(.r‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) −
1))))(+g‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 + 1))))) |
| 50 | 49 | fveq2d 6838 |
. . 3
⊢ (𝜑 → (𝑄‘𝐹) = (𝑄‘((((𝐼 mVar 𝑅)‘𝑌)(.r‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) −
1))))(+g‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 + 1)))))) |
| 51 | 50 | fveq1d 6836 |
. 2
⊢ (𝜑 → ((𝑄‘𝐹)‘𝑍) = ((𝑄‘((((𝐼 mVar 𝑅)‘𝑌)(.r‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) −
1))))(+g‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 + 1)))))‘𝑍)) |
| 52 | | esplyindfv.q |
. . . 4
⊢ 𝑄 = (𝐼 eval 𝑅) |
| 53 | | esplyindfv.b |
. . . 4
⊢ 𝐵 = (Base‘𝑅) |
| 54 | | eqid 2736 |
. . . 4
⊢
(Base‘(𝐼 mPoly
𝑅)) = (Base‘(𝐼 mPoly 𝑅)) |
| 55 | | esplyindfv.p |
. . . 4
⊢ + =
(+g‘𝑅) |
| 56 | 53 | fvexi 6848 |
. . . . . 6
⊢ 𝐵 ∈ V |
| 57 | 56 | a1i 11 |
. . . . 5
⊢ (𝜑 → 𝐵 ∈ V) |
| 58 | | esplyindfv.z |
. . . . 5
⊢ (𝜑 → 𝑍:𝐼⟶𝐵) |
| 59 | 57, 8, 58 | elmapdd 8778 |
. . . 4
⊢ (𝜑 → 𝑍 ∈ (𝐵 ↑m 𝐼)) |
| 60 | | esplyindfv.m |
. . . . 5
⊢ · =
(.r‘𝑅) |
| 61 | 52, 2, 53, 54, 5, 60, 8, 9, 59, 3, 11 | evlvarval 33706 |
. . . . 5
⊢ (𝜑 → (((𝐼 mVar 𝑅)‘𝑌) ∈ (Base‘(𝐼 mPoly 𝑅)) ∧ ((𝑄‘((𝐼 mVar 𝑅)‘𝑌))‘𝑍) = (𝑍‘𝑌))) |
| 62 | | eqid 2736 |
. . . . . . 7
⊢
(0g‘𝑅) = (0g‘𝑅) |
| 63 | | eqid 2736 |
. . . . . . 7
⊢
(Base‘(𝐽 mPoly
𝑅)) = (Base‘(𝐽 mPoly 𝑅)) |
| 64 | 15 | zcnd 12597 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐾 ∈ ℂ) |
| 65 | 64, 39 | pncand 11493 |
. . . . . . . . 9
⊢ (𝜑 → ((𝐾 + 1) − 1) = 𝐾) |
| 66 | 65 | fveq2d 6838 |
. . . . . . . 8
⊢ (𝜑 → (𝐸‘((𝐾 + 1) − 1)) = (𝐸‘𝐾)) |
| 67 | 13 | fveq1i 6835 |
. . . . . . . . 9
⊢ (𝐸‘𝐾) = ((𝐽eSymPoly𝑅)‘𝐾) |
| 68 | | fz0ssnn0 13538 |
. . . . . . . . . . 11
⊢
(0...(♯‘𝐽)) ⊆
ℕ0 |
| 69 | 68, 14 | sselid 3931 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐾 ∈
ℕ0) |
| 70 | 47, 27, 10, 69, 63 | esplympl 33725 |
. . . . . . . . 9
⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘𝐾) ∈ (Base‘(𝐽 mPoly 𝑅))) |
| 71 | 67, 70 | eqeltrid 2840 |
. . . . . . . 8
⊢ (𝜑 → (𝐸‘𝐾) ∈ (Base‘(𝐽 mPoly 𝑅))) |
| 72 | 66, 71 | eqeltrd 2836 |
. . . . . . 7
⊢ (𝜑 → (𝐸‘((𝐾 + 1) − 1)) ∈ (Base‘(𝐽 mPoly 𝑅))) |
| 73 | 6, 62, 8, 10, 53, 12, 63, 11, 72, 54 | extvfvcl 33701 |
. . . . . 6
⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) − 1))) ∈ (Base‘(𝐼 mPoly 𝑅))) |
| 74 | 66 | fveq2d 6838 |
. . . . . . . . 9
⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) − 1))) = (((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘𝐾))) |
| 75 | 74 | fveq2d 6838 |
. . . . . . . 8
⊢ (𝜑 → (𝑄‘(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) − 1)))) = (𝑄‘(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘𝐾)))) |
| 76 | 75 | fveq1d 6836 |
. . . . . . 7
⊢ (𝜑 → ((𝑄‘(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) − 1))))‘𝑍) = ((𝑄‘(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘𝐾)))‘𝑍)) |
| 77 | | esplyindfv.o |
. . . . . . . 8
⊢ 𝑂 = (𝐽 eval 𝑅) |
| 78 | | eqid 2736 |
. . . . . . . 8
⊢ (𝐼extendVars𝑅) = (𝐼extendVars𝑅) |
| 79 | 52, 77, 12, 63, 53, 78, 9, 8, 11, 71, 58 | evlextv 33707 |
. . . . . . 7
⊢ (𝜑 → ((𝑄‘(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘𝐾)))‘𝑍) = ((𝑂‘(𝐸‘𝐾))‘(𝑍 ↾ 𝐽))) |
| 80 | 76, 79 | eqtrd 2771 |
. . . . . 6
⊢ (𝜑 → ((𝑄‘(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) − 1))))‘𝑍) = ((𝑂‘(𝐸‘𝐾))‘(𝑍 ↾ 𝐽))) |
| 81 | 73, 80 | jca 511 |
. . . . 5
⊢ (𝜑 → ((((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) − 1))) ∈ (Base‘(𝐼 mPoly 𝑅)) ∧ ((𝑄‘(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) − 1))))‘𝑍) = ((𝑂‘(𝐸‘𝐾))‘(𝑍 ↾ 𝐽)))) |
| 82 | 52, 2, 53, 54, 5, 60, 8, 9, 59, 61, 81 | evlmulval 22059 |
. . . 4
⊢ (𝜑 → ((((𝐼 mVar 𝑅)‘𝑌)(.r‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) − 1)))) ∈
(Base‘(𝐼 mPoly 𝑅)) ∧ ((𝑄‘(((𝐼 mVar 𝑅)‘𝑌)(.r‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) − 1)))))‘𝑍) = ((𝑍‘𝑌) · ((𝑂‘(𝐸‘𝐾))‘(𝑍 ↾ 𝐽))))) |
| 83 | 13 | fveq1i 6835 |
. . . . . . 7
⊢ (𝐸‘(𝐾 + 1)) = ((𝐽eSymPoly𝑅)‘(𝐾 + 1)) |
| 84 | | peano2nn0 12441 |
. . . . . . . . 9
⊢ (𝐾 ∈ ℕ0
→ (𝐾 + 1) ∈
ℕ0) |
| 85 | 69, 84 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → (𝐾 + 1) ∈
ℕ0) |
| 86 | 47, 27, 10, 85, 63 | esplympl 33725 |
. . . . . . 7
⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘(𝐾 + 1)) ∈ (Base‘(𝐽 mPoly 𝑅))) |
| 87 | 83, 86 | eqeltrid 2840 |
. . . . . 6
⊢ (𝜑 → (𝐸‘(𝐾 + 1)) ∈ (Base‘(𝐽 mPoly 𝑅))) |
| 88 | 6, 62, 8, 10, 53, 12, 63, 11, 87, 54 | extvfvcl 33701 |
. . . . 5
⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 + 1))) ∈ (Base‘(𝐼 mPoly 𝑅))) |
| 89 | 52, 77, 12, 63, 53, 78, 9, 8, 11, 87, 58 | evlextv 33707 |
. . . . 5
⊢ (𝜑 → ((𝑄‘(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 + 1))))‘𝑍) = ((𝑂‘(𝐸‘(𝐾 + 1)))‘(𝑍 ↾ 𝐽))) |
| 90 | 88, 89 | jca 511 |
. . . 4
⊢ (𝜑 → ((((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 + 1))) ∈ (Base‘(𝐼 mPoly 𝑅)) ∧ ((𝑄‘(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 + 1))))‘𝑍) = ((𝑂‘(𝐸‘(𝐾 + 1)))‘(𝑍 ↾ 𝐽)))) |
| 91 | 52, 2, 53, 54, 4, 55, 8, 9, 59, 82, 90 | evladdval 22058 |
. . 3
⊢ (𝜑 → (((((𝐼 mVar 𝑅)‘𝑌)(.r‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) −
1))))(+g‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 + 1)))) ∈ (Base‘(𝐼 mPoly 𝑅)) ∧ ((𝑄‘((((𝐼 mVar 𝑅)‘𝑌)(.r‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) −
1))))(+g‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 + 1)))))‘𝑍) = (((𝑍‘𝑌) · ((𝑂‘(𝐸‘𝐾))‘(𝑍 ↾ 𝐽))) + ((𝑂‘(𝐸‘(𝐾 + 1)))‘(𝑍 ↾ 𝐽))))) |
| 92 | 91 | simprd 495 |
. 2
⊢ (𝜑 → ((𝑄‘((((𝐼 mVar 𝑅)‘𝑌)(.r‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘((𝐾 + 1) −
1))))(+g‘(𝐼 mPoly 𝑅))(((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 + 1)))))‘𝑍) = (((𝑍‘𝑌) · ((𝑂‘(𝐸‘𝐾))‘(𝑍 ↾ 𝐽))) + ((𝑂‘(𝐸‘(𝐾 + 1)))‘(𝑍 ↾ 𝐽)))) |
| 93 | 51, 92 | eqtrd 2771 |
1
⊢ (𝜑 → ((𝑄‘𝐹)‘𝑍) = (((𝑍‘𝑌) · ((𝑂‘(𝐸‘𝐾))‘(𝑍 ↾ 𝐽))) + ((𝑂‘(𝐸‘(𝐾 + 1)))‘(𝑍 ↾ 𝐽)))) |