seqhomo - Metamath Proof Explorer

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

Theorem seqhomo 14081

Description: Apply a homomorphism to a sequence. (Contributed by Mario Carneiro, 28-Jul-2013.) (Revised by Mario Carneiro, 27-May-2014.)

**Hypotheses**
Ref	Expression
seqhomo.1	⊢ ((𝜑 ∧ (𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆)) → (𝑥 + 𝑦) ∈ 𝑆)
seqhomo.2	⊢ ((𝜑 ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝐹‘𝑥) ∈ 𝑆)
seqhomo.3	⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘𝑀))
seqhomo.4	⊢ ((𝜑 ∧ (𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆)) → (𝐻‘(𝑥 + 𝑦)) = ((𝐻‘𝑥)𝑄(𝐻‘𝑦)))
seqhomo.5	⊢ ((𝜑 ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝐻‘(𝐹‘𝑥)) = (𝐺‘𝑥))

**Assertion**
Ref	Expression
seqhomo	⊢ (𝜑 → (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)) = (seq𝑀(𝑄, 𝐺)‘𝑁))

Distinct variable groups: 𝑥,𝑦,𝐹 𝑥,𝐻,𝑦 𝑥,𝑀,𝑦 𝑥,𝑁,𝑦 𝜑,𝑥,𝑦 𝑥,𝐺 𝑥, + ,𝑦 𝑥,𝑄,𝑦 𝑥,𝑆,𝑦 Allowed substitution hint: 𝐺(𝑦)

Proof of Theorem seqhomo Dummy variable 𝑛 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		seqhomo.3	. . 3 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘𝑀))
2		eluzfz2 13555	. . 3 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑁 ∈ (𝑀...𝑁))
3	1, 2	syl 18	. 2 ⊢ (𝜑 → 𝑁 ∈ (𝑀...𝑁))
4		eleq1 2851	. . . . . 6 ⊢ (𝑥 = 𝑀 → (𝑥 ∈ (𝑀...𝑁) ↔ 𝑀 ∈ (𝑀...𝑁)))
5		2fveq3 6886	. . . . . . 7 ⊢ (𝑥 = 𝑀 → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)))
6		fveq2 6881	. . . . . . 7 ⊢ (𝑥 = 𝑀 → (seq𝑀(𝑄, 𝐺)‘𝑥) = (seq𝑀(𝑄, 𝐺)‘𝑀))
7	5, 6	eqeq12d 2779	. . . . . 6 ⊢ (𝑥 = 𝑀 → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥) ↔ (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)) = (seq𝑀(𝑄, 𝐺)‘𝑀)))
8	4, 7	imbi12d 347	. . . . 5 ⊢ (𝑥 = 𝑀 → ((𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥)) ↔ (𝑀 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)) = (seq𝑀(𝑄, 𝐺)‘𝑀))))
9	8	imbi2d 343	. . . 4 ⊢ (𝑥 = 𝑀 → ((𝜑 → (𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥))) ↔ (𝜑 → (𝑀 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)) = (seq𝑀(𝑄, 𝐺)‘𝑀)))))
10		eleq1 2851	. . . . . 6 ⊢ (𝑥 = 𝑛 → (𝑥 ∈ (𝑀...𝑁) ↔ 𝑛 ∈ (𝑀...𝑁)))
11		2fveq3 6886	. . . . . . 7 ⊢ (𝑥 = 𝑛 → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)))
12		fveq2 6881	. . . . . . 7 ⊢ (𝑥 = 𝑛 → (seq𝑀(𝑄, 𝐺)‘𝑥) = (seq𝑀(𝑄, 𝐺)‘𝑛))
13	11, 12	eqeq12d 2779	. . . . . 6 ⊢ (𝑥 = 𝑛 → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥) ↔ (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛)))
14	10, 13	imbi12d 347	. . . . 5 ⊢ (𝑥 = 𝑛 → ((𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥)) ↔ (𝑛 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛))))
15	14	imbi2d 343	. . . 4 ⊢ (𝑥 = 𝑛 → ((𝜑 → (𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥))) ↔ (𝜑 → (𝑛 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛)))))
16		eleq1 2851	. . . . . 6 ⊢ (𝑥 = (𝑛 + 1) → (𝑥 ∈ (𝑀...𝑁) ↔ (𝑛 + 1) ∈ (𝑀...𝑁)))
17		2fveq3 6886	. . . . . . 7 ⊢ (𝑥 = (𝑛 + 1) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))))
18		fveq2 6881	. . . . . . 7 ⊢ (𝑥 = (𝑛 + 1) → (seq𝑀(𝑄, 𝐺)‘𝑥) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1)))
19	17, 18	eqeq12d 2779	. . . . . 6 ⊢ (𝑥 = (𝑛 + 1) → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥) ↔ (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1))))
20	16, 19	imbi12d 347	. . . . 5 ⊢ (𝑥 = (𝑛 + 1) → ((𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥)) ↔ ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1)))))
21	20	imbi2d 343	. . . 4 ⊢ (𝑥 = (𝑛 + 1) → ((𝜑 → (𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥))) ↔ (𝜑 → ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1))))))
22		eleq1 2851	. . . . . 6 ⊢ (𝑥 = 𝑁 → (𝑥 ∈ (𝑀...𝑁) ↔ 𝑁 ∈ (𝑀...𝑁)))
23		2fveq3 6886	. . . . . . 7 ⊢ (𝑥 = 𝑁 → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)))
24		fveq2 6881	. . . . . . 7 ⊢ (𝑥 = 𝑁 → (seq𝑀(𝑄, 𝐺)‘𝑥) = (seq𝑀(𝑄, 𝐺)‘𝑁))
25	23, 24	eqeq12d 2779	. . . . . 6 ⊢ (𝑥 = 𝑁 → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥) ↔ (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)) = (seq𝑀(𝑄, 𝐺)‘𝑁)))
26	22, 25	imbi12d 347	. . . . 5 ⊢ (𝑥 = 𝑁 → ((𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥)) ↔ (𝑁 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)) = (seq𝑀(𝑄, 𝐺)‘𝑁))))
27	26	imbi2d 343	. . . 4 ⊢ (𝑥 = 𝑁 → ((𝜑 → (𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥))) ↔ (𝜑 → (𝑁 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)) = (seq𝑀(𝑄, 𝐺)‘𝑁)))))
28		2fveq3 6886	. . . . . . . 8 ⊢ (𝑥 = 𝑀 → (𝐻‘(𝐹‘𝑥)) = (𝐻‘(𝐹‘𝑀)))
29		fveq2 6881	. . . . . . . 8 ⊢ (𝑥 = 𝑀 → (𝐺‘𝑥) = (𝐺‘𝑀))
30	28, 29	eqeq12d 2779	. . . . . . 7 ⊢ (𝑥 = 𝑀 → ((𝐻‘(𝐹‘𝑥)) = (𝐺‘𝑥) ↔ (𝐻‘(𝐹‘𝑀)) = (𝐺‘𝑀)))
31		seqhomo.5	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝐻‘(𝐹‘𝑥)) = (𝐺‘𝑥))
32	31	ralrimiva 3157	. . . . . . 7 ⊢ (𝜑 → ∀𝑥 ∈ (𝑀...𝑁)(𝐻‘(𝐹‘𝑥)) = (𝐺‘𝑥))
33		eluzfz1 13554	. . . . . . . 8 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑀 ∈ (𝑀...𝑁))
34	1, 33	syl 18	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ (𝑀...𝑁))
35	30, 32, 34	rspcdva 3582	. . . . . 6 ⊢ (𝜑 → (𝐻‘(𝐹‘𝑀)) = (𝐺‘𝑀))
36		eluzel2 12862	. . . . . . . 8 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑀 ∈ ℤ)
37		seq1 14046	. . . . . . . 8 ⊢ (𝑀 ∈ ℤ → (seq𝑀( + , 𝐹)‘𝑀) = (𝐹‘𝑀))
38	1, 36, 37	3syl 19	. . . . . . 7 ⊢ (𝜑 → (seq𝑀( + , 𝐹)‘𝑀) = (𝐹‘𝑀))
39	38	fveq2d 6885	. . . . . 6 ⊢ (𝜑 → (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)) = (𝐻‘(𝐹‘𝑀)))
40		seq1 14046	. . . . . . 7 ⊢ (𝑀 ∈ ℤ → (seq𝑀(𝑄, 𝐺)‘𝑀) = (𝐺‘𝑀))
41	1, 36, 40	3syl 19	. . . . . 6 ⊢ (𝜑 → (seq𝑀(𝑄, 𝐺)‘𝑀) = (𝐺‘𝑀))
42	35, 39, 41	3eqtr4d 2808	. . . . 5 ⊢ (𝜑 → (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)) = (seq𝑀(𝑄, 𝐺)‘𝑀))
43	42	a1d 26	. . . 4 ⊢ (𝜑 → (𝑀 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)) = (seq𝑀(𝑄, 𝐺)‘𝑀)))
44		peano2fzr 13560	. . . . . . . 8 ⊢ ((𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁)) → 𝑛 ∈ (𝑀...𝑁))
45	44	adantl 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → 𝑛 ∈ (𝑀...𝑁))
46	45	expr 461	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ_≥‘𝑀)) → ((𝑛 + 1) ∈ (𝑀...𝑁) → 𝑛 ∈ (𝑀...𝑁)))
47	46	imim1d 83	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ_≥‘𝑀)) → ((𝑛 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛)) → ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛))))
48		oveq1 7417	. . . . . 6 ⊢ ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛) → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐺‘(𝑛 + 1))) = ((seq𝑀(𝑄, 𝐺)‘𝑛)𝑄(𝐺‘(𝑛 + 1))))
49		seqp1 14048	. . . . . . . . . 10 ⊢ (𝑛 ∈ (ℤ_≥‘𝑀) → (seq𝑀( + , 𝐹)‘(𝑛 + 1)) = ((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1))))
50	49	ad2antrl 740	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (seq𝑀( + , 𝐹)‘(𝑛 + 1)) = ((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1))))
51	50	fveq2d 6885	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1)))))
52		seqhomo.4	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆)) → (𝐻‘(𝑥 + 𝑦)) = ((𝐻‘𝑥)𝑄(𝐻‘𝑦)))
53	52	ralrimivva 3208	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝐻‘(𝑥 + 𝑦)) = ((𝐻‘𝑥)𝑄(𝐻‘𝑦)))
54	53	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝐻‘(𝑥 + 𝑦)) = ((𝐻‘𝑥)𝑄(𝐻‘𝑦)))
55		simprl 782	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → 𝑛 ∈ (ℤ_≥‘𝑀))
56		elfzuz3 13544	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ (𝑀...𝑁) → 𝑁 ∈ (ℤ_≥‘𝑛))
57		fzss2 13588	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘𝑛) → (𝑀...𝑛) ⊆ (𝑀...𝑁))
58	45, 56, 57	3syl 19	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (𝑀...𝑛) ⊆ (𝑀...𝑁))
59	58	sselda 3937	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) ∧ 𝑥 ∈ (𝑀...𝑛)) → 𝑥 ∈ (𝑀...𝑁))
60		seqhomo.2	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝐹‘𝑥) ∈ 𝑆)
61	60	adantlr 727	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝐹‘𝑥) ∈ 𝑆)
62	59, 61	syldan 602	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) ∧ 𝑥 ∈ (𝑀...𝑛)) → (𝐹‘𝑥) ∈ 𝑆)
63		seqhomo.1	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆)) → (𝑥 + 𝑦) ∈ 𝑆)
64	63	adantlr 727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) ∧ (𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆)) → (𝑥 + 𝑦) ∈ 𝑆)
65	55, 62, 64	seqcl 14054	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (seq𝑀( + , 𝐹)‘𝑛) ∈ 𝑆)
66		fveq2 6881	. . . . . . . . . . . 12 ⊢ (𝑥 = (𝑛 + 1) → (𝐹‘𝑥) = (𝐹‘(𝑛 + 1)))
67	66	eleq1d 2848	. . . . . . . . . . 11 ⊢ (𝑥 = (𝑛 + 1) → ((𝐹‘𝑥) ∈ 𝑆 ↔ (𝐹‘(𝑛 + 1)) ∈ 𝑆))
68	60	ralrimiva 3157	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑥 ∈ (𝑀...𝑁)(𝐹‘𝑥) ∈ 𝑆)
69	68	adantr 485	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → ∀𝑥 ∈ (𝑀...𝑁)(𝐹‘𝑥) ∈ 𝑆)
70		simprr 784	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (𝑛 + 1) ∈ (𝑀...𝑁))
71	67, 69, 70	rspcdva 3582	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (𝐹‘(𝑛 + 1)) ∈ 𝑆)
72		fvoveq1 7433	. . . . . . . . . . . 12 ⊢ (𝑥 = (seq𝑀( + , 𝐹)‘𝑛) → (𝐻‘(𝑥 + 𝑦)) = (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + 𝑦)))
73		fveq2 6881	. . . . . . . . . . . . 13 ⊢ (𝑥 = (seq𝑀( + , 𝐹)‘𝑛) → (𝐻‘𝑥) = (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)))
74	73	oveq1d 7425	. . . . . . . . . . . 12 ⊢ (𝑥 = (seq𝑀( + , 𝐹)‘𝑛) → ((𝐻‘𝑥)𝑄(𝐻‘𝑦)) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘𝑦)))
75	72, 74	eqeq12d 2779	. . . . . . . . . . 11 ⊢ (𝑥 = (seq𝑀( + , 𝐹)‘𝑛) → ((𝐻‘(𝑥 + 𝑦)) = ((𝐻‘𝑥)𝑄(𝐻‘𝑦)) ↔ (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + 𝑦)) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘𝑦))))
76		oveq2 7418	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝐹‘(𝑛 + 1)) → ((seq𝑀( + , 𝐹)‘𝑛) + 𝑦) = ((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1))))
77	76	fveq2d 6885	. . . . . . . . . . . 12 ⊢ (𝑦 = (𝐹‘(𝑛 + 1)) → (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + 𝑦)) = (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1)))))
78		fveq2 6881	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝐹‘(𝑛 + 1)) → (𝐻‘𝑦) = (𝐻‘(𝐹‘(𝑛 + 1))))
79	78	oveq2d 7426	. . . . . . . . . . . 12 ⊢ (𝑦 = (𝐹‘(𝑛 + 1)) → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘𝑦)) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘(𝐹‘(𝑛 + 1)))))
80	77, 79	eqeq12d 2779	. . . . . . . . . . 11 ⊢ (𝑦 = (𝐹‘(𝑛 + 1)) → ((𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + 𝑦)) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘𝑦)) ↔ (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1)))) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘(𝐹‘(𝑛 + 1))))))
81	75, 80	rspc2v 3592	. . . . . . . . . 10 ⊢ (((seq𝑀( + , 𝐹)‘𝑛) ∈ 𝑆 ∧ (𝐹‘(𝑛 + 1)) ∈ 𝑆) → (∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝐻‘(𝑥 + 𝑦)) = ((𝐻‘𝑥)𝑄(𝐻‘𝑦)) → (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1)))) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘(𝐹‘(𝑛 + 1))))))
82	65, 71, 81	syl2anc 595	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝐻‘(𝑥 + 𝑦)) = ((𝐻‘𝑥)𝑄(𝐻‘𝑦)) → (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1)))) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘(𝐹‘(𝑛 + 1))))))
83	54, 82	mpd 16	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1)))) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘(𝐹‘(𝑛 + 1)))))
84		2fveq3 6886	. . . . . . . . . . 11 ⊢ (𝑥 = (𝑛 + 1) → (𝐻‘(𝐹‘𝑥)) = (𝐻‘(𝐹‘(𝑛 + 1))))
85		fveq2 6881	. . . . . . . . . . 11 ⊢ (𝑥 = (𝑛 + 1) → (𝐺‘𝑥) = (𝐺‘(𝑛 + 1)))
86	84, 85	eqeq12d 2779	. . . . . . . . . 10 ⊢ (𝑥 = (𝑛 + 1) → ((𝐻‘(𝐹‘𝑥)) = (𝐺‘𝑥) ↔ (𝐻‘(𝐹‘(𝑛 + 1))) = (𝐺‘(𝑛 + 1))))
87	32	adantr 485	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → ∀𝑥 ∈ (𝑀...𝑁)(𝐻‘(𝐹‘𝑥)) = (𝐺‘𝑥))
88	86, 87, 70	rspcdva 3582	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (𝐻‘(𝐹‘(𝑛 + 1))) = (𝐺‘(𝑛 + 1)))
89	88	oveq2d 7426	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘(𝐹‘(𝑛 + 1)))) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐺‘(𝑛 + 1))))
90	51, 83, 89	3eqtrd 2802	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐺‘(𝑛 + 1))))
91		seqp1 14048	. . . . . . . 8 ⊢ (𝑛 ∈ (ℤ_≥‘𝑀) → (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1)) = ((seq𝑀(𝑄, 𝐺)‘𝑛)𝑄(𝐺‘(𝑛 + 1))))
92	91	ad2antrl 740	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1)) = ((seq𝑀(𝑄, 𝐺)‘𝑛)𝑄(𝐺‘(𝑛 + 1))))
93	90, 92	eqeq12d 2779	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → ((𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1)) ↔ ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐺‘(𝑛 + 1))) = ((seq𝑀(𝑄, 𝐺)‘𝑛)𝑄(𝐺‘(𝑛 + 1)))))
94	48, 93	imbitrrid 249	. . . . 5 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1))))
95	47, 94	animpimp2impd 859	. . . 4 ⊢ (𝑛 ∈ (ℤ_≥‘𝑀) → ((𝜑 → (𝑛 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛))) → (𝜑 → ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1))))))
96	9, 15, 21, 27, 43, 95	uzind4i 12929	. . 3 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → (𝜑 → (𝑁 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)) = (seq𝑀(𝑄, 𝐺)‘𝑁))))
97	1, 96	mpcom 39	. 2 ⊢ (𝜑 → (𝑁 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)) = (seq𝑀(𝑄, 𝐺)‘𝑁)))
98	3, 97	mpd 16	1 ⊢ (𝜑 → (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)) = (seq𝑀(𝑄, 𝐺)‘𝑁))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 400 = wceq 1570 ∈ wcel 2143 ∀wral 3079 ⊆ wss 3905 ‘cfv 6536 (class class class)co 7410 1c1 11096 + caddc 11098 ℤcz 12586 ℤ_≥cuz 12857 ...cfz 13530 seqcseq 14033

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1825 ax-4 1839 ax-5 1940 ax-6 1997 ax-7 2038 ax-8 2145 ax-9 2153 ax-10 2176 ax-11 2192 ax-12 2213 ax-ext 2735 ax-sep 5257 ax-nul 5269 ax-pow 5336 ax-pr 5404 ax-un 7732 ax-cnex 11151 ax-resscn 11152 ax-1cn 11153 ax-icn 11154 ax-addcl 11155 ax-addrcl 11156 ax-mulcl 11157 ax-mulrcl 11158 ax-mulcom 11159 ax-addass 11160 ax-mulass 11161 ax-distr 11162 ax-i2m1 11163 ax-1ne0 11164 ax-1rid 11165 ax-rnegex 11166 ax-rrecex 11167 ax-cnre 11168 ax-pre-lttri 11169 ax-pre-lttrn 11170 ax-pre-ltadd 11171 ax-pre-mulgt0 11172

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1810 df-nf 1814 df-sb 2097 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2838 df-nfc 2912 df-ne 2959 df-nel 3065 df-ral 3080 df-rex 3090 df-reu 3370 df-rab 3417 df-v 3457 df-sbc 3745 df-csb 3854 df-dif 3908 df-un 3910 df-in 3912 df-ss 3922 df-pss 3925 df-nul 4287 df-if 4488 df-pw 4564 df-sn 4590 df-pr 4592 df-op 4596 df-uni 4873 df-iun 4958 df-br 5110 df-opab 5174 df-mpt 5193 df-tr 5219 df-id 5556 df-eprel 5561 df-po 5569 df-so 5570 df-fr 5614 df-we 5616 df-xp 5667 df-rel 5668 df-cnv 5669 df-co 5670 df-dm 5671 df-rn 5672 df-res 5673 df-ima 5674 df-pred 6302 df-ord 6363 df-on 6364 df-lim 6365 df-suc 6366 df-iota 6492 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-riota 7367 df-ov 7413 df-oprab 7414 df-mpo 7415 df-om 7859 df-1st 7982 df-2nd 7983 df-frecs 8274 df-wrecs 8305 df-recs 8354 df-rdg 8393 df-er 8690 df-en 8940 df-dom 8941 df-sdom 8942 df-pnf 11240 df-mnf 11241 df-xr 11242 df-ltxr 11243 df-le 11244 df-sub 11438 df-neg 11439 df-nn 12229 df-n0 12500 df-z 12587 df-uz 12858 df-fz 13531 df-seq 14034

This theorem is referenced by: seqfeq4 14083 seqdistr 14085 seqof 14091 fsumrelem 15855 efcj 16141 gsumwmhm 18899 gsumzmhm 20002 elqaalem2 26481 logfac 26766 gamcvg2lem 27223 prmorcht 27342 pclogsum 27379

W3C validator