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 12710

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 12220	. . 3 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑁 ∈ (𝑀...𝑁))
3	1, 2	syl 17	. 2 ⊢ (𝜑 → 𝑁 ∈ (𝑀...𝑁))
4		eleq1 2676	. . . . . 6 ⊢ (𝑥 = 𝑀 → (𝑥 ∈ (𝑀...𝑁) ↔ 𝑀 ∈ (𝑀...𝑁)))
5		fveq2 6103	. . . . . . . 8 ⊢ (𝑥 = 𝑀 → (seq𝑀( + , 𝐹)‘𝑥) = (seq𝑀( + , 𝐹)‘𝑀))
6	5	fveq2d 6107	. . . . . . 7 ⊢ (𝑥 = 𝑀 → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)))
7		fveq2 6103	. . . . . . 7 ⊢ (𝑥 = 𝑀 → (seq𝑀(𝑄, 𝐺)‘𝑥) = (seq𝑀(𝑄, 𝐺)‘𝑀))
8	6, 7	eqeq12d 2625	. . . . . 6 ⊢ (𝑥 = 𝑀 → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥) ↔ (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)) = (seq𝑀(𝑄, 𝐺)‘𝑀)))
9	4, 8	imbi12d 333	. . . . 5 ⊢ (𝑥 = 𝑀 → ((𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥)) ↔ (𝑀 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)) = (seq𝑀(𝑄, 𝐺)‘𝑀))))
10	9	imbi2d 329	. . . 4 ⊢ (𝑥 = 𝑀 → ((𝜑 → (𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥))) ↔ (𝜑 → (𝑀 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)) = (seq𝑀(𝑄, 𝐺)‘𝑀)))))
11		eleq1 2676	. . . . . 6 ⊢ (𝑥 = 𝑛 → (𝑥 ∈ (𝑀...𝑁) ↔ 𝑛 ∈ (𝑀...𝑁)))
12		fveq2 6103	. . . . . . . 8 ⊢ (𝑥 = 𝑛 → (seq𝑀( + , 𝐹)‘𝑥) = (seq𝑀( + , 𝐹)‘𝑛))
13	12	fveq2d 6107	. . . . . . 7 ⊢ (𝑥 = 𝑛 → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)))
14		fveq2 6103	. . . . . . 7 ⊢ (𝑥 = 𝑛 → (seq𝑀(𝑄, 𝐺)‘𝑥) = (seq𝑀(𝑄, 𝐺)‘𝑛))
15	13, 14	eqeq12d 2625	. . . . . 6 ⊢ (𝑥 = 𝑛 → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥) ↔ (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛)))
16	11, 15	imbi12d 333	. . . . 5 ⊢ (𝑥 = 𝑛 → ((𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥)) ↔ (𝑛 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛))))
17	16	imbi2d 329	. . . 4 ⊢ (𝑥 = 𝑛 → ((𝜑 → (𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥))) ↔ (𝜑 → (𝑛 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛)))))
18		eleq1 2676	. . . . . 6 ⊢ (𝑥 = (𝑛 + 1) → (𝑥 ∈ (𝑀...𝑁) ↔ (𝑛 + 1) ∈ (𝑀...𝑁)))
19		fveq2 6103	. . . . . . . 8 ⊢ (𝑥 = (𝑛 + 1) → (seq𝑀( + , 𝐹)‘𝑥) = (seq𝑀( + , 𝐹)‘(𝑛 + 1)))
20	19	fveq2d 6107	. . . . . . 7 ⊢ (𝑥 = (𝑛 + 1) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))))
21		fveq2 6103	. . . . . . 7 ⊢ (𝑥 = (𝑛 + 1) → (seq𝑀(𝑄, 𝐺)‘𝑥) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1)))
22	20, 21	eqeq12d 2625	. . . . . 6 ⊢ (𝑥 = (𝑛 + 1) → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥) ↔ (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1))))
23	18, 22	imbi12d 333	. . . . 5 ⊢ (𝑥 = (𝑛 + 1) → ((𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥)) ↔ ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1)))))
24	23	imbi2d 329	. . . 4 ⊢ (𝑥 = (𝑛 + 1) → ((𝜑 → (𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥))) ↔ (𝜑 → ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1))))))
25		eleq1 2676	. . . . . 6 ⊢ (𝑥 = 𝑁 → (𝑥 ∈ (𝑀...𝑁) ↔ 𝑁 ∈ (𝑀...𝑁)))
26		fveq2 6103	. . . . . . . 8 ⊢ (𝑥 = 𝑁 → (seq𝑀( + , 𝐹)‘𝑥) = (seq𝑀( + , 𝐹)‘𝑁))
27	26	fveq2d 6107	. . . . . . 7 ⊢ (𝑥 = 𝑁 → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)))
28		fveq2 6103	. . . . . . 7 ⊢ (𝑥 = 𝑁 → (seq𝑀(𝑄, 𝐺)‘𝑥) = (seq𝑀(𝑄, 𝐺)‘𝑁))
29	27, 28	eqeq12d 2625	. . . . . 6 ⊢ (𝑥 = 𝑁 → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥) ↔ (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)) = (seq𝑀(𝑄, 𝐺)‘𝑁)))
30	25, 29	imbi12d 333	. . . . 5 ⊢ (𝑥 = 𝑁 → ((𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥)) ↔ (𝑁 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)) = (seq𝑀(𝑄, 𝐺)‘𝑁))))
31	30	imbi2d 329	. . . 4 ⊢ (𝑥 = 𝑁 → ((𝜑 → (𝑥 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑥)) = (seq𝑀(𝑄, 𝐺)‘𝑥))) ↔ (𝜑 → (𝑁 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)) = (seq𝑀(𝑄, 𝐺)‘𝑁)))))
32		eluzfz1 12219	. . . . . . . . 9 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑀 ∈ (𝑀...𝑁))
33	1, 32	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑀 ∈ (𝑀...𝑁))
34		seqhomo.5	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝐻‘(𝐹‘𝑥)) = (𝐺‘𝑥))
35	34	ralrimiva 2949	. . . . . . . 8 ⊢ (𝜑 → ∀𝑥 ∈ (𝑀...𝑁)(𝐻‘(𝐹‘𝑥)) = (𝐺‘𝑥))
36		fveq2 6103	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑀 → (𝐹‘𝑥) = (𝐹‘𝑀))
37	36	fveq2d 6107	. . . . . . . . . 10 ⊢ (𝑥 = 𝑀 → (𝐻‘(𝐹‘𝑥)) = (𝐻‘(𝐹‘𝑀)))
38		fveq2 6103	. . . . . . . . . 10 ⊢ (𝑥 = 𝑀 → (𝐺‘𝑥) = (𝐺‘𝑀))
39	37, 38	eqeq12d 2625	. . . . . . . . 9 ⊢ (𝑥 = 𝑀 → ((𝐻‘(𝐹‘𝑥)) = (𝐺‘𝑥) ↔ (𝐻‘(𝐹‘𝑀)) = (𝐺‘𝑀)))
40	39	rspcv 3278	. . . . . . . 8 ⊢ (𝑀 ∈ (𝑀...𝑁) → (∀𝑥 ∈ (𝑀...𝑁)(𝐻‘(𝐹‘𝑥)) = (𝐺‘𝑥) → (𝐻‘(𝐹‘𝑀)) = (𝐺‘𝑀)))
41	33, 35, 40	sylc 63	. . . . . . 7 ⊢ (𝜑 → (𝐻‘(𝐹‘𝑀)) = (𝐺‘𝑀))
42		eluzel2 11568	. . . . . . . . 9 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑀 ∈ ℤ)
43		seq1 12676	. . . . . . . . 9 ⊢ (𝑀 ∈ ℤ → (seq𝑀( + , 𝐹)‘𝑀) = (𝐹‘𝑀))
44	1, 42, 43	3syl 18	. . . . . . . 8 ⊢ (𝜑 → (seq𝑀( + , 𝐹)‘𝑀) = (𝐹‘𝑀))
45	44	fveq2d 6107	. . . . . . 7 ⊢ (𝜑 → (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)) = (𝐻‘(𝐹‘𝑀)))
46		seq1 12676	. . . . . . . 8 ⊢ (𝑀 ∈ ℤ → (seq𝑀(𝑄, 𝐺)‘𝑀) = (𝐺‘𝑀))
47	1, 42, 46	3syl 18	. . . . . . 7 ⊢ (𝜑 → (seq𝑀(𝑄, 𝐺)‘𝑀) = (𝐺‘𝑀))
48	41, 45, 47	3eqtr4d 2654	. . . . . 6 ⊢ (𝜑 → (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)) = (seq𝑀(𝑄, 𝐺)‘𝑀))
49	48	a1d 25	. . . . 5 ⊢ (𝜑 → (𝑀 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)) = (seq𝑀(𝑄, 𝐺)‘𝑀)))
50	49	a1i 11	. . . 4 ⊢ (𝑀 ∈ ℤ → (𝜑 → (𝑀 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑀)) = (seq𝑀(𝑄, 𝐺)‘𝑀))))
51		simprl 790	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → 𝑛 ∈ (ℤ_≥‘𝑀))
52		simprr 792	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (𝑛 + 1) ∈ (𝑀...𝑁))
53		peano2fzr 12225	. . . . . . . . . 10 ⊢ ((𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁)) → 𝑛 ∈ (𝑀...𝑁))
54	51, 52, 53	syl2anc 691	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → 𝑛 ∈ (𝑀...𝑁))
55	54	expr 641	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ_≥‘𝑀)) → ((𝑛 + 1) ∈ (𝑀...𝑁) → 𝑛 ∈ (𝑀...𝑁)))
56	55	imim1d 80	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ_≥‘𝑀)) → ((𝑛 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛)) → ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛))))
57		oveq1 6556	. . . . . . . . . 10 ⊢ ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛) → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐺‘(𝑛 + 1))) = ((seq𝑀(𝑄, 𝐺)‘𝑛)𝑄(𝐺‘(𝑛 + 1))))
58		seqp1 12678	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ (ℤ_≥‘𝑀) → (seq𝑀( + , 𝐹)‘(𝑛 + 1)) = ((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1))))
59	58	ad2antrl 760	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (seq𝑀( + , 𝐹)‘(𝑛 + 1)) = ((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1))))
60	59	fveq2d 6107	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1)))))
61		seqhomo.4	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆)) → (𝐻‘(𝑥 + 𝑦)) = ((𝐻‘𝑥)𝑄(𝐻‘𝑦)))
62	61	ralrimivva 2954	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝐻‘(𝑥 + 𝑦)) = ((𝐻‘𝑥)𝑄(𝐻‘𝑦)))
63	62	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝐻‘(𝑥 + 𝑦)) = ((𝐻‘𝑥)𝑄(𝐻‘𝑦)))
64		elfzuz3 12210	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ (𝑀...𝑁) → 𝑁 ∈ (ℤ_≥‘𝑛))
65		fzss2 12252	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑁 ∈ (ℤ_≥‘𝑛) → (𝑀...𝑛) ⊆ (𝑀...𝑁))
66	54, 64, 65	3syl 18	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (𝑀...𝑛) ⊆ (𝑀...𝑁))
67	66	sselda 3568	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) ∧ 𝑥 ∈ (𝑀...𝑛)) → 𝑥 ∈ (𝑀...𝑁))
68		seqhomo.2	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝐹‘𝑥) ∈ 𝑆)
69	68	adantlr 747	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝐹‘𝑥) ∈ 𝑆)
70	67, 69	syldan 486	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) ∧ 𝑥 ∈ (𝑀...𝑛)) → (𝐹‘𝑥) ∈ 𝑆)
71		seqhomo.1	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆)) → (𝑥 + 𝑦) ∈ 𝑆)
72	71	adantlr 747	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) ∧ (𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆)) → (𝑥 + 𝑦) ∈ 𝑆)
73	51, 70, 72	seqcl 12683	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (seq𝑀( + , 𝐹)‘𝑛) ∈ 𝑆)
74	68	ralrimiva 2949	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ∀𝑥 ∈ (𝑀...𝑁)(𝐹‘𝑥) ∈ 𝑆)
75	74	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → ∀𝑥 ∈ (𝑀...𝑁)(𝐹‘𝑥) ∈ 𝑆)
76		fveq2 6103	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = (𝑛 + 1) → (𝐹‘𝑥) = (𝐹‘(𝑛 + 1)))
77	76	eleq1d 2672	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = (𝑛 + 1) → ((𝐹‘𝑥) ∈ 𝑆 ↔ (𝐹‘(𝑛 + 1)) ∈ 𝑆))
78	77	rspcv 3278	. . . . . . . . . . . . . . 15 ⊢ ((𝑛 + 1) ∈ (𝑀...𝑁) → (∀𝑥 ∈ (𝑀...𝑁)(𝐹‘𝑥) ∈ 𝑆 → (𝐹‘(𝑛 + 1)) ∈ 𝑆))
79	52, 75, 78	sylc 63	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (𝐹‘(𝑛 + 1)) ∈ 𝑆)
80		oveq1 6556	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = (seq𝑀( + , 𝐹)‘𝑛) → (𝑥 + 𝑦) = ((seq𝑀( + , 𝐹)‘𝑛) + 𝑦))
81	80	fveq2d 6107	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = (seq𝑀( + , 𝐹)‘𝑛) → (𝐻‘(𝑥 + 𝑦)) = (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + 𝑦)))
82		fveq2 6103	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = (seq𝑀( + , 𝐹)‘𝑛) → (𝐻‘𝑥) = (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)))
83	82	oveq1d 6564	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = (seq𝑀( + , 𝐹)‘𝑛) → ((𝐻‘𝑥)𝑄(𝐻‘𝑦)) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘𝑦)))
84	81, 83	eqeq12d 2625	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = (seq𝑀( + , 𝐹)‘𝑛) → ((𝐻‘(𝑥 + 𝑦)) = ((𝐻‘𝑥)𝑄(𝐻‘𝑦)) ↔ (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + 𝑦)) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘𝑦))))
85		oveq2 6557	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = (𝐹‘(𝑛 + 1)) → ((seq𝑀( + , 𝐹)‘𝑛) + 𝑦) = ((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1))))
86	85	fveq2d 6107	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = (𝐹‘(𝑛 + 1)) → (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + 𝑦)) = (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1)))))
87		fveq2 6103	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = (𝐹‘(𝑛 + 1)) → (𝐻‘𝑦) = (𝐻‘(𝐹‘(𝑛 + 1))))
88	87	oveq2d 6565	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = (𝐹‘(𝑛 + 1)) → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘𝑦)) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘(𝐹‘(𝑛 + 1)))))
89	86, 88	eqeq12d 2625	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = (𝐹‘(𝑛 + 1)) → ((𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + 𝑦)) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘𝑦)) ↔ (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1)))) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘(𝐹‘(𝑛 + 1))))))
90	84, 89	rspc2v 3293	. . . . . . . . . . . . . 14 ⊢ (((seq𝑀( + , 𝐹)‘𝑛) ∈ 𝑆 ∧ (𝐹‘(𝑛 + 1)) ∈ 𝑆) → (∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝐻‘(𝑥 + 𝑦)) = ((𝐻‘𝑥)𝑄(𝐻‘𝑦)) → (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1)))) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘(𝐹‘(𝑛 + 1))))))
91	73, 79, 90	syl2anc 691	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝐻‘(𝑥 + 𝑦)) = ((𝐻‘𝑥)𝑄(𝐻‘𝑦)) → (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1)))) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘(𝐹‘(𝑛 + 1))))))
92	63, 91	mpd 15	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (𝐻‘((seq𝑀( + , 𝐹)‘𝑛) + (𝐹‘(𝑛 + 1)))) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘(𝐹‘(𝑛 + 1)))))
93	35	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → ∀𝑥 ∈ (𝑀...𝑁)(𝐻‘(𝐹‘𝑥)) = (𝐺‘𝑥))
94	76	fveq2d 6107	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = (𝑛 + 1) → (𝐻‘(𝐹‘𝑥)) = (𝐻‘(𝐹‘(𝑛 + 1))))
95		fveq2 6103	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = (𝑛 + 1) → (𝐺‘𝑥) = (𝐺‘(𝑛 + 1)))
96	94, 95	eqeq12d 2625	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = (𝑛 + 1) → ((𝐻‘(𝐹‘𝑥)) = (𝐺‘𝑥) ↔ (𝐻‘(𝐹‘(𝑛 + 1))) = (𝐺‘(𝑛 + 1))))
97	96	rspcv 3278	. . . . . . . . . . . . . 14 ⊢ ((𝑛 + 1) ∈ (𝑀...𝑁) → (∀𝑥 ∈ (𝑀...𝑁)(𝐻‘(𝐹‘𝑥)) = (𝐺‘𝑥) → (𝐻‘(𝐹‘(𝑛 + 1))) = (𝐺‘(𝑛 + 1))))
98	52, 93, 97	sylc 63	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (𝐻‘(𝐹‘(𝑛 + 1))) = (𝐺‘(𝑛 + 1)))
99	98	oveq2d 6565	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐻‘(𝐹‘(𝑛 + 1)))) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐺‘(𝑛 + 1))))
100	60, 92, 99	3eqtrd 2648	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐺‘(𝑛 + 1))))
101		seqp1 12678	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ (ℤ_≥‘𝑀) → (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1)) = ((seq𝑀(𝑄, 𝐺)‘𝑛)𝑄(𝐺‘(𝑛 + 1))))
102	101	ad2antrl 760	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1)) = ((seq𝑀(𝑄, 𝐺)‘𝑛)𝑄(𝐺‘(𝑛 + 1))))
103	100, 102	eqeq12d 2625	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → ((𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1)) ↔ ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛))𝑄(𝐺‘(𝑛 + 1))) = ((seq𝑀(𝑄, 𝐺)‘𝑛)𝑄(𝐺‘(𝑛 + 1)))))
104	57, 103	syl5ibr 235	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝑛 + 1) ∈ (𝑀...𝑁))) → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1))))
105	104	expr 641	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ_≥‘𝑀)) → ((𝑛 + 1) ∈ (𝑀...𝑁) → ((𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1)))))
106	105	a2d 29	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ_≥‘𝑀)) → (((𝑛 + 1) ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛)) → ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1)))))
107	56, 106	syld 46	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ_≥‘𝑀)) → ((𝑛 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛)) → ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1)))))
108	107	expcom 450	. . . . 5 ⊢ (𝑛 ∈ (ℤ_≥‘𝑀) → (𝜑 → ((𝑛 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛)) → ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1))))))
109	108	a2d 29	. . . 4 ⊢ (𝑛 ∈ (ℤ_≥‘𝑀) → ((𝜑 → (𝑛 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑛)) = (seq𝑀(𝑄, 𝐺)‘𝑛))) → (𝜑 → ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘(𝑛 + 1))) = (seq𝑀(𝑄, 𝐺)‘(𝑛 + 1))))))
110	10, 17, 24, 31, 50, 109	uzind4 11622	. . 3 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → (𝜑 → (𝑁 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)) = (seq𝑀(𝑄, 𝐺)‘𝑁))))
111	1, 110	mpcom 37	. 2 ⊢ (𝜑 → (𝑁 ∈ (𝑀...𝑁) → (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)) = (seq𝑀(𝑄, 𝐺)‘𝑁)))
112	3, 111	mpd 15	1 ⊢ (𝜑 → (𝐻‘(seq𝑀( + , 𝐹)‘𝑁)) = (seq𝑀(𝑄, 𝐺)‘𝑁))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 383 = wceq 1475 ∈ wcel 1977 ∀wral 2896 ⊆ wss 3540 ‘cfv 5804 (class class class)co 6549 1c1 9816 + caddc 9818 ℤcz 11254 ℤ_≥cuz 11563 ...cfz 12197 seqcseq 12663

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1713 ax-4 1728 ax-5 1827 ax-6 1875 ax-7 1922 ax-8 1979 ax-9 1986 ax-10 2006 ax-11 2021 ax-12 2034 ax-13 2234 ax-ext 2590 ax-sep 4709 ax-nul 4717 ax-pow 4769 ax-pr 4833 ax-un 6847 ax-cnex 9871 ax-resscn 9872 ax-1cn 9873 ax-icn 9874 ax-addcl 9875 ax-addrcl 9876 ax-mulcl 9877 ax-mulrcl 9878 ax-mulcom 9879 ax-addass 9880 ax-mulass 9881 ax-distr 9882 ax-i2m1 9883 ax-1ne0 9884 ax-1rid 9885 ax-rnegex 9886 ax-rrecex 9887 ax-cnre 9888 ax-pre-lttri 9889 ax-pre-lttrn 9890 ax-pre-ltadd 9891 ax-pre-mulgt0 9892

This theorem depends on definitions: df-bi 196 df-or 384 df-an 385 df-3or 1032 df-3an 1033 df-tru 1478 df-ex 1696 df-nf 1701 df-sb 1868 df-eu 2462 df-mo 2463 df-clab 2597 df-cleq 2603 df-clel 2606 df-nfc 2740 df-ne 2782 df-nel 2783 df-ral 2901 df-rex 2902 df-reu 2903 df-rab 2905 df-v 3175 df-sbc 3403 df-csb 3500 df-dif 3543 df-un 3545 df-in 3547 df-ss 3554 df-pss 3556 df-nul 3875 df-if 4037 df-pw 4110 df-sn 4126 df-pr 4128 df-tp 4130 df-op 4132 df-uni 4373 df-iun 4457 df-br 4584 df-opab 4644 df-mpt 4645 df-tr 4681 df-eprel 4949 df-id 4953 df-po 4959 df-so 4960 df-fr 4997 df-we 4999 df-xp 5044 df-rel 5045 df-cnv 5046 df-co 5047 df-dm 5048 df-rn 5049 df-res 5050 df-ima 5051 df-pred 5597 df-ord 5643 df-on 5644 df-lim 5645 df-suc 5646 df-iota 5768 df-fun 5806 df-fn 5807 df-f 5808 df-f1 5809 df-fo 5810 df-f1o 5811 df-fv 5812 df-riota 6511 df-ov 6552 df-oprab 6553 df-mpt2 6554 df-om 6958 df-1st 7059 df-2nd 7060 df-wrecs 7294 df-recs 7355 df-rdg 7393 df-er 7629 df-en 7842 df-dom 7843 df-sdom 7844 df-pnf 9955 df-mnf 9956 df-xr 9957 df-ltxr 9958 df-le 9959 df-sub 10147 df-neg 10148 df-nn 10898 df-n0 11170 df-z 11255 df-uz 11564 df-fz 12198 df-seq 12664

This theorem is referenced by: seqfeq4 12712 seqdistr 12714 seqof 12720 fsumrelem 14380 efcj 14661 gsumwmhm 17205 gsumzmhm 18160 elqaalem2 23879 logfac 24151 gamcvg2lem 24585 prmorcht 24704 pclogsum 24740

W3C validator