ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  isumshft GIF version

Theorem isumshft 11498
Description: Index shift of an infinite sum. (Contributed by Paul Chapman, 31-Oct-2007.) (Revised by Mario Carneiro, 24-Apr-2014.)
Hypotheses
Ref Expression
isumshft.1 𝑍 = (β„€β‰₯β€˜π‘€)
isumshft.2 π‘Š = (β„€β‰₯β€˜(𝑀 + 𝐾))
isumshft.3 (𝑗 = (𝐾 + π‘˜) β†’ 𝐴 = 𝐡)
isumshft.4 (πœ‘ β†’ 𝐾 ∈ β„€)
isumshft.5 (πœ‘ β†’ 𝑀 ∈ β„€)
isumshft.6 ((πœ‘ ∧ 𝑗 ∈ π‘Š) β†’ 𝐴 ∈ β„‚)
Assertion
Ref Expression
isumshft (πœ‘ β†’ Σ𝑗 ∈ π‘Š 𝐴 = Ξ£π‘˜ ∈ 𝑍 𝐡)
Distinct variable groups:   𝐴,π‘˜   𝑗,π‘˜,𝐾   πœ‘,𝑗,π‘˜   𝑗,π‘Š,π‘˜   𝐡,𝑗   𝑗,𝑍,π‘˜
Allowed substitution hints:   𝐴(𝑗)   𝐡(π‘˜)   𝑀(𝑗,π‘˜)

