| Step | Hyp | Ref
| Expression |
| 1 | | gsumgfsumlem.m |
. . . 4
⊢ (𝜑 → 𝑁 ∈ (ℤ≥‘𝑀)) |
| 2 | | 1zzd 9499 |
. . . . 5
⊢ (𝜑 → 1 ∈
ℤ) |
| 3 | | eluzel2 9753 |
. . . . . 6
⊢ (𝑁 ∈
(ℤ≥‘𝑀) → 𝑀 ∈ ℤ) |
| 4 | 1, 3 | syl 14 |
. . . . 5
⊢ (𝜑 → 𝑀 ∈ ℤ) |
| 5 | 2, 4 | zsubcld 9600 |
. . . 4
⊢ (𝜑 → (1 − 𝑀) ∈
ℤ) |
| 6 | | eluzelz 9758 |
. . . . . . . . . . . 12
⊢ (𝑁 ∈
(ℤ≥‘𝑀) → 𝑁 ∈ ℤ) |
| 7 | 1, 6 | syl 14 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝑁 ∈ ℤ) |
| 8 | 5, 4, 7 | mptfzshft 11996 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑗 ∈ ((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀))) ↦ (𝑗 − (1 − 𝑀))):((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀)))–1-1-onto→(𝑀...𝑁)) |
| 9 | | gsumgfsumlem.s |
. . . . . . . . . . . 12
⊢ 𝑆 = (𝑗 ∈ (1...(𝑁 + (1 − 𝑀))) ↦ (𝑗 − (1 − 𝑀))) |
| 10 | 4 | zcnd 9596 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → 𝑀 ∈ ℂ) |
| 11 | | 1cnd 8188 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → 1 ∈
ℂ) |
| 12 | 10, 11 | pncan3d 8486 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑀 + (1 − 𝑀)) = 1) |
| 13 | 12 | oveq1d 6028 |
. . . . . . . . . . . . 13
⊢ (𝜑 → ((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀))) = (1...(𝑁 + (1 − 𝑀)))) |
| 14 | 13 | mpteq1d 4172 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑗 ∈ ((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀))) ↦ (𝑗 − (1 − 𝑀))) = (𝑗 ∈ (1...(𝑁 + (1 − 𝑀))) ↦ (𝑗 − (1 − 𝑀)))) |
| 15 | 9, 14 | eqtr4id 2281 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝑆 = (𝑗 ∈ ((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀))) ↦ (𝑗 − (1 − 𝑀)))) |
| 16 | 13 | eqcomd 2235 |
. . . . . . . . . . 11
⊢ (𝜑 → (1...(𝑁 + (1 − 𝑀))) = ((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀)))) |
| 17 | | eqidd 2230 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑀...𝑁) = (𝑀...𝑁)) |
| 18 | 15, 16, 17 | f1oeq123d 5574 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑆:(1...(𝑁 + (1 − 𝑀)))–1-1-onto→(𝑀...𝑁) ↔ (𝑗 ∈ ((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀))) ↦ (𝑗 − (1 − 𝑀))):((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀)))–1-1-onto→(𝑀...𝑁))) |
| 19 | 8, 18 | mpbird 167 |
. . . . . . . . 9
⊢ (𝜑 → 𝑆:(1...(𝑁 + (1 − 𝑀)))–1-1-onto→(𝑀...𝑁)) |
| 20 | | f1of 5580 |
. . . . . . . . 9
⊢ (𝑆:(1...(𝑁 + (1 − 𝑀)))–1-1-onto→(𝑀...𝑁) → 𝑆:(1...(𝑁 + (1 − 𝑀)))⟶(𝑀...𝑁)) |
| 21 | 19, 20 | syl 14 |
. . . . . . . 8
⊢ (𝜑 → 𝑆:(1...(𝑁 + (1 − 𝑀)))⟶(𝑀...𝑁)) |
| 22 | 21 | adantr 276 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 𝑆:(1...(𝑁 + (1 − 𝑀)))⟶(𝑀...𝑁)) |
| 23 | | 1zzd 9499 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 1 ∈ ℤ) |
| 24 | 7, 5 | zaddcld 9599 |
. . . . . . . . 9
⊢ (𝜑 → (𝑁 + (1 − 𝑀)) ∈ ℤ) |
| 25 | 24 | adantr 276 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝑁 + (1 − 𝑀)) ∈ ℤ) |
| 26 | | elfzelz 10253 |
. . . . . . . . . 10
⊢ (𝑘 ∈ (𝑀...𝑁) → 𝑘 ∈ ℤ) |
| 27 | 26 | adantl 277 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 𝑘 ∈ ℤ) |
| 28 | 5 | adantr 276 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (1 − 𝑀) ∈ ℤ) |
| 29 | 27, 28 | zaddcld 9599 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝑘 + (1 − 𝑀)) ∈ ℤ) |
| 30 | 4 | zred 9595 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝑀 ∈ ℝ) |
| 31 | 30 | adantr 276 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 𝑀 ∈ ℝ) |
| 32 | 27 | zred 9595 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 𝑘 ∈ ℝ) |
| 33 | | 1red 8187 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 1 ∈ ℝ) |
| 34 | | elfzle1 10255 |
. . . . . . . . . . 11
⊢ (𝑘 ∈ (𝑀...𝑁) → 𝑀 ≤ 𝑘) |
| 35 | 34 | adantl 277 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 𝑀 ≤ 𝑘) |
| 36 | 31, 32, 33, 35 | lesub2dd 8735 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (1 − 𝑘) ≤ (1 − 𝑀)) |
| 37 | 33, 31 | resubcld 8553 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (1 − 𝑀) ∈ ℝ) |
| 38 | 33, 32, 37 | lesubadd2d 8717 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → ((1 − 𝑘) ≤ (1 − 𝑀) ↔ 1 ≤ (𝑘 + (1 − 𝑀)))) |
| 39 | 36, 38 | mpbid 147 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 1 ≤ (𝑘 + (1 − 𝑀))) |
| 40 | 7 | zred 9595 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑁 ∈ ℝ) |
| 41 | 40 | adantr 276 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 𝑁 ∈ ℝ) |
| 42 | | elfzle2 10256 |
. . . . . . . . . 10
⊢ (𝑘 ∈ (𝑀...𝑁) → 𝑘 ≤ 𝑁) |
| 43 | 42 | adantl 277 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 𝑘 ≤ 𝑁) |
| 44 | 32, 41, 37, 43 | leadd1dd 8732 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝑘 + (1 − 𝑀)) ≤ (𝑁 + (1 − 𝑀))) |
| 45 | 23, 25, 29, 39, 44 | elfzd 10244 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝑘 + (1 − 𝑀)) ∈ (1...(𝑁 + (1 − 𝑀)))) |
| 46 | | fvco3 5713 |
. . . . . . 7
⊢ ((𝑆:(1...(𝑁 + (1 − 𝑀)))⟶(𝑀...𝑁) ∧ (𝑘 + (1 − 𝑀)) ∈ (1...(𝑁 + (1 − 𝑀)))) → ((𝐹 ∘ 𝑆)‘(𝑘 + (1 − 𝑀))) = (𝐹‘(𝑆‘(𝑘 + (1 − 𝑀))))) |
| 47 | 22, 45, 46 | syl2anc 411 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → ((𝐹 ∘ 𝑆)‘(𝑘 + (1 − 𝑀))) = (𝐹‘(𝑆‘(𝑘 + (1 − 𝑀))))) |
| 48 | 15 | adantr 276 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 𝑆 = (𝑗 ∈ ((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀))) ↦ (𝑗 − (1 − 𝑀)))) |
| 49 | 48 | fveq1d 5637 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝑆‘(𝑘 + (1 − 𝑀))) = ((𝑗 ∈ ((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀))) ↦ (𝑗 − (1 − 𝑀)))‘(𝑘 + (1 − 𝑀)))) |
| 50 | | eqid 2229 |
. . . . . . . . . 10
⊢ (𝑗 ∈ ((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀))) ↦ (𝑗 − (1 − 𝑀))) = (𝑗 ∈ ((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀))) ↦ (𝑗 − (1 − 𝑀))) |
| 51 | | oveq1 6020 |
. . . . . . . . . 10
⊢ (𝑗 = (𝑘 + (1 − 𝑀)) → (𝑗 − (1 − 𝑀)) = ((𝑘 + (1 − 𝑀)) − (1 − 𝑀))) |
| 52 | | simpr 110 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 𝑘 ∈ (𝑀...𝑁)) |
| 53 | 4 | adantr 276 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 𝑀 ∈ ℤ) |
| 54 | 7 | adantr 276 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 𝑁 ∈ ℤ) |
| 55 | | fzaddel 10287 |
. . . . . . . . . . . 12
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑘 ∈ ℤ ∧ (1 −
𝑀) ∈ ℤ)) →
(𝑘 ∈ (𝑀...𝑁) ↔ (𝑘 + (1 − 𝑀)) ∈ ((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀))))) |
| 56 | 53, 54, 27, 28, 55 | syl22anc 1272 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝑘 ∈ (𝑀...𝑁) ↔ (𝑘 + (1 − 𝑀)) ∈ ((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀))))) |
| 57 | 52, 56 | mpbid 147 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝑘 + (1 − 𝑀)) ∈ ((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀)))) |
| 58 | 29, 28 | zsubcld 9600 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → ((𝑘 + (1 − 𝑀)) − (1 − 𝑀)) ∈ ℤ) |
| 59 | 50, 51, 57, 58 | fvmptd3 5736 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → ((𝑗 ∈ ((𝑀 + (1 − 𝑀))...(𝑁 + (1 − 𝑀))) ↦ (𝑗 − (1 − 𝑀)))‘(𝑘 + (1 − 𝑀))) = ((𝑘 + (1 − 𝑀)) − (1 − 𝑀))) |
| 60 | 49, 59 | eqtrd 2262 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝑆‘(𝑘 + (1 − 𝑀))) = ((𝑘 + (1 − 𝑀)) − (1 − 𝑀))) |
| 61 | 26 | zcnd 9596 |
. . . . . . . . . 10
⊢ (𝑘 ∈ (𝑀...𝑁) → 𝑘 ∈ ℂ) |
| 62 | 61 | adantl 277 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → 𝑘 ∈ ℂ) |
| 63 | 11, 10 | subcld 8483 |
. . . . . . . . . 10
⊢ (𝜑 → (1 − 𝑀) ∈
ℂ) |
| 64 | 63 | adantr 276 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (1 − 𝑀) ∈ ℂ) |
| 65 | 62, 64 | pncand 8484 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → ((𝑘 + (1 − 𝑀)) − (1 − 𝑀)) = 𝑘) |
| 66 | 60, 65 | eqtrd 2262 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝑆‘(𝑘 + (1 − 𝑀))) = 𝑘) |
| 67 | 66 | fveq2d 5639 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝐹‘(𝑆‘(𝑘 + (1 − 𝑀)))) = (𝐹‘𝑘)) |
| 68 | 47, 67 | eqtrd 2262 |
. . . . 5
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → ((𝐹 ∘ 𝑆)‘(𝑘 + (1 − 𝑀))) = (𝐹‘𝑘)) |
| 69 | 68 | eqcomd 2235 |
. . . 4
⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝐹‘𝑘) = ((𝐹 ∘ 𝑆)‘(𝑘 + (1 − 𝑀)))) |
| 70 | | gsumgfsumlem.g |
. . . . 5
⊢ (𝜑 → 𝐺 ∈ CMnd) |
| 71 | | plusgslid 13188 |
. . . . . 6
⊢
(+g = Slot (+g‘ndx) ∧
(+g‘ndx) ∈ ℕ) |
| 72 | 71 | slotex 13102 |
. . . . 5
⊢ (𝐺 ∈ CMnd →
(+g‘𝐺)
∈ V) |
| 73 | 70, 72 | syl 14 |
. . . 4
⊢ (𝜑 → (+g‘𝐺) ∈ V) |
| 74 | | gsumgfsumlem.f |
. . . . 5
⊢ (𝜑 → 𝐹:(𝑀...𝑁)⟶𝐵) |
| 75 | 4, 7 | fzfigd 10686 |
. . . . 5
⊢ (𝜑 → (𝑀...𝑁) ∈ Fin) |
| 76 | 74, 75 | fexd 5879 |
. . . 4
⊢ (𝜑 → 𝐹 ∈ V) |
| 77 | 2, 24 | fzfigd 10686 |
. . . . . 6
⊢ (𝜑 → (1...(𝑁 + (1 − 𝑀))) ∈ Fin) |
| 78 | | mptexg 5874 |
. . . . . . 7
⊢
((1...(𝑁 + (1
− 𝑀))) ∈ Fin
→ (𝑗 ∈
(1...(𝑁 + (1 − 𝑀))) ↦ (𝑗 − (1 − 𝑀))) ∈ V) |
| 79 | 9, 78 | eqeltrid 2316 |
. . . . . 6
⊢
((1...(𝑁 + (1
− 𝑀))) ∈ Fin
→ 𝑆 ∈
V) |
| 80 | 77, 79 | syl 14 |
. . . . 5
⊢ (𝜑 → 𝑆 ∈ V) |
| 81 | | coexg 5279 |
. . . . 5
⊢ ((𝐹 ∈ V ∧ 𝑆 ∈ V) → (𝐹 ∘ 𝑆) ∈ V) |
| 82 | 76, 80, 81 | syl2anc 411 |
. . . 4
⊢ (𝜑 → (𝐹 ∘ 𝑆) ∈ V) |
| 83 | 1, 5, 69, 73, 76, 82 | seqshft2g 10737 |
. . 3
⊢ (𝜑 → (seq𝑀((+g‘𝐺), 𝐹)‘𝑁) = (seq(𝑀 + (1 − 𝑀))((+g‘𝐺), (𝐹 ∘ 𝑆))‘(𝑁 + (1 − 𝑀)))) |
| 84 | 12 | seqeq1d 10708 |
. . . 4
⊢ (𝜑 → seq(𝑀 + (1 − 𝑀))((+g‘𝐺), (𝐹 ∘ 𝑆)) = seq1((+g‘𝐺), (𝐹 ∘ 𝑆))) |
| 85 | 84 | fveq1d 5637 |
. . 3
⊢ (𝜑 → (seq(𝑀 + (1 − 𝑀))((+g‘𝐺), (𝐹 ∘ 𝑆))‘(𝑁 + (1 − 𝑀))) = (seq1((+g‘𝐺), (𝐹 ∘ 𝑆))‘(𝑁 + (1 − 𝑀)))) |
| 86 | 83, 85 | eqtrd 2262 |
. 2
⊢ (𝜑 → (seq𝑀((+g‘𝐺), 𝐹)‘𝑁) = (seq1((+g‘𝐺), (𝐹 ∘ 𝑆))‘(𝑁 + (1 − 𝑀)))) |
| 87 | | gsumgfsumlem.b |
. . 3
⊢ 𝐵 = (Base‘𝐺) |
| 88 | | eqid 2229 |
. . 3
⊢
(+g‘𝐺) = (+g‘𝐺) |
| 89 | 87, 88, 70, 1, 74 | gsumval2 13473 |
. 2
⊢ (𝜑 → (𝐺 Σg 𝐹) = (seq𝑀((+g‘𝐺), 𝐹)‘𝑁)) |
| 90 | | 1red 8187 |
. . . . . 6
⊢ (𝜑 → 1 ∈
ℝ) |
| 91 | | eluzle 9761 |
. . . . . . 7
⊢ (𝑁 ∈
(ℤ≥‘𝑀) → 𝑀 ≤ 𝑁) |
| 92 | 1, 91 | syl 14 |
. . . . . 6
⊢ (𝜑 → 𝑀 ≤ 𝑁) |
| 93 | 30, 40, 90, 92 | lesub2dd 8735 |
. . . . 5
⊢ (𝜑 → (1 − 𝑁) ≤ (1 − 𝑀)) |
| 94 | 90, 30 | resubcld 8553 |
. . . . . 6
⊢ (𝜑 → (1 − 𝑀) ∈
ℝ) |
| 95 | 90, 40, 94 | lesubadd2d 8717 |
. . . . 5
⊢ (𝜑 → ((1 − 𝑁) ≤ (1 − 𝑀) ↔ 1 ≤ (𝑁 + (1 − 𝑀)))) |
| 96 | 93, 95 | mpbid 147 |
. . . 4
⊢ (𝜑 → 1 ≤ (𝑁 + (1 − 𝑀))) |
| 97 | | eluz2 9754 |
. . . 4
⊢ ((𝑁 + (1 − 𝑀)) ∈ (ℤ≥‘1)
↔ (1 ∈ ℤ ∧ (𝑁 + (1 − 𝑀)) ∈ ℤ ∧ 1 ≤ (𝑁 + (1 − 𝑀)))) |
| 98 | 2, 24, 96, 97 | syl3anbrc 1205 |
. . 3
⊢ (𝜑 → (𝑁 + (1 − 𝑀)) ∈
(ℤ≥‘1)) |
| 99 | | fco 5497 |
. . . 4
⊢ ((𝐹:(𝑀...𝑁)⟶𝐵 ∧ 𝑆:(1...(𝑁 + (1 − 𝑀)))⟶(𝑀...𝑁)) → (𝐹 ∘ 𝑆):(1...(𝑁 + (1 − 𝑀)))⟶𝐵) |
| 100 | 74, 21, 99 | syl2anc 411 |
. . 3
⊢ (𝜑 → (𝐹 ∘ 𝑆):(1...(𝑁 + (1 − 𝑀)))⟶𝐵) |
| 101 | 87, 88, 70, 98, 100 | gsumval2 13473 |
. 2
⊢ (𝜑 → (𝐺 Σg (𝐹 ∘ 𝑆)) = (seq1((+g‘𝐺), (𝐹 ∘ 𝑆))‘(𝑁 + (1 − 𝑀)))) |
| 102 | 86, 89, 101 | 3eqtr4d 2272 |
1
⊢ (𝜑 → (𝐺 Σg 𝐹) = (𝐺 Σg (𝐹 ∘ 𝑆))) |