| Step | Hyp | Ref
| Expression |
| 1 | | esplyfvn.11 |
. . . . . . . . 9
⊢ (𝜑 → 𝐼 ∈ Fin) |
| 2 | | esplyfvn.13 |
. . . . . . . . 9
⊢ (𝜑 → 𝑌 ∈ 𝐼) |
| 3 | | hashdifsn 14337 |
. . . . . . . . 9
⊢ ((𝐼 ∈ Fin ∧ 𝑌 ∈ 𝐼) → (♯‘(𝐼 ∖ {𝑌})) = ((♯‘𝐼) − 1)) |
| 4 | 1, 2, 3 | syl2anc 584 |
. . . . . . . 8
⊢ (𝜑 → (♯‘(𝐼 ∖ {𝑌})) = ((♯‘𝐼) − 1)) |
| 5 | | esplyfvn.9 |
. . . . . . . . 9
⊢ 𝐾 = (♯‘𝐽) |
| 6 | | esplyfvn.10 |
. . . . . . . . . 10
⊢ 𝐽 = (𝐼 ∖ {𝑌}) |
| 7 | 6 | fveq2i 6837 |
. . . . . . . . 9
⊢
(♯‘𝐽) =
(♯‘(𝐼 ∖
{𝑌})) |
| 8 | 5, 7 | eqtri 2759 |
. . . . . . . 8
⊢ 𝐾 = (♯‘(𝐼 ∖ {𝑌})) |
| 9 | | esplyfvn.8 |
. . . . . . . . 9
⊢ 𝐻 = (♯‘𝐼) |
| 10 | 9 | oveq1i 7368 |
. . . . . . . 8
⊢ (𝐻 − 1) =
((♯‘𝐼) −
1) |
| 11 | 4, 8, 10 | 3eqtr4g 2796 |
. . . . . . 7
⊢ (𝜑 → 𝐾 = (𝐻 − 1)) |
| 12 | 11 | oveq1d 7373 |
. . . . . 6
⊢ (𝜑 → (𝐾 + 1) = ((𝐻 − 1) + 1)) |
| 13 | | hashcl 14279 |
. . . . . . . . . 10
⊢ (𝐼 ∈ Fin →
(♯‘𝐼) ∈
ℕ0) |
| 14 | 1, 13 | syl 17 |
. . . . . . . . 9
⊢ (𝜑 → (♯‘𝐼) ∈
ℕ0) |
| 15 | 9, 14 | eqeltrid 2840 |
. . . . . . . 8
⊢ (𝜑 → 𝐻 ∈
ℕ0) |
| 16 | 15 | nn0cnd 12464 |
. . . . . . 7
⊢ (𝜑 → 𝐻 ∈ ℂ) |
| 17 | | 1cnd 11127 |
. . . . . . 7
⊢ (𝜑 → 1 ∈
ℂ) |
| 18 | 16, 17 | npcand 11496 |
. . . . . 6
⊢ (𝜑 → ((𝐻 − 1) + 1) = 𝐻) |
| 19 | 12, 18 | eqtr2d 2772 |
. . . . 5
⊢ (𝜑 → 𝐻 = (𝐾 + 1)) |
| 20 | 19 | fveq2d 6838 |
. . . 4
⊢ (𝜑 → (𝐸‘𝐻) = (𝐸‘(𝐾 + 1))) |
| 21 | 20 | fveq2d 6838 |
. . 3
⊢ (𝜑 → (𝑄‘(𝐸‘𝐻)) = (𝑄‘(𝐸‘(𝐾 + 1)))) |
| 22 | 21 | fveq1d 6836 |
. 2
⊢ (𝜑 → ((𝑄‘(𝐸‘𝐻))‘𝑍) = ((𝑄‘(𝐸‘(𝐾 + 1)))‘𝑍)) |
| 23 | | esplyfvn.3 |
. . 3
⊢ · =
(.r‘𝑅) |
| 24 | | esplyfvn.12 |
. . 3
⊢ (𝜑 → 𝑅 ∈ CRing) |
| 25 | | esplyfvn.7 |
. . 3
⊢ 𝐹 = (𝐽eSymPoly𝑅) |
| 26 | | difssd 4089 |
. . . . . . . . 9
⊢ (𝜑 → (𝐼 ∖ {𝑌}) ⊆ 𝐼) |
| 27 | 6, 26 | eqsstrid 3972 |
. . . . . . . 8
⊢ (𝜑 → 𝐽 ⊆ 𝐼) |
| 28 | 1, 27 | ssfid 9169 |
. . . . . . 7
⊢ (𝜑 → 𝐽 ∈ Fin) |
| 29 | | hashcl 14279 |
. . . . . . 7
⊢ (𝐽 ∈ Fin →
(♯‘𝐽) ∈
ℕ0) |
| 30 | 28, 29 | syl 17 |
. . . . . 6
⊢ (𝜑 → (♯‘𝐽) ∈
ℕ0) |
| 31 | 5, 30 | eqeltrid 2840 |
. . . . 5
⊢ (𝜑 → 𝐾 ∈
ℕ0) |
| 32 | | nn0fz0 13541 |
. . . . 5
⊢ (𝐾 ∈ ℕ0
↔ 𝐾 ∈ (0...𝐾)) |
| 33 | 31, 32 | sylib 218 |
. . . 4
⊢ (𝜑 → 𝐾 ∈ (0...𝐾)) |
| 34 | 5 | oveq2i 7369 |
. . . 4
⊢
(0...𝐾) =
(0...(♯‘𝐽)) |
| 35 | 33, 34 | eleqtrdi 2846 |
. . 3
⊢ (𝜑 → 𝐾 ∈ (0...(♯‘𝐽))) |
| 36 | | eqid 2736 |
. . 3
⊢ {ℎ ∈ (ℕ0
↑m 𝐽)
∣ ℎ finSupp 0} =
{ℎ ∈
(ℕ0 ↑m 𝐽) ∣ ℎ finSupp 0} |
| 37 | | esplyfvn.6 |
. . . 4
⊢ 𝐸 = (𝐼eSymPoly𝑅) |
| 38 | 37 | fveq1i 6835 |
. . 3
⊢ (𝐸‘(𝐾 + 1)) = ((𝐼eSymPoly𝑅)‘(𝐾 + 1)) |
| 39 | | esplyfvn.1 |
. . 3
⊢ 𝐵 = (Base‘𝑅) |
| 40 | | esplyfvn.4 |
. . 3
⊢ 𝑄 = (𝐼 eval 𝑅) |
| 41 | | esplyfvn.5 |
. . 3
⊢ 𝑂 = (𝐽 eval 𝑅) |
| 42 | | esplyfvn.2 |
. . 3
⊢ + =
(+g‘𝑅) |
| 43 | | esplyfvn.14 |
. . 3
⊢ (𝜑 → 𝑍:𝐼⟶𝐵) |
| 44 | 23, 1, 24, 2, 6, 25, 35, 36, 38, 39, 40, 41, 42, 43 | esplyindfv 33732 |
. 2
⊢ (𝜑 → ((𝑄‘(𝐸‘(𝐾 + 1)))‘𝑍) = (((𝑍‘𝑌) · ((𝑂‘(𝐹‘𝐾))‘(𝑍 ↾ 𝐽))) + ((𝑂‘(𝐹‘(𝐾 + 1)))‘(𝑍 ↾ 𝐽)))) |
| 45 | 25 | fveq1i 6835 |
. . . . . . . . 9
⊢ (𝐹‘(𝐾 + 1)) = ((𝐽eSymPoly𝑅)‘(𝐾 + 1)) |
| 46 | 24 | crngringd 20181 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑅 ∈ Ring) |
| 47 | 19, 15 | eqeltrrd 2837 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝐾 + 1) ∈
ℕ0) |
| 48 | | fzp1nel 13527 |
. . . . . . . . . . . . 13
⊢ ¬
(𝐾 + 1) ∈ (0...𝐾) |
| 49 | 48 | a1i 11 |
. . . . . . . . . . . 12
⊢ (𝜑 → ¬ (𝐾 + 1) ∈ (0...𝐾)) |
| 50 | 34 | eleq2i 2828 |
. . . . . . . . . . . 12
⊢ ((𝐾 + 1) ∈ (0...𝐾) ↔ (𝐾 + 1) ∈ (0...(♯‘𝐽))) |
| 51 | 49, 50 | sylnib 328 |
. . . . . . . . . . 11
⊢ (𝜑 → ¬ (𝐾 + 1) ∈ (0...(♯‘𝐽))) |
| 52 | 47, 51 | eldifd 3912 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐾 + 1) ∈ (ℕ0 ∖
(0...(♯‘𝐽)))) |
| 53 | | eqid 2736 |
. . . . . . . . . 10
⊢
(0g‘(𝐽 mPoly 𝑅)) = (0g‘(𝐽 mPoly 𝑅)) |
| 54 | 36, 28, 46, 52, 53 | esplyfval2 33723 |
. . . . . . . . 9
⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘(𝐾 + 1)) = (0g‘(𝐽 mPoly 𝑅))) |
| 55 | 45, 54 | eqtrid 2783 |
. . . . . . . 8
⊢ (𝜑 → (𝐹‘(𝐾 + 1)) = (0g‘(𝐽 mPoly 𝑅))) |
| 56 | | eqid 2736 |
. . . . . . . . 9
⊢ (𝐽 mPoly 𝑅) = (𝐽 mPoly 𝑅) |
| 57 | | eqid 2736 |
. . . . . . . . 9
⊢
(algSc‘(𝐽
mPoly 𝑅)) =
(algSc‘(𝐽 mPoly 𝑅)) |
| 58 | | eqid 2736 |
. . . . . . . . 9
⊢
(0g‘𝑅) = (0g‘𝑅) |
| 59 | 56, 57, 58, 53, 28, 46 | mplascl0 21980 |
. . . . . . . 8
⊢ (𝜑 → ((algSc‘(𝐽 mPoly 𝑅))‘(0g‘𝑅)) = (0g‘(𝐽 mPoly 𝑅))) |
| 60 | 55, 59 | eqtr4d 2774 |
. . . . . . 7
⊢ (𝜑 → (𝐹‘(𝐾 + 1)) = ((algSc‘(𝐽 mPoly 𝑅))‘(0g‘𝑅))) |
| 61 | 60 | fveq2d 6838 |
. . . . . 6
⊢ (𝜑 → (𝑂‘(𝐹‘(𝐾 + 1))) = (𝑂‘((algSc‘(𝐽 mPoly 𝑅))‘(0g‘𝑅)))) |
| 62 | 61 | fveq1d 6836 |
. . . . 5
⊢ (𝜑 → ((𝑂‘(𝐹‘(𝐾 + 1)))‘(𝑍 ↾ 𝐽)) = ((𝑂‘((algSc‘(𝐽 mPoly 𝑅))‘(0g‘𝑅)))‘(𝑍 ↾ 𝐽))) |
| 63 | 24 | crnggrpd 20182 |
. . . . . . 7
⊢ (𝜑 → 𝑅 ∈ Grp) |
| 64 | 39, 58 | grpidcl 18895 |
. . . . . . 7
⊢ (𝑅 ∈ Grp →
(0g‘𝑅)
∈ 𝐵) |
| 65 | 63, 64 | syl 17 |
. . . . . 6
⊢ (𝜑 → (0g‘𝑅) ∈ 𝐵) |
| 66 | 43, 27 | fssresd 6701 |
. . . . . 6
⊢ (𝜑 → (𝑍 ↾ 𝐽):𝐽⟶𝐵) |
| 67 | 41, 56, 39, 57, 28, 24, 65, 66 | evlscaval 33705 |
. . . . 5
⊢ (𝜑 → ((𝑂‘((algSc‘(𝐽 mPoly 𝑅))‘(0g‘𝑅)))‘(𝑍 ↾ 𝐽)) = (0g‘𝑅)) |
| 68 | 62, 67 | eqtrd 2771 |
. . . 4
⊢ (𝜑 → ((𝑂‘(𝐹‘(𝐾 + 1)))‘(𝑍 ↾ 𝐽)) = (0g‘𝑅)) |
| 69 | 68 | oveq2d 7374 |
. . 3
⊢ (𝜑 → (((𝑍‘𝑌) · ((𝑂‘(𝐹‘𝐾))‘(𝑍 ↾ 𝐽))) + ((𝑂‘(𝐹‘(𝐾 + 1)))‘(𝑍 ↾ 𝐽))) = (((𝑍‘𝑌) · ((𝑂‘(𝐹‘𝐾))‘(𝑍 ↾ 𝐽))) + (0g‘𝑅))) |
| 70 | 43, 2 | ffvelcdmd 7030 |
. . . . 5
⊢ (𝜑 → (𝑍‘𝑌) ∈ 𝐵) |
| 71 | | eqid 2736 |
. . . . . 6
⊢
(Base‘(𝐽 mPoly
𝑅)) = (Base‘(𝐽 mPoly 𝑅)) |
| 72 | 25 | fveq1i 6835 |
. . . . . . 7
⊢ (𝐹‘𝐾) = ((𝐽eSymPoly𝑅)‘𝐾) |
| 73 | 36, 28, 46, 31, 71 | esplympl 33725 |
. . . . . . 7
⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘𝐾) ∈ (Base‘(𝐽 mPoly 𝑅))) |
| 74 | 72, 73 | eqeltrid 2840 |
. . . . . 6
⊢ (𝜑 → (𝐹‘𝐾) ∈ (Base‘(𝐽 mPoly 𝑅))) |
| 75 | 39 | fvexi 6848 |
. . . . . . . 8
⊢ 𝐵 ∈ V |
| 76 | 75 | a1i 11 |
. . . . . . 7
⊢ (𝜑 → 𝐵 ∈ V) |
| 77 | 76, 28, 66 | elmapdd 8778 |
. . . . . 6
⊢ (𝜑 → (𝑍 ↾ 𝐽) ∈ (𝐵 ↑m 𝐽)) |
| 78 | 41, 56, 71, 39, 28, 24, 74, 77 | evlcl 22057 |
. . . . 5
⊢ (𝜑 → ((𝑂‘(𝐹‘𝐾))‘(𝑍 ↾ 𝐽)) ∈ 𝐵) |
| 79 | 39, 23, 46, 70, 78 | ringcld 20195 |
. . . 4
⊢ (𝜑 → ((𝑍‘𝑌) · ((𝑂‘(𝐹‘𝐾))‘(𝑍 ↾ 𝐽))) ∈ 𝐵) |
| 80 | 39, 42, 58, 63, 79 | grpridd 18900 |
. . 3
⊢ (𝜑 → (((𝑍‘𝑌) · ((𝑂‘(𝐹‘𝐾))‘(𝑍 ↾ 𝐽))) + (0g‘𝑅)) = ((𝑍‘𝑌) · ((𝑂‘(𝐹‘𝐾))‘(𝑍 ↾ 𝐽)))) |
| 81 | 69, 80 | eqtrd 2771 |
. 2
⊢ (𝜑 → (((𝑍‘𝑌) · ((𝑂‘(𝐹‘𝐾))‘(𝑍 ↾ 𝐽))) + ((𝑂‘(𝐹‘(𝐾 + 1)))‘(𝑍 ↾ 𝐽))) = ((𝑍‘𝑌) · ((𝑂‘(𝐹‘𝐾))‘(𝑍 ↾ 𝐽)))) |
| 82 | 22, 44, 81 | 3eqtrd 2775 |
1
⊢ (𝜑 → ((𝑄‘(𝐸‘𝐻))‘𝑍) = ((𝑍‘𝑌) · ((𝑂‘(𝐹‘𝐾))‘(𝑍 ↾ 𝐽)))) |