MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  telgsumfzs Structured version   Visualization version   GIF version

Theorem telgsumfzs 18849
Description: Telescoping group sum ranging over a finite set of sequential integers, using explicit substitution. (Contributed by AV, 23-Nov-2019.)
Hypotheses
Ref Expression
telgsumfzs.b 𝐵 = (Base‘𝐺)
telgsumfzs.g (𝜑𝐺 ∈ Abel)
telgsumfzs.m = (-g𝐺)
telgsumfzs.n (𝜑𝑁 ∈ (ℤ𝑀))
telgsumfzs.f (𝜑 → ∀𝑘 ∈ (𝑀...(𝑁 + 1))𝐶𝐵)
Assertion
Ref Expression
telgsumfzs (𝜑 → (𝐺 Σg (𝑖 ∈ (𝑀...𝑁) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑁 + 1) / 𝑘𝐶))
Distinct variable groups:   𝐵,𝑖,𝑘   𝐶,𝑖   𝑖,𝐺   𝑖,𝑀,𝑘   ,𝑖   𝜑,𝑖   𝑖,𝑁,𝑘
Allowed substitution hints:   𝜑(𝑘)   𝐶(𝑘)   𝐺(𝑘)   (𝑘)

Proof of Theorem telgsumfzs
Dummy variables 𝑦 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 telgsumfzs.f . 2 (𝜑 → ∀𝑘 ∈ (𝑀...(𝑁 + 1))𝐶𝐵)
2 telgsumfzs.n . . 3 (𝜑𝑁 ∈ (ℤ𝑀))
3 oveq1 6977 . . . . . . . . 9 (𝑥 = 𝑀 → (𝑥 + 1) = (𝑀 + 1))
43oveq2d 6986 . . . . . . . 8 (𝑥 = 𝑀 → (𝑀...(𝑥 + 1)) = (𝑀...(𝑀 + 1)))
54raleqdv 3349 . . . . . . 7 (𝑥 = 𝑀 → (∀𝑘 ∈ (𝑀...(𝑥 + 1))𝐶𝐵 ↔ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵))
65anbi2d 619 . . . . . 6 (𝑥 = 𝑀 → ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑥 + 1))𝐶𝐵) ↔ (𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵)))
7 oveq2 6978 . . . . . . . . 9 (𝑥 = 𝑀 → (𝑀...𝑥) = (𝑀...𝑀))
87mpteq1d 5010 . . . . . . . 8 (𝑥 = 𝑀 → (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶)) = (𝑖 ∈ (𝑀...𝑀) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶)))
98oveq2d 6986 . . . . . . 7 (𝑥 = 𝑀 → (𝐺 Σg (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝐺 Σg (𝑖 ∈ (𝑀...𝑀) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))))
103csbeq1d 3789 . . . . . . . 8 (𝑥 = 𝑀(𝑥 + 1) / 𝑘𝐶 = (𝑀 + 1) / 𝑘𝐶)
1110oveq2d 6986 . . . . . . 7 (𝑥 = 𝑀 → (𝑀 / 𝑘𝐶 (𝑥 + 1) / 𝑘𝐶) = (𝑀 / 𝑘𝐶 (𝑀 + 1) / 𝑘𝐶))
129, 11eqeq12d 2787 . . . . . 6 (𝑥 = 𝑀 → ((𝐺 Σg (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑥 + 1) / 𝑘𝐶) ↔ (𝐺 Σg (𝑖 ∈ (𝑀...𝑀) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑀 + 1) / 𝑘𝐶)))
136, 12imbi12d 337 . . . . 5 (𝑥 = 𝑀 → (((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑥 + 1))𝐶𝐵) → (𝐺 Σg (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑥 + 1) / 𝑘𝐶)) ↔ ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → (𝐺 Σg (𝑖 ∈ (𝑀...𝑀) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑀 + 1) / 𝑘𝐶))))
14 oveq1 6977 . . . . . . . . 9 (𝑥 = 𝑦 → (𝑥 + 1) = (𝑦 + 1))
1514oveq2d 6986 . . . . . . . 8 (𝑥 = 𝑦 → (𝑀...(𝑥 + 1)) = (𝑀...(𝑦 + 1)))
1615raleqdv 3349 . . . . . . 7 (𝑥 = 𝑦 → (∀𝑘 ∈ (𝑀...(𝑥 + 1))𝐶𝐵 ↔ ∀𝑘 ∈ (𝑀...(𝑦 + 1))𝐶𝐵))
1716anbi2d 619 . . . . . 6 (𝑥 = 𝑦 → ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑥 + 1))𝐶𝐵) ↔ (𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑦 + 1))𝐶𝐵)))
18 oveq2 6978 . . . . . . . . 9 (𝑥 = 𝑦 → (𝑀...𝑥) = (𝑀...𝑦))
1918mpteq1d 5010 . . . . . . . 8 (𝑥 = 𝑦 → (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶)) = (𝑖 ∈ (𝑀...𝑦) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶)))
2019oveq2d 6986 . . . . . . 7 (𝑥 = 𝑦 → (𝐺 Σg (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝐺 Σg (𝑖 ∈ (𝑀...𝑦) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))))
2114csbeq1d 3789 . . . . . . . 8 (𝑥 = 𝑦(𝑥 + 1) / 𝑘𝐶 = (𝑦 + 1) / 𝑘𝐶)
2221oveq2d 6986 . . . . . . 7 (𝑥 = 𝑦 → (𝑀 / 𝑘𝐶 (𝑥 + 1) / 𝑘𝐶) = (𝑀 / 𝑘𝐶 (𝑦 + 1) / 𝑘𝐶))
2320, 22eqeq12d 2787 . . . . . 6 (𝑥 = 𝑦 → ((𝐺 Σg (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑥 + 1) / 𝑘𝐶) ↔ (𝐺 Σg (𝑖 ∈ (𝑀...𝑦) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑦 + 1) / 𝑘𝐶)))
2417, 23imbi12d 337 . . . . 5 (𝑥 = 𝑦 → (((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑥 + 1))𝐶𝐵) → (𝐺 Σg (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑥 + 1) / 𝑘𝐶)) ↔ ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑦 + 1))𝐶𝐵) → (𝐺 Σg (𝑖 ∈ (𝑀...𝑦) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑦 + 1) / 𝑘𝐶))))
25 oveq1 6977 . . . . . . . . 9 (𝑥 = (𝑦 + 1) → (𝑥 + 1) = ((𝑦 + 1) + 1))
2625oveq2d 6986 . . . . . . . 8 (𝑥 = (𝑦 + 1) → (𝑀...(𝑥 + 1)) = (𝑀...((𝑦 + 1) + 1)))
2726raleqdv 3349 . . . . . . 7 (𝑥 = (𝑦 + 1) → (∀𝑘 ∈ (𝑀...(𝑥 + 1))𝐶𝐵 ↔ ∀𝑘 ∈ (𝑀...((𝑦 + 1) + 1))𝐶𝐵))
2827anbi2d 619 . . . . . 6 (𝑥 = (𝑦 + 1) → ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑥 + 1))𝐶𝐵) ↔ (𝜑 ∧ ∀𝑘 ∈ (𝑀...((𝑦 + 1) + 1))𝐶𝐵)))
29 oveq2 6978 . . . . . . . . 9 (𝑥 = (𝑦 + 1) → (𝑀...𝑥) = (𝑀...(𝑦 + 1)))
3029mpteq1d 5010 . . . . . . . 8 (𝑥 = (𝑦 + 1) → (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶)) = (𝑖 ∈ (𝑀...(𝑦 + 1)) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶)))
3130oveq2d 6986 . . . . . . 7 (𝑥 = (𝑦 + 1) → (𝐺 Σg (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝐺 Σg (𝑖 ∈ (𝑀...(𝑦 + 1)) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))))
3225csbeq1d 3789 . . . . . . . 8 (𝑥 = (𝑦 + 1) → (𝑥 + 1) / 𝑘𝐶 = ((𝑦 + 1) + 1) / 𝑘𝐶)
3332oveq2d 6986 . . . . . . 7 (𝑥 = (𝑦 + 1) → (𝑀 / 𝑘𝐶 (𝑥 + 1) / 𝑘𝐶) = (𝑀 / 𝑘𝐶 ((𝑦 + 1) + 1) / 𝑘𝐶))
3431, 33eqeq12d 2787 . . . . . 6 (𝑥 = (𝑦 + 1) → ((𝐺 Σg (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑥 + 1) / 𝑘𝐶) ↔ (𝐺 Σg (𝑖 ∈ (𝑀...(𝑦 + 1)) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 ((𝑦 + 1) + 1) / 𝑘𝐶)))
3528, 34imbi12d 337 . . . . 5 (𝑥 = (𝑦 + 1) → (((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑥 + 1))𝐶𝐵) → (𝐺 Σg (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑥 + 1) / 𝑘𝐶)) ↔ ((𝜑 ∧ ∀𝑘 ∈ (𝑀...((𝑦 + 1) + 1))𝐶𝐵) → (𝐺 Σg (𝑖 ∈ (𝑀...(𝑦 + 1)) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 ((𝑦 + 1) + 1) / 𝑘𝐶))))
36 oveq1 6977 . . . . . . . . 9 (𝑥 = 𝑁 → (𝑥 + 1) = (𝑁 + 1))
3736oveq2d 6986 . . . . . . . 8 (𝑥 = 𝑁 → (𝑀...(𝑥 + 1)) = (𝑀...(𝑁 + 1)))
3837raleqdv 3349 . . . . . . 7 (𝑥 = 𝑁 → (∀𝑘 ∈ (𝑀...(𝑥 + 1))𝐶𝐵 ↔ ∀𝑘 ∈ (𝑀...(𝑁 + 1))𝐶𝐵))
3938anbi2d 619 . . . . . 6 (𝑥 = 𝑁 → ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑥 + 1))𝐶𝐵) ↔ (𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑁 + 1))𝐶𝐵)))
40 oveq2 6978 . . . . . . . . 9 (𝑥 = 𝑁 → (𝑀...𝑥) = (𝑀...𝑁))
4140mpteq1d 5010 . . . . . . . 8 (𝑥 = 𝑁 → (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶)) = (𝑖 ∈ (𝑀...𝑁) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶)))
4241oveq2d 6986 . . . . . . 7 (𝑥 = 𝑁 → (𝐺 Σg (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝐺 Σg (𝑖 ∈ (𝑀...𝑁) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))))
4336csbeq1d 3789 . . . . . . . 8 (𝑥 = 𝑁(𝑥 + 1) / 𝑘𝐶 = (𝑁 + 1) / 𝑘𝐶)
4443oveq2d 6986 . . . . . . 7 (𝑥 = 𝑁 → (𝑀 / 𝑘𝐶 (𝑥 + 1) / 𝑘𝐶) = (𝑀 / 𝑘𝐶 (𝑁 + 1) / 𝑘𝐶))
4542, 44eqeq12d 2787 . . . . . 6 (𝑥 = 𝑁 → ((𝐺 Σg (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑥 + 1) / 𝑘𝐶) ↔ (𝐺 Σg (𝑖 ∈ (𝑀...𝑁) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑁 + 1) / 𝑘𝐶)))
4639, 45imbi12d 337 . . . . 5 (𝑥 = 𝑁 → (((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑥 + 1))𝐶𝐵) → (𝐺 Σg (𝑖 ∈ (𝑀...𝑥) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑥 + 1) / 𝑘𝐶)) ↔ ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑁 + 1))𝐶𝐵) → (𝐺 Σg (𝑖 ∈ (𝑀...𝑁) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑁 + 1) / 𝑘𝐶))))
47 eluzel2 12056 . . . . . . . . . . 11 (𝑁 ∈ (ℤ𝑀) → 𝑀 ∈ ℤ)
482, 47syl 17 . . . . . . . . . 10 (𝜑𝑀 ∈ ℤ)
4948adantr 473 . . . . . . . . 9 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → 𝑀 ∈ ℤ)
50 fzsn 12758 . . . . . . . . 9 (𝑀 ∈ ℤ → (𝑀...𝑀) = {𝑀})
5149, 50syl 17 . . . . . . . 8 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → (𝑀...𝑀) = {𝑀})
5251mpteq1d 5010 . . . . . . 7 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → (𝑖 ∈ (𝑀...𝑀) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶)) = (𝑖 ∈ {𝑀} ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶)))
5352oveq2d 6986 . . . . . 6 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → (𝐺 Σg (𝑖 ∈ (𝑀...𝑀) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝐺 Σg (𝑖 ∈ {𝑀} ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))))
54 telgsumfzs.b . . . . . . 7 𝐵 = (Base‘𝐺)
55 telgsumfzs.g . . . . . . . . . 10 (𝜑𝐺 ∈ Abel)
56 ablgrp 18661 . . . . . . . . . 10 (𝐺 ∈ Abel → 𝐺 ∈ Grp)
5755, 56syl 17 . . . . . . . . 9 (𝜑𝐺 ∈ Grp)
58 grpmnd 17888 . . . . . . . . 9 (𝐺 ∈ Grp → 𝐺 ∈ Mnd)
5957, 58syl 17 . . . . . . . 8 (𝜑𝐺 ∈ Mnd)
6059adantr 473 . . . . . . 7 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → 𝐺 ∈ Mnd)
6157adantr 473 . . . . . . . 8 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → 𝐺 ∈ Grp)
62 uzid 12066 . . . . . . . . . . . 12 (𝑀 ∈ ℤ → 𝑀 ∈ (ℤ𝑀))
6349, 62syl 17 . . . . . . . . . . 11 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → 𝑀 ∈ (ℤ𝑀))
64 peano2uz 12108 . . . . . . . . . . 11 (𝑀 ∈ (ℤ𝑀) → (𝑀 + 1) ∈ (ℤ𝑀))
6563, 64syl 17 . . . . . . . . . 10 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → (𝑀 + 1) ∈ (ℤ𝑀))
66 eluzfz1 12723 . . . . . . . . . 10 ((𝑀 + 1) ∈ (ℤ𝑀) → 𝑀 ∈ (𝑀...(𝑀 + 1)))
6765, 66syl 17 . . . . . . . . 9 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → 𝑀 ∈ (𝑀...(𝑀 + 1)))
68 rspcsbela 4265 . . . . . . . . 9 ((𝑀 ∈ (𝑀...(𝑀 + 1)) ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → 𝑀 / 𝑘𝐶𝐵)
6967, 68sylancom 579 . . . . . . . 8 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → 𝑀 / 𝑘𝐶𝐵)
70 eluzfz2 12724 . . . . . . . . . 10 ((𝑀 + 1) ∈ (ℤ𝑀) → (𝑀 + 1) ∈ (𝑀...(𝑀 + 1)))
7165, 70syl 17 . . . . . . . . 9 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → (𝑀 + 1) ∈ (𝑀...(𝑀 + 1)))
72 rspcsbela 4265 . . . . . . . . 9 (((𝑀 + 1) ∈ (𝑀...(𝑀 + 1)) ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → (𝑀 + 1) / 𝑘𝐶𝐵)
7371, 72sylancom 579 . . . . . . . 8 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → (𝑀 + 1) / 𝑘𝐶𝐵)
74 telgsumfzs.m . . . . . . . . 9 = (-g𝐺)
7554, 74grpsubcl 17956 . . . . . . . 8 ((𝐺 ∈ Grp ∧ 𝑀 / 𝑘𝐶𝐵(𝑀 + 1) / 𝑘𝐶𝐵) → (𝑀 / 𝑘𝐶 (𝑀 + 1) / 𝑘𝐶) ∈ 𝐵)
7661, 69, 73, 75syl3anc 1351 . . . . . . 7 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → (𝑀 / 𝑘𝐶 (𝑀 + 1) / 𝑘𝐶) ∈ 𝐵)
77 csbeq1 3785 . . . . . . . . 9 (𝑖 = 𝑀𝑖 / 𝑘𝐶 = 𝑀 / 𝑘𝐶)
78 oveq1 6977 . . . . . . . . . 10 (𝑖 = 𝑀 → (𝑖 + 1) = (𝑀 + 1))
7978csbeq1d 3789 . . . . . . . . 9 (𝑖 = 𝑀(𝑖 + 1) / 𝑘𝐶 = (𝑀 + 1) / 𝑘𝐶)
8077, 79oveq12d 6988 . . . . . . . 8 (𝑖 = 𝑀 → (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶) = (𝑀 / 𝑘𝐶 (𝑀 + 1) / 𝑘𝐶))
8180adantl 474 . . . . . . 7 (((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) ∧ 𝑖 = 𝑀) → (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶) = (𝑀 / 𝑘𝐶 (𝑀 + 1) / 𝑘𝐶))
8254, 60, 49, 76, 81gsumsnd 18815 . . . . . 6 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → (𝐺 Σg (𝑖 ∈ {𝑀} ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑀 + 1) / 𝑘𝐶))
8353, 82eqtrd 2808 . . . . 5 ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑀 + 1))𝐶𝐵) → (𝐺 Σg (𝑖 ∈ (𝑀...𝑀) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑀 + 1) / 𝑘𝐶))
8454, 55, 74telgsumfzslem 18848 . . . . . . 7 ((𝑦 ∈ (ℤ𝑀) ∧ (𝜑 ∧ ∀𝑘 ∈ (𝑀...((𝑦 + 1) + 1))𝐶𝐵)) → ((𝐺 Σg (𝑖 ∈ (𝑀...𝑦) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑦 + 1) / 𝑘𝐶) → (𝐺 Σg (𝑖 ∈ (𝑀...(𝑦 + 1)) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 ((𝑦 + 1) + 1) / 𝑘𝐶)))
8584ex 405 . . . . . 6 (𝑦 ∈ (ℤ𝑀) → ((𝜑 ∧ ∀𝑘 ∈ (𝑀...((𝑦 + 1) + 1))𝐶𝐵) → ((𝐺 Σg (𝑖 ∈ (𝑀...𝑦) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑦 + 1) / 𝑘𝐶) → (𝐺 Σg (𝑖 ∈ (𝑀...(𝑦 + 1)) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 ((𝑦 + 1) + 1) / 𝑘𝐶))))
86 eluzelz 12061 . . . . . . . . . . 11 (𝑦 ∈ (ℤ𝑀) → 𝑦 ∈ ℤ)
8786peano2zd 11896 . . . . . . . . . 10 (𝑦 ∈ (ℤ𝑀) → (𝑦 + 1) ∈ ℤ)
8887peano2zd 11896 . . . . . . . . . 10 (𝑦 ∈ (ℤ𝑀) → ((𝑦 + 1) + 1) ∈ ℤ)
89 peano2z 11829 . . . . . . . . . . . . 13 (𝑦 ∈ ℤ → (𝑦 + 1) ∈ ℤ)
9089zred 11893 . . . . . . . . . . . 12 (𝑦 ∈ ℤ → (𝑦 + 1) ∈ ℝ)
9186, 90syl 17 . . . . . . . . . . 11 (𝑦 ∈ (ℤ𝑀) → (𝑦 + 1) ∈ ℝ)
9291lep1d 11364 . . . . . . . . . 10 (𝑦 ∈ (ℤ𝑀) → (𝑦 + 1) ≤ ((𝑦 + 1) + 1))
93 eluz2 12057 . . . . . . . . . 10 (((𝑦 + 1) + 1) ∈ (ℤ‘(𝑦 + 1)) ↔ ((𝑦 + 1) ∈ ℤ ∧ ((𝑦 + 1) + 1) ∈ ℤ ∧ (𝑦 + 1) ≤ ((𝑦 + 1) + 1)))
9487, 88, 92, 93syl3anbrc 1323 . . . . . . . . 9 (𝑦 ∈ (ℤ𝑀) → ((𝑦 + 1) + 1) ∈ (ℤ‘(𝑦 + 1)))
95 fzss2 12756 . . . . . . . . 9 (((𝑦 + 1) + 1) ∈ (ℤ‘(𝑦 + 1)) → (𝑀...(𝑦 + 1)) ⊆ (𝑀...((𝑦 + 1) + 1)))
9694, 95syl 17 . . . . . . . 8 (𝑦 ∈ (ℤ𝑀) → (𝑀...(𝑦 + 1)) ⊆ (𝑀...((𝑦 + 1) + 1)))
97 ssralv 3919 . . . . . . . 8 ((𝑀...(𝑦 + 1)) ⊆ (𝑀...((𝑦 + 1) + 1)) → (∀𝑘 ∈ (𝑀...((𝑦 + 1) + 1))𝐶𝐵 → ∀𝑘 ∈ (𝑀...(𝑦 + 1))𝐶𝐵))
9896, 97syl 17 . . . . . . 7 (𝑦 ∈ (ℤ𝑀) → (∀𝑘 ∈ (𝑀...((𝑦 + 1) + 1))𝐶𝐵 → ∀𝑘 ∈ (𝑀...(𝑦 + 1))𝐶𝐵))
9998adantld 483 . . . . . 6 (𝑦 ∈ (ℤ𝑀) → ((𝜑 ∧ ∀𝑘 ∈ (𝑀...((𝑦 + 1) + 1))𝐶𝐵) → ∀𝑘 ∈ (𝑀...(𝑦 + 1))𝐶𝐵))
10085, 99a2and 831 . . . . 5 (𝑦 ∈ (ℤ𝑀) → (((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑦 + 1))𝐶𝐵) → (𝐺 Σg (𝑖 ∈ (𝑀...𝑦) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑦 + 1) / 𝑘𝐶)) → ((𝜑 ∧ ∀𝑘 ∈ (𝑀...((𝑦 + 1) + 1))𝐶𝐵) → (𝐺 Σg (𝑖 ∈ (𝑀...(𝑦 + 1)) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 ((𝑦 + 1) + 1) / 𝑘𝐶))))
10113, 24, 35, 46, 83, 100uzind4i 12117 . . . 4 (𝑁 ∈ (ℤ𝑀) → ((𝜑 ∧ ∀𝑘 ∈ (𝑀...(𝑁 + 1))𝐶𝐵) → (𝐺 Σg (𝑖 ∈ (𝑀...𝑁) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑁 + 1) / 𝑘𝐶)))
102101expd 408 . . 3 (𝑁 ∈ (ℤ𝑀) → (𝜑 → (∀𝑘 ∈ (𝑀...(𝑁 + 1))𝐶𝐵 → (𝐺 Σg (𝑖 ∈ (𝑀...𝑁) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑁 + 1) / 𝑘𝐶))))
1032, 102mpcom 38 . 2 (𝜑 → (∀𝑘 ∈ (𝑀...(𝑁 + 1))𝐶𝐵 → (𝐺 Σg (𝑖 ∈ (𝑀...𝑁) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑁 + 1) / 𝑘𝐶)))
1041, 103mpd 15 1 (𝜑 → (𝐺 Σg (𝑖 ∈ (𝑀...𝑁) ↦ (𝑖 / 𝑘𝐶 (𝑖 + 1) / 𝑘𝐶))) = (𝑀 / 𝑘𝐶 (𝑁 + 1) / 𝑘𝐶))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 387   = wceq 1507  wcel 2048  wral 3082  csb 3782  wss 3825  {csn 4435   class class class wbr 4923  cmpt 5002  cfv 6182  (class class class)co 6970  cr 10326  1c1 10328   + caddc 10330  cle 10467  cz 11786  cuz 12051  ...cfz 12701  Basecbs 16329   Σg cgsu 16560  Mndcmnd 17752  Grpcgrp 17881  -gcsg 17883  Abelcabl 18657
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1964  ax-8 2050  ax-9 2057  ax-10 2077  ax-11 2091  ax-12 2104  ax-13 2299  ax-ext 2745  ax-rep 5043  ax-sep 5054  ax-nul 5061  ax-pow 5113  ax-pr 5180  ax-un 7273  ax-cnex 10383  ax-resscn 10384  ax-1cn 10385  ax-icn 10386  ax-addcl 10387  ax-addrcl 10388  ax-mulcl 10389  ax-mulrcl 10390  ax-mulcom 10391  ax-addass 10392  ax-mulass 10393  ax-distr 10394  ax-i2m1 10395  ax-1ne0 10396  ax-1rid 10397  ax-rnegex 10398  ax-rrecex 10399  ax-cnre 10400  ax-pre-lttri 10401  ax-pre-lttrn 10402  ax-pre-ltadd 10403  ax-pre-mulgt0 10404
This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3or 1069  df-3an 1070  df-tru 1510  df-fal 1520  df-ex 1743  df-nf 1747  df-sb 2014  df-mo 2544  df-eu 2580  df-clab 2754  df-cleq 2765  df-clel 2840  df-nfc 2912  df-ne 2962  df-nel 3068  df-ral 3087  df-rex 3088  df-reu 3089  df-rmo 3090  df-rab 3091  df-v 3411  df-sbc 3678  df-csb 3783  df-dif 3828  df-un 3830  df-in 3832  df-ss 3839  df-pss 3841  df-nul 4174  df-if 4345  df-pw 4418  df-sn 4436  df-pr 4438  df-tp 4440  df-op 4442  df-uni 4707  df-int 4744  df-iun 4788  df-iin 4789  df-br 4924  df-opab 4986  df-mpt 5003  df-tr 5025  df-id 5305  df-eprel 5310  df-po 5319  df-so 5320  df-fr 5359  df-se 5360  df-we 5361  df-xp 5406  df-rel 5407  df-cnv 5408  df-co 5409  df-dm 5410  df-rn 5411  df-res 5412  df-ima 5413  df-pred 5980  df-ord 6026  df-on 6027  df-lim 6028  df-suc 6029  df-iota 6146  df-fun 6184  df-fn 6185  df-f 6186  df-f1 6187  df-fo 6188  df-f1o 6189  df-fv 6190  df-isom 6191  df-riota 6931  df-ov 6973  df-oprab 6974  df-mpo 6975  df-of 7221  df-om 7391  df-1st 7494  df-2nd 7495  df-supp 7627  df-wrecs 7743  df-recs 7805  df-rdg 7843  df-1o 7897  df-oadd 7901  df-er 8081  df-en 8299  df-dom 8300  df-sdom 8301  df-fin 8302  df-fsupp 8621  df-oi 8761  df-card 9154  df-pnf 10468  df-mnf 10469  df-xr 10470  df-ltxr 10471  df-le 10472  df-sub 10664  df-neg 10665  df-nn 11432  df-2 11496  df-n0 11701  df-z 11787  df-uz 12052  df-fz 12702  df-fzo 12843  df-seq 13178  df-hash 13499  df-ndx 16332  df-slot 16333  df-base 16335  df-sets 16336  df-ress 16337  df-plusg 16424  df-0g 16561  df-gsum 16562  df-mre 16705  df-mrc 16706  df-acs 16708  df-mgm 17700  df-sgrp 17742  df-mnd 17753  df-submnd 17794  df-grp 17884  df-minusg 17885  df-sbg 17886  df-mulg 18002  df-cntz 18208  df-cmn 18658  df-abl 18659
This theorem is referenced by:  telgsumfz  18850  telgsumfz0s  18851
  Copyright terms: Public domain W3C validator