Proof of Theorem isumshft
Dummy variables π‘š 𝑛 π‘₯ 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 isumshft.5 . . . . . . . . 9 (πœ‘ β†’ 𝑀 ∈ β„€)
2 isumshft.4 . . . . . . . . 9 (πœ‘ β†’ 𝐾 ∈ β„€)
31, 2zaddcld 9379 . . . . . . . 8 (πœ‘ β†’ (𝑀 + 𝐾) ∈ β„€)
4 isumshft.2 . . . . . . . . . . . . 13 π‘Š = (β„€β‰₯β€˜(𝑀 + 𝐾))
54eleq2i 2244 . . . . . . . . . . . 12 (π‘₯ ∈ π‘Š ↔ π‘₯ ∈ (β„€β‰₯β€˜(𝑀 + 𝐾)))
65biimpri 133 . . . . . . . . . . 11 (π‘₯ ∈ (β„€β‰₯β€˜(𝑀 + 𝐾)) β†’ π‘₯ ∈ π‘Š)
76adantl 277 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ (β„€β‰₯β€˜(𝑀 + 𝐾))) β†’ π‘₯ ∈ π‘Š)
8 isumshft.6 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ π‘Š) β†’ 𝐴 ∈ β„‚)
98ralrimiva 2550 . . . . . . . . . . . 12 (πœ‘ β†’ βˆ€π‘— ∈ π‘Š 𝐴 ∈ β„‚)
109adantr 276 . . . . . . . . . . 11 ((πœ‘ ∧ π‘₯ ∈ (β„€β‰₯β€˜(𝑀 + 𝐾))) β†’ βˆ€π‘— ∈ π‘Š 𝐴 ∈ β„‚)
11 nfcsb1v 3091 . . . . . . . . . . . . 13 Ⅎ𝑗⦋π‘₯ / π‘—β¦Œπ΄
1211nfel1 2330 . . . . . . . . . . . 12 Ⅎ𝑗⦋π‘₯ / π‘—β¦Œπ΄ ∈ β„‚
13 csbeq1a 3067 . . . . . . . . . . . . 13 (𝑗 = π‘₯ β†’ 𝐴 = ⦋π‘₯ / π‘—β¦Œπ΄)
1413eleq1d 2246 . . . . . . . . . . . 12 (𝑗 = π‘₯ β†’ (𝐴 ∈ β„‚ ↔ ⦋π‘₯ / π‘—β¦Œπ΄ ∈ β„‚))
1512, 14rspc 2836 . . . . . . . . . . 11 (π‘₯ ∈ π‘Š β†’ (βˆ€π‘— ∈ π‘Š 𝐴 ∈ β„‚ β†’ ⦋π‘₯ / π‘—β¦Œπ΄ ∈ β„‚))
167, 10, 15sylc 62 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ (β„€β‰₯β€˜(𝑀 + 𝐾))) β†’ ⦋π‘₯ / π‘—β¦Œπ΄ ∈ β„‚)
17 eqid 2177 . . . . . . . . . . 11 (𝑗 ∈ π‘Š ↦ 𝐴) = (𝑗 ∈ π‘Š ↦ 𝐴)
1817fvmpts 5595 . . . . . . . . . 10 ((π‘₯ ∈ π‘Š ∧ ⦋π‘₯ / π‘—β¦Œπ΄ ∈ β„‚) β†’ ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜π‘₯) = ⦋π‘₯ / π‘—β¦Œπ΄)
197, 16, 18syl2anc 411 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ (β„€β‰₯β€˜(𝑀 + 𝐾))) β†’ ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜π‘₯) = ⦋π‘₯ / π‘—β¦Œπ΄)
2019, 16eqeltrd 2254 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ (β„€β‰₯β€˜(𝑀 + 𝐾))) β†’ ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜π‘₯) ∈ β„‚)
214eleq2i 2244 . . . . . . . . 9 (π‘š ∈ π‘Š ↔ π‘š ∈ (β„€β‰₯β€˜(𝑀 + 𝐾)))
222zcnd 9376 . . . . . . . . . . 11 (πœ‘ β†’ 𝐾 ∈ β„‚)
23 eluzelcn 9539 . . . . . . . . . . . 12 (π‘š ∈ (β„€β‰₯β€˜(𝑀 + 𝐾)) β†’ π‘š ∈ β„‚)
2423, 4eleq2s 2272 . . . . . . . . . . 11 (π‘š ∈ π‘Š β†’ π‘š ∈ β„‚)
25 zex 9262 . . . . . . . . . . . . . 14 β„€ ∈ V
26 isumshft.1 . . . . . . . . . . . . . . 15 𝑍 = (β„€β‰₯β€˜π‘€)
27 uzssz 9547 . . . . . . . . . . . . . . 15 (β„€β‰₯β€˜π‘€) βŠ† β„€
2826, 27eqsstri 3188 . . . . . . . . . . . . . 14 𝑍 βŠ† β„€
2925, 28ssexi 4142 . . . . . . . . . . . . 13 𝑍 ∈ V
3029mptex 5743 . . . . . . . . . . . 12 (π‘˜ ∈ 𝑍 ↦ 𝐡) ∈ V
3130shftval 10834 . . . . . . . . . . 11 ((𝐾 ∈ β„‚ ∧ π‘š ∈ β„‚) β†’ (((π‘˜ ∈ 𝑍 ↦ 𝐡) shift 𝐾)β€˜π‘š) = ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜(π‘š βˆ’ 𝐾)))
3222, 24, 31syl2an 289 . . . . . . . . . 10 ((πœ‘ ∧ π‘š ∈ π‘Š) β†’ (((π‘˜ ∈ 𝑍 ↦ 𝐡) shift 𝐾)β€˜π‘š) = ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜(π‘š βˆ’ 𝐾)))
33 eqidd 2178 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (π‘˜ ∈ 𝑍 ↦ 𝐡) = (π‘˜ ∈ 𝑍 ↦ 𝐡))
34 isumshft.3 . . . . . . . . . . . . . . . . . . 19 (𝑗 = (𝐾 + π‘˜) β†’ 𝐴 = 𝐡)
3534eleq1d 2246 . . . . . . . . . . . . . . . . . 18 (𝑗 = (𝐾 + π‘˜) β†’ (𝐴 ∈ β„‚ ↔ 𝐡 ∈ β„‚))
369adantr 276 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ βˆ€π‘— ∈ π‘Š 𝐴 ∈ β„‚)
371adantr 276 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ 𝑀 ∈ β„€)
382adantr 276 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ 𝐾 ∈ β„€)
3937, 38zaddcld 9379 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (𝑀 + 𝐾) ∈ β„€)
40 eluzelz 9537 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘˜ ∈ (β„€β‰₯β€˜π‘€) β†’ π‘˜ ∈ β„€)
4140, 26eleq2s 2272 . . . . . . . . . . . . . . . . . . . . . 22 (π‘˜ ∈ 𝑍 β†’ π‘˜ ∈ β„€)
4241adantl 277 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ π‘˜ ∈ β„€)
4338, 42zaddcld 9379 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (𝐾 + π‘˜) ∈ β„€)
4437zred 9375 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ 𝑀 ∈ ℝ)
4542zred 9375 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ π‘˜ ∈ ℝ)
4638zred 9375 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ 𝐾 ∈ ℝ)
4726eleq2i 2244 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘˜ ∈ 𝑍 ↔ π‘˜ ∈ (β„€β‰₯β€˜π‘€))
4847biimpi 120 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘˜ ∈ 𝑍 β†’ π‘˜ ∈ (β„€β‰₯β€˜π‘€))
4948adantl 277 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ π‘˜ ∈ (β„€β‰₯β€˜π‘€))
50 eluzle 9540 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘˜ ∈ (β„€β‰₯β€˜π‘€) β†’ 𝑀 ≀ π‘˜)
5149, 50syl 14 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ 𝑀 ≀ π‘˜)
5244, 45, 46, 51leadd1dd 8516 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (𝑀 + 𝐾) ≀ (π‘˜ + 𝐾))
5342zcnd 9376 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ π‘˜ ∈ β„‚)
5438zcnd 9376 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ 𝐾 ∈ β„‚)
5553, 54addcomd 8108 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (π‘˜ + 𝐾) = (𝐾 + π‘˜))
5652, 55breqtrd 4030 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (𝑀 + 𝐾) ≀ (𝐾 + π‘˜))
57 eluz2 9534 . . . . . . . . . . . . . . . . . . . 20 ((𝐾 + π‘˜) ∈ (β„€β‰₯β€˜(𝑀 + 𝐾)) ↔ ((𝑀 + 𝐾) ∈ β„€ ∧ (𝐾 + π‘˜) ∈ β„€ ∧ (𝑀 + 𝐾) ≀ (𝐾 + π‘˜)))
5839, 43, 56, 57syl3anbrc 1181 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (𝐾 + π‘˜) ∈ (β„€β‰₯β€˜(𝑀 + 𝐾)))
5958, 4eleqtrrdi 2271 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (𝐾 + π‘˜) ∈ π‘Š)
6035, 36, 59rspcdva 2847 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ 𝐡 ∈ β„‚)
6133, 60fvmpt2d 5603 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘˜) = 𝐡)
62 eqidd 2178 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (𝑗 ∈ π‘Š ↦ 𝐴) = (𝑗 ∈ π‘Š ↦ 𝐴))
6334adantl 277 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ π‘˜ ∈ 𝑍) ∧ 𝑗 = (𝐾 + π‘˜)) β†’ 𝐴 = 𝐡)
6462, 63, 59, 60fvmptd 5598 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + π‘˜)) = 𝐡)
6561, 64eqtr4d 2213 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘˜) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + π‘˜)))
6665ralrimiva 2550 . . . . . . . . . . . . . 14 (πœ‘ β†’ βˆ€π‘˜ ∈ 𝑍 ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘˜) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + π‘˜)))
67 nffvmpt1 5527 . . . . . . . . . . . . . . . 16 β„²π‘˜((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›)
6867nfeq1 2329 . . . . . . . . . . . . . . 15 β„²π‘˜((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + 𝑛))
69 fveq2 5516 . . . . . . . . . . . . . . . 16 (π‘˜ = 𝑛 β†’ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘˜) = ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›))
70 oveq2 5883 . . . . . . . . . . . . . . . . 17 (π‘˜ = 𝑛 β†’ (𝐾 + π‘˜) = (𝐾 + 𝑛))
7170fveq2d 5520 . . . . . . . . . . . . . . . 16 (π‘˜ = 𝑛 β†’ ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + π‘˜)) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + 𝑛)))
7269, 71eqeq12d 2192 . . . . . . . . . . . . . . 15 (π‘˜ = 𝑛 β†’ (((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘˜) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + π‘˜)) ↔ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + 𝑛))))
7368, 72rspc 2836 . . . . . . . . . . . . . 14 (𝑛 ∈ 𝑍 β†’ (βˆ€π‘˜ ∈ 𝑍 ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘˜) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + π‘˜)) β†’ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + 𝑛))))
7466, 73mpan9 281 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ 𝑍) β†’ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + 𝑛)))
7574ralrimiva 2550 . . . . . . . . . . . 12 (πœ‘ β†’ βˆ€π‘› ∈ 𝑍 ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + 𝑛)))
7675adantr 276 . . . . . . . . . . 11 ((πœ‘ ∧ π‘š ∈ π‘Š) β†’ βˆ€π‘› ∈ 𝑍 ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + 𝑛)))
771adantr 276 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘š ∈ π‘Š) β†’ 𝑀 ∈ β„€)
782adantr 276 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘š ∈ π‘Š) β†’ 𝐾 ∈ β„€)
79 simpr 110 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘š ∈ π‘Š) β†’ π‘š ∈ π‘Š)
8079, 4eleqtrdi 2270 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘š ∈ π‘Š) β†’ π‘š ∈ (β„€β‰₯β€˜(𝑀 + 𝐾)))
81 eluzsub 9557 . . . . . . . . . . . . 13 ((𝑀 ∈ β„€ ∧ 𝐾 ∈ β„€ ∧ π‘š ∈ (β„€β‰₯β€˜(𝑀 + 𝐾))) β†’ (π‘š βˆ’ 𝐾) ∈ (β„€β‰₯β€˜π‘€))
8277, 78, 80, 81syl3anc 1238 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘š ∈ π‘Š) β†’ (π‘š βˆ’ 𝐾) ∈ (β„€β‰₯β€˜π‘€))
8382, 26eleqtrrdi 2271 . . . . . . . . . . 11 ((πœ‘ ∧ π‘š ∈ π‘Š) β†’ (π‘š βˆ’ 𝐾) ∈ 𝑍)
84 fveq2 5516 . . . . . . . . . . . . 13 (𝑛 = (π‘š βˆ’ 𝐾) β†’ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›) = ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜(π‘š βˆ’ 𝐾)))
85 oveq2 5883 . . . . . . . . . . . . . 14 (𝑛 = (π‘š βˆ’ 𝐾) β†’ (𝐾 + 𝑛) = (𝐾 + (π‘š βˆ’ 𝐾)))
8685fveq2d 5520 . . . . . . . . . . . . 13 (𝑛 = (π‘š βˆ’ 𝐾) β†’ ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + 𝑛)) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + (π‘š βˆ’ 𝐾))))
8784, 86eqeq12d 2192 . . . . . . . . . . . 12 (𝑛 = (π‘š βˆ’ 𝐾) β†’ (((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + 𝑛)) ↔ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜(π‘š βˆ’ 𝐾)) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + (π‘š βˆ’ 𝐾)))))
8887rspccva 2841 . . . . . . . . . . 11 ((βˆ€π‘› ∈ 𝑍 ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + 𝑛)) ∧ (π‘š βˆ’ 𝐾) ∈ 𝑍) β†’ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜(π‘š βˆ’ 𝐾)) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + (π‘š βˆ’ 𝐾))))
8976, 83, 88syl2anc 411 . . . . . . . . . 10 ((πœ‘ ∧ π‘š ∈ π‘Š) β†’ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜(π‘š βˆ’ 𝐾)) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + (π‘š βˆ’ 𝐾))))
90 pncan3 8165 . . . . . . . . . . . 12 ((𝐾 ∈ β„‚ ∧ π‘š ∈ β„‚) β†’ (𝐾 + (π‘š βˆ’ 𝐾)) = π‘š)
9122, 24, 90syl2an 289 . . . . . . . . . . 11 ((πœ‘ ∧ π‘š ∈ π‘Š) β†’ (𝐾 + (π‘š βˆ’ 𝐾)) = π‘š)
9291fveq2d 5520 . . . . . . . . . 10 ((πœ‘ ∧ π‘š ∈ π‘Š) β†’ ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + (π‘š βˆ’ 𝐾))) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜π‘š))
9332, 89, 923eqtrrd 2215 . . . . . . . . 9 ((πœ‘ ∧ π‘š ∈ π‘Š) β†’ ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜π‘š) = (((π‘˜ ∈ 𝑍 ↦ 𝐡) shift 𝐾)β€˜π‘š))
9421, 93sylan2br 288 . . . . . . . 8 ((πœ‘ ∧ π‘š ∈ (β„€β‰₯β€˜(𝑀 + 𝐾))) β†’ ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜π‘š) = (((π‘˜ ∈ 𝑍 ↦ 𝐡) shift 𝐾)β€˜π‘š))
95 addcl 7936 . . . . . . . . 9 ((π‘₯ ∈ β„‚ ∧ 𝑦 ∈ β„‚) β†’ (π‘₯ + 𝑦) ∈ β„‚)
9695adantl 277 . . . . . . . 8 ((πœ‘ ∧ (π‘₯ ∈ β„‚ ∧ 𝑦 ∈ β„‚)) β†’ (π‘₯ + 𝑦) ∈ β„‚)
973, 20, 94, 96seq3feq 10472 . . . . . . 7 (πœ‘ β†’ seq(𝑀 + 𝐾)( + , (𝑗 ∈ π‘Š ↦ 𝐴)) = seq(𝑀 + 𝐾)( + , ((π‘˜ ∈ 𝑍 ↦ 𝐡) shift 𝐾)))
9897breq1d 4014 . . . . . 6 (πœ‘ β†’ (seq(𝑀 + 𝐾)( + , (𝑗 ∈ π‘Š ↦ 𝐴)) ⇝ π‘₯ ↔ seq(𝑀 + 𝐾)( + , ((π‘˜ ∈ 𝑍 ↦ 𝐡) shift 𝐾)) ⇝ π‘₯))
9930a1i 9 . . . . . . 7 (πœ‘ β†’ (π‘˜ ∈ 𝑍 ↦ 𝐡) ∈ V)
10026eleq2i 2244 . . . . . . . . . . 11 (π‘₯ ∈ 𝑍 ↔ π‘₯ ∈ (β„€β‰₯β€˜π‘€))
101100biimpri 133 . . . . . . . . . 10 (π‘₯ ∈ (β„€β‰₯β€˜π‘€) β†’ π‘₯ ∈ 𝑍)
102101adantl 277 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ (β„€β‰₯β€˜π‘€)) β†’ π‘₯ ∈ 𝑍)
10360ralrimiva 2550 . . . . . . . . . . 11 (πœ‘ β†’ βˆ€π‘˜ ∈ 𝑍 𝐡 ∈ β„‚)
104103adantr 276 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ (β„€β‰₯β€˜π‘€)) β†’ βˆ€π‘˜ ∈ 𝑍 𝐡 ∈ β„‚)
105 nfcsb1v 3091 . . . . . . . . . . . 12 β„²π‘˜β¦‹π‘₯ / π‘˜β¦Œπ΅
106105nfel1 2330 . . . . . . . . . . 11 β„²π‘˜β¦‹π‘₯ / π‘˜β¦Œπ΅ ∈ β„‚
107 csbeq1a 3067 . . . . . . . . . . . 12 (π‘˜ = π‘₯ β†’ 𝐡 = ⦋π‘₯ / π‘˜β¦Œπ΅)
108107eleq1d 2246 . . . . . . . . . . 11 (π‘˜ = π‘₯ β†’ (𝐡 ∈ β„‚ ↔ ⦋π‘₯ / π‘˜β¦Œπ΅ ∈ β„‚))
109106, 108rspc 2836 . . . . . . . . . 10 (π‘₯ ∈ 𝑍 β†’ (βˆ€π‘˜ ∈ 𝑍 𝐡 ∈ β„‚ β†’ ⦋π‘₯ / π‘˜β¦Œπ΅ ∈ β„‚))
110102, 104, 109sylc 62 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ (β„€β‰₯β€˜π‘€)) β†’ ⦋π‘₯ / π‘˜β¦Œπ΅ ∈ β„‚)
111 eqid 2177 . . . . . . . . . 10 (π‘˜ ∈ 𝑍 ↦ 𝐡) = (π‘˜ ∈ 𝑍 ↦ 𝐡)
112111fvmpts 5595 . . . . . . . . 9 ((π‘₯ ∈ 𝑍 ∧ ⦋π‘₯ / π‘˜β¦Œπ΅ ∈ β„‚) β†’ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘₯) = ⦋π‘₯ / π‘˜β¦Œπ΅)
113102, 110, 112syl2anc 411 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ (β„€β‰₯β€˜π‘€)) β†’ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘₯) = ⦋π‘₯ / π‘˜β¦Œπ΅)
114113, 110eqeltrd 2254 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ (β„€β‰₯β€˜π‘€)) β†’ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘₯) ∈ β„‚)
11599, 1, 2, 114, 96iser3shft 11354 . . . . . 6 (πœ‘ β†’ (seq𝑀( + , (π‘˜ ∈ 𝑍 ↦ 𝐡)) ⇝ π‘₯ ↔ seq(𝑀 + 𝐾)( + , ((π‘˜ ∈ 𝑍 ↦ 𝐡) shift 𝐾)) ⇝ π‘₯))
11698, 115bitr4d 191 . . . . 5 (πœ‘ β†’ (seq(𝑀 + 𝐾)( + , (𝑗 ∈ π‘Š ↦ 𝐴)) ⇝ π‘₯ ↔ seq𝑀( + , (π‘˜ ∈ 𝑍 ↦ 𝐡)) ⇝ π‘₯))
117116iotabidv 5200 . . . 4 (πœ‘ β†’ (β„©π‘₯seq(𝑀 + 𝐾)( + , (𝑗 ∈ π‘Š ↦ 𝐴)) ⇝ π‘₯) = (β„©π‘₯seq𝑀( + , (π‘˜ ∈ 𝑍 ↦ 𝐡)) ⇝ π‘₯))
118 df-fv 5225 . . . 4 ( ⇝ β€˜seq(𝑀 + 𝐾)( + , (𝑗 ∈ π‘Š ↦ 𝐴))) = (β„©π‘₯seq(𝑀 + 𝐾)( + , (𝑗 ∈ π‘Š ↦ 𝐴)) ⇝ π‘₯)
119 df-fv 5225 . . . 4 ( ⇝ β€˜seq𝑀( + , (π‘˜ ∈ 𝑍 ↦ 𝐡))) = (β„©π‘₯seq𝑀( + , (π‘˜ ∈ 𝑍 ↦ 𝐡)) ⇝ π‘₯)
120117, 118, 1193eqtr4g 2235 . . 3 (πœ‘ β†’ ( ⇝ β€˜seq(𝑀 + 𝐾)( + , (𝑗 ∈ π‘Š ↦ 𝐴))) = ( ⇝ β€˜seq𝑀( + , (π‘˜ ∈ 𝑍 ↦ 𝐡))))
121 eqidd 2178 . . . 4 ((πœ‘ ∧ π‘š ∈ π‘Š) β†’ ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜π‘š) = ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜π‘š))
1228fmpttd 5672 . . . . 5 (πœ‘ β†’ (𝑗 ∈ π‘Š ↦ 𝐴):π‘ŠβŸΆβ„‚)
123122ffvelcdmda 5652 . . . 4 ((πœ‘ ∧ π‘š ∈ π‘Š) β†’ ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜π‘š) ∈ β„‚)
1244, 3, 121, 123isum 11393 . . 3 (πœ‘ β†’ Ξ£π‘š ∈ π‘Š ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜π‘š) = ( ⇝ β€˜seq(𝑀 + 𝐾)( + , (𝑗 ∈ π‘Š ↦ 𝐴))))
125 eqidd 2178 . . . 4 ((πœ‘ ∧ 𝑛 ∈ 𝑍) β†’ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›) = ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›))
126122adantr 276 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ 𝑍) β†’ (𝑗 ∈ π‘Š ↦ 𝐴):π‘ŠβŸΆβ„‚)
127 eluzelcn 9539 . . . . . . . . . . . 12 (π‘˜ ∈ (β„€β‰₯β€˜π‘€) β†’ π‘˜ ∈ β„‚)
128127, 26eleq2s 2272 . . . . . . . . . . 11 (π‘˜ ∈ 𝑍 β†’ π‘˜ ∈ β„‚)
129 addcom 8094 . . . . . . . . . . 11 ((𝐾 ∈ β„‚ ∧ π‘˜ ∈ β„‚) β†’ (𝐾 + π‘˜) = (π‘˜ + 𝐾))
13022, 128, 129syl2an 289 . . . . . . . . . 10 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (𝐾 + π‘˜) = (π‘˜ + 𝐾))
131 id 19 . . . . . . . . . . . 12 (π‘˜ ∈ 𝑍 β†’ π‘˜ ∈ 𝑍)
132131, 26eleqtrdi 2270 . . . . . . . . . . 11 (π‘˜ ∈ 𝑍 β†’ π‘˜ ∈ (β„€β‰₯β€˜π‘€))
133 eluzadd 9556 . . . . . . . . . . 11 ((π‘˜ ∈ (β„€β‰₯β€˜π‘€) ∧ 𝐾 ∈ β„€) β†’ (π‘˜ + 𝐾) ∈ (β„€β‰₯β€˜(𝑀 + 𝐾)))
134132, 2, 133syl2anr 290 . . . . . . . . . 10 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (π‘˜ + 𝐾) ∈ (β„€β‰₯β€˜(𝑀 + 𝐾)))
135130, 134eqeltrd 2254 . . . . . . . . 9 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (𝐾 + π‘˜) ∈ (β„€β‰₯β€˜(𝑀 + 𝐾)))
136135, 4eleqtrrdi 2271 . . . . . . . 8 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (𝐾 + π‘˜) ∈ π‘Š)
137136ralrimiva 2550 . . . . . . 7 (πœ‘ β†’ βˆ€π‘˜ ∈ 𝑍 (𝐾 + π‘˜) ∈ π‘Š)
13870eleq1d 2246 . . . . . . . 8 (π‘˜ = 𝑛 β†’ ((𝐾 + π‘˜) ∈ π‘Š ↔ (𝐾 + 𝑛) ∈ π‘Š))
139138rspccva 2841 . . . . . . 7 ((βˆ€π‘˜ ∈ 𝑍 (𝐾 + π‘˜) ∈ π‘Š ∧ 𝑛 ∈ 𝑍) β†’ (𝐾 + 𝑛) ∈ π‘Š)
140137, 139sylan 283 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ 𝑍) β†’ (𝐾 + 𝑛) ∈ π‘Š)
141126, 140ffvelcdmd 5653 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ 𝑍) β†’ ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜(𝐾 + 𝑛)) ∈ β„‚)
14274, 141eqeltrd 2254 . . . 4 ((πœ‘ ∧ 𝑛 ∈ 𝑍) β†’ ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›) ∈ β„‚)
14326, 1, 125, 142isum 11393 . . 3 (πœ‘ β†’ Σ𝑛 ∈ 𝑍 ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›) = ( ⇝ β€˜seq𝑀( + , (π‘˜ ∈ 𝑍 ↦ 𝐡))))
144120, 124, 1433eqtr4d 2220 . 2 (πœ‘ β†’ Ξ£π‘š ∈ π‘Š ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜π‘š) = Σ𝑛 ∈ 𝑍 ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›))
145 sumfct 11382 . . 3 (βˆ€π‘— ∈ π‘Š 𝐴 ∈ β„‚ β†’ Ξ£π‘š ∈ π‘Š ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜π‘š) = Σ𝑗 ∈ π‘Š 𝐴)
1469, 145syl 14 . 2 (πœ‘ β†’ Ξ£π‘š ∈ π‘Š ((𝑗 ∈ π‘Š ↦ 𝐴)β€˜π‘š) = Σ𝑗 ∈ π‘Š 𝐴)
147 sumfct 11382 . . 3 (βˆ€π‘˜ ∈ 𝑍 𝐡 ∈ β„‚ β†’ Σ𝑛 ∈ 𝑍 ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›) = Ξ£π‘˜ ∈ 𝑍 𝐡)
148103, 147syl 14 . 2 (πœ‘ β†’ Σ𝑛 ∈ 𝑍 ((π‘˜ ∈ 𝑍 ↦ 𝐡)β€˜π‘›) = Ξ£π‘˜ ∈ 𝑍 𝐡)
149144, 146, 1483eqtr3d 2218 1 (πœ‘ β†’ Σ𝑗 ∈ π‘Š 𝐴 = Ξ£π‘˜ ∈ 𝑍 𝐡)
Colors of variables: wff set class
Syntax hints:   β†’ wi 4   ∧ wa 104   = wceq 1353   ∈ wcel 2148  βˆ€wral 2455  Vcvv 2738  β¦‹csb 3058   class class class wbr 4004   ↦ cmpt 4065  β„©cio 5177  βŸΆwf 5213  β€˜cfv 5217  (class class class)co 5875  β„‚cc 7809   + caddc 7814   ≀ cle 7993   βˆ’ cmin 8128  β„€cz 9253  β„€β‰₯cuz 9528  seqcseq 10445   shift cshi 10823   ⇝ cli 11286  Ξ£csu 11361
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 614  ax-in2 615  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-13 2150  ax-14 2151  ax-ext 2159  ax-coll 4119  ax-sep 4122  ax-nul 4130  ax-pow 4175  ax-pr 4210  ax-un 4434  ax-setind 4537  ax-iinf 4588  ax-cnex 7902  ax-resscn 7903  ax-1cn 7904  ax-1re 7905  ax-icn 7906  ax-addcl 7907  ax-addrcl 7908  ax-mulcl 7909  ax-mulrcl 7910  ax-addcom 7911  ax-mulcom 7912  ax-addass 7913  ax-mulass 7914  ax-distr 7915  ax-i2m1 7916  ax-0lt1 7917  ax-1rid 7918  ax-0id 7919  ax-rnegex 7920  ax-precex 7921  ax-cnre 7922  ax-pre-ltirr 7923  ax-pre-ltwlin 7924  ax-pre-lttrn 7925  ax-pre-apti 7926  ax-pre-ltadd 7927  ax-pre-mulgt0 7928  ax-pre-mulext 7929
This theorem depends on definitions:  df-bi 117  df-dc 835  df-3or 979  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ne 2348  df-nel 2443  df-ral 2460  df-rex 2461  df-reu 2462  df-rmo 2463  df-rab 2464  df-v 2740  df-sbc 2964  df-csb 3059  df-dif 3132  df-un 3134  df-in 3136  df-ss 3143  df-nul 3424  df-if 3536  df-pw 3578  df-sn 3599  df-pr 3600  df-op 3602  df-uni 3811  df-int 3846  df-iun 3889  df-br 4005  df-opab 4066  df-mpt 4067  df-tr 4103  df-id 4294  df-po 4297  df-iso 4298  df-iord 4367  df-on 4369  df-ilim 4370  df-suc 4372  df-iom 4591  df-xp 4633  df-rel 4634  df-cnv 4635  df-co 4636  df-dm 4637  df-rn 4638  df-res 4639  df-ima 4640  df-iota 5179  df-fun 5219  df-fn 5220  df-f 5221  df-f1 5222  df-fo 5223  df-f1o 5224  df-fv 5225  df-isom 5226  df-riota 5831  df-ov 5878  df-oprab 5879  df-mpo 5880  df-1st 6141  df-2nd 6142  df-recs 6306  df-irdg 6371  df-frec 6392  df-1o 6417  df-oadd 6421  df-er 6535  df-en 6741  df-dom 6742  df-fin 6743  df-pnf 7994  df-mnf 7995  df-xr 7996  df-ltxr 7997  df-le 7998  df-sub 8130  df-neg 8131  df-reap 8532  df-ap 8539  df-div 8630  df-inn 8920  df-2 8978  df-n0 9177  df-z 9254  df-uz 9529  df-q 9620  df-rp 9654  df-fz 10009  df-fzo 10143  df-seqfrec 10446  df-exp 10520  df-ihash 10756  df-shft 10824  df-cj 10851  df-rsqrt 11007  df-abs 11008  df-clim 11287  df-sumdc 11362
This theorem is referenced by:  eftlub  11698
  Copyright terms: Public domain W3C validator