Theorem seqof 14024

Description: Distribute function operation through a sequence. Note that 𝐺(𝑧) is an implicit function on 𝑧. (Contributed by Mario Carneiro, 3-Mar-2015.)

Hypotheses

Ref	Expression
seqof.1	⊢ (𝜑 → 𝐴 ∈ 𝑉)
seqof.2	⊢ (𝜑 → 𝑁 ∈ (ℤ≥‘𝑀))
seqof.3	⊢ ((𝜑 ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝐹‘𝑥) = (𝑧 ∈ 𝐴 ↦ (𝐺‘𝑥)))

Assertion

Ref	Expression
seqof	⊢ (𝜑 → (seq𝑀( ∘f + , 𝐹)‘𝑁) = (𝑧 ∈ 𝐴 ↦ (seq𝑀( + , 𝐺)‘𝑁)))

Distinct variable groups:   𝑥,𝑧,𝐴   𝑥,𝐹,𝑧   𝑥,𝐺   𝑥,𝑀,𝑧   𝑥,𝑁,𝑧   𝑥, + ,𝑧   𝜑,𝑥,𝑧

Allowed substitution hints:   𝐺(𝑧)   𝑉(𝑥,𝑧)

Proof of Theorem seqof

Dummy variables 𝑦 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		seqof.2	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ (ℤ≥‘𝑀))
2		fvex 6904	. . . . . . . . 9 ⊢ (𝐺‘𝑥) ∈ V
3	2	rgenw 3065	. . . . . . . 8 ⊢ ∀𝑧 ∈ 𝐴 (𝐺‘𝑥) ∈ V
4		eqid 2732	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐴 ↦ (𝐺‘𝑥)) = (𝑧 ∈ 𝐴 ↦ (𝐺‘𝑥))
5	4	fnmpt 6690	. . . . . . . 8 ⊢ (∀𝑧 ∈ 𝐴 (𝐺‘𝑥) ∈ V → (𝑧 ∈ 𝐴 ↦ (𝐺‘𝑥)) Fn 𝐴)
6	3, 5	mp1i 13	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝑧 ∈ 𝐴 ↦ (𝐺‘𝑥)) Fn 𝐴)
7		seqof.3	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝐹‘𝑥) = (𝑧 ∈ 𝐴 ↦ (𝐺‘𝑥)))
8	7	fneq1d 6642	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝑀...𝑁)) → ((𝐹‘𝑥) Fn 𝐴 ↔ (𝑧 ∈ 𝐴 ↦ (𝐺‘𝑥)) Fn 𝐴))
9	6, 8	mpbird 256	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝐹‘𝑥) Fn 𝐴)
10		fvex 6904	. . . . . . 7 ⊢ (𝐹‘𝑥) ∈ V
11		fneq1 6640	. . . . . . 7 ⊢ (𝑧 = (𝐹‘𝑥) → (𝑧 Fn 𝐴 ↔ (𝐹‘𝑥) Fn 𝐴))
12	10, 11	elab 3668	. . . . . 6 ⊢ ((𝐹‘𝑥) ∈ {𝑧 ∣ 𝑧 Fn 𝐴} ↔ (𝐹‘𝑥) Fn 𝐴)
13	9, 12	sylibr 233	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝐹‘𝑥) ∈ {𝑧 ∣ 𝑧 Fn 𝐴})
14		simprl 769	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 Fn 𝐴 ∧ 𝑦 Fn 𝐴)) → 𝑥 Fn 𝐴)
15		simprr 771	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 Fn 𝐴 ∧ 𝑦 Fn 𝐴)) → 𝑦 Fn 𝐴)
16		seqof.1	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ 𝑉)
17	16	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 Fn 𝐴 ∧ 𝑦 Fn 𝐴)) → 𝐴 ∈ 𝑉)
18		inidm 4218	. . . . . . . . 9 ⊢ (𝐴 ∩ 𝐴) = 𝐴
19	14, 15, 17, 17, 18	offn 7682	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 Fn 𝐴 ∧ 𝑦 Fn 𝐴)) → (𝑥 ∘f + 𝑦) Fn 𝐴)
20	19	ex 413	. . . . . . 7 ⊢ (𝜑 → ((𝑥 Fn 𝐴 ∧ 𝑦 Fn 𝐴) → (𝑥 ∘f + 𝑦) Fn 𝐴))
21		vex 3478	. . . . . . . . 9 ⊢ 𝑥 ∈ V
22		fneq1 6640	. . . . . . . . 9 ⊢ (𝑧 = 𝑥 → (𝑧 Fn 𝐴 ↔ 𝑥 Fn 𝐴))
23	21, 22	elab 3668	. . . . . . . 8 ⊢ (𝑥 ∈ {𝑧 ∣ 𝑧 Fn 𝐴} ↔ 𝑥 Fn 𝐴)
24		vex 3478	. . . . . . . . 9 ⊢ 𝑦 ∈ V
25		fneq1 6640	. . . . . . . . 9 ⊢ (𝑧 = 𝑦 → (𝑧 Fn 𝐴 ↔ 𝑦 Fn 𝐴))
26	24, 25	elab 3668	. . . . . . . 8 ⊢ (𝑦 ∈ {𝑧 ∣ 𝑧 Fn 𝐴} ↔ 𝑦 Fn 𝐴)
27	23, 26	anbi12i 627	. . . . . . 7 ⊢ ((𝑥 ∈ {𝑧 ∣ 𝑧 Fn 𝐴} ∧ 𝑦 ∈ {𝑧 ∣ 𝑧 Fn 𝐴}) ↔ (𝑥 Fn 𝐴 ∧ 𝑦 Fn 𝐴))
28		ovex 7441	. . . . . . . 8 ⊢ (𝑥 ∘f + 𝑦) ∈ V
29		fneq1 6640	. . . . . . . 8 ⊢ (𝑧 = (𝑥 ∘f + 𝑦) → (𝑧 Fn 𝐴 ↔ (𝑥 ∘f + 𝑦) Fn 𝐴))
30	28, 29	elab 3668	. . . . . . 7 ⊢ ((𝑥 ∘f + 𝑦) ∈ {𝑧 ∣ 𝑧 Fn 𝐴} ↔ (𝑥 ∘f + 𝑦) Fn 𝐴)
31	20, 27, 30	3imtr4g 295	. . . . . 6 ⊢ (𝜑 → ((𝑥 ∈ {𝑧 ∣ 𝑧 Fn 𝐴} ∧ 𝑦 ∈ {𝑧 ∣ 𝑧 Fn 𝐴}) → (𝑥 ∘f + 𝑦) ∈ {𝑧 ∣ 𝑧 Fn 𝐴}))
32	31	imp 407	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ {𝑧 ∣ 𝑧 Fn 𝐴} ∧ 𝑦 ∈ {𝑧 ∣ 𝑧 Fn 𝐴})) → (𝑥 ∘f + 𝑦) ∈ {𝑧 ∣ 𝑧 Fn 𝐴})
33	1, 13, 32	seqcl 13987	. . . 4 ⊢ (𝜑 → (seq𝑀( ∘f + , 𝐹)‘𝑁) ∈ {𝑧 ∣ 𝑧 Fn 𝐴})
34		fvex 6904	. . . . 5 ⊢ (seq𝑀( ∘f + , 𝐹)‘𝑁) ∈ V
35		fneq1 6640	. . . . 5 ⊢ (𝑧 = (seq𝑀( ∘f + , 𝐹)‘𝑁) → (𝑧 Fn 𝐴 ↔ (seq𝑀( ∘f + , 𝐹)‘𝑁) Fn 𝐴))
36	34, 35	elab 3668	. . . 4 ⊢ ((seq𝑀( ∘f + , 𝐹)‘𝑁) ∈ {𝑧 ∣ 𝑧 Fn 𝐴} ↔ (seq𝑀( ∘f + , 𝐹)‘𝑁) Fn 𝐴)
37	33, 36	sylib 217	. . 3 ⊢ (𝜑 → (seq𝑀( ∘f + , 𝐹)‘𝑁) Fn 𝐴)
38		dffn5 6950	. . 3 ⊢ ((seq𝑀( ∘f + , 𝐹)‘𝑁) Fn 𝐴 ↔ (seq𝑀( ∘f + , 𝐹)‘𝑁) = (𝑧 ∈ 𝐴 ↦ ((seq𝑀( ∘f + , 𝐹)‘𝑁)‘𝑧)))
39	37, 38	sylib 217	. 2 ⊢ (𝜑 → (seq𝑀( ∘f + , 𝐹)‘𝑁) = (𝑧 ∈ 𝐴 ↦ ((seq𝑀( ∘f + , 𝐹)‘𝑁)‘𝑧)))
40		fveq1 6890	. . . . . 6 ⊢ (𝑤 = (seq𝑀( ∘f + , 𝐹)‘𝑁) → (𝑤‘𝑧) = ((seq𝑀( ∘f + , 𝐹)‘𝑁)‘𝑧))
41		eqid 2732	. . . . . 6 ⊢ (𝑤 ∈ V ↦ (𝑤‘𝑧)) = (𝑤 ∈ V ↦ (𝑤‘𝑧))
42		fvex 6904	. . . . . 6 ⊢ ((seq𝑀( ∘f + , 𝐹)‘𝑁)‘𝑧) ∈ V
43	40, 41, 42	fvmpt 6998	. . . . 5 ⊢ ((seq𝑀( ∘f + , 𝐹)‘𝑁) ∈ V → ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘(seq𝑀( ∘f + , 𝐹)‘𝑁)) = ((seq𝑀( ∘f + , 𝐹)‘𝑁)‘𝑧))
44	34, 43	mp1i 13	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘(seq𝑀( ∘f + , 𝐹)‘𝑁)) = ((seq𝑀( ∘f + , 𝐹)‘𝑁)‘𝑧))
45	32	adantlr 713	. . . . 5 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐴) ∧ (𝑥 ∈ {𝑧 ∣ 𝑧 Fn 𝐴} ∧ 𝑦 ∈ {𝑧 ∣ 𝑧 Fn 𝐴})) → (𝑥 ∘f + 𝑦) ∈ {𝑧 ∣ 𝑧 Fn 𝐴})
46	13	adantlr 713	. . . . 5 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐴) ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝐹‘𝑥) ∈ {𝑧 ∣ 𝑧 Fn 𝐴})
47	1	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → 𝑁 ∈ (ℤ≥‘𝑀))
48		eqidd 2733	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 Fn 𝐴 ∧ 𝑦 Fn 𝐴)) ∧ 𝑧 ∈ 𝐴) → (𝑥‘𝑧) = (𝑥‘𝑧))
49		eqidd 2733	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 Fn 𝐴 ∧ 𝑦 Fn 𝐴)) ∧ 𝑧 ∈ 𝐴) → (𝑦‘𝑧) = (𝑦‘𝑧))
50	14, 15, 17, 17, 18, 48, 49	ofval 7680	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 Fn 𝐴 ∧ 𝑦 Fn 𝐴)) ∧ 𝑧 ∈ 𝐴) → ((𝑥 ∘f + 𝑦)‘𝑧) = ((𝑥‘𝑧) + (𝑦‘𝑧)))
51	50	an32s 650	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐴) ∧ (𝑥 Fn 𝐴 ∧ 𝑦 Fn 𝐴)) → ((𝑥 ∘f + 𝑦)‘𝑧) = ((𝑥‘𝑧) + (𝑦‘𝑧)))
52		fveq1 6890	. . . . . . . . 9 ⊢ (𝑤 = (𝑥 ∘f + 𝑦) → (𝑤‘𝑧) = ((𝑥 ∘f + 𝑦)‘𝑧))
53		fvex 6904	. . . . . . . . 9 ⊢ ((𝑥 ∘f + 𝑦)‘𝑧) ∈ V
54	52, 41, 53	fvmpt 6998	. . . . . . . 8 ⊢ ((𝑥 ∘f + 𝑦) ∈ V → ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘(𝑥 ∘f + 𝑦)) = ((𝑥 ∘f + 𝑦)‘𝑧))
55	28, 54	ax-mp 5	. . . . . . 7 ⊢ ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘(𝑥 ∘f + 𝑦)) = ((𝑥 ∘f + 𝑦)‘𝑧)
56		fveq1 6890	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → (𝑤‘𝑧) = (𝑥‘𝑧))
57		fvex 6904	. . . . . . . . . 10 ⊢ (𝑥‘𝑧) ∈ V
58	56, 41, 57	fvmpt 6998	. . . . . . . . 9 ⊢ (𝑥 ∈ V → ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘𝑥) = (𝑥‘𝑧))
59	58	elv 3480	. . . . . . . 8 ⊢ ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘𝑥) = (𝑥‘𝑧)
60		fveq1 6890	. . . . . . . . . 10 ⊢ (𝑤 = 𝑦 → (𝑤‘𝑧) = (𝑦‘𝑧))
61		fvex 6904	. . . . . . . . . 10 ⊢ (𝑦‘𝑧) ∈ V
62	60, 41, 61	fvmpt 6998	. . . . . . . . 9 ⊢ (𝑦 ∈ V → ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘𝑦) = (𝑦‘𝑧))
63	62	elv 3480	. . . . . . . 8 ⊢ ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘𝑦) = (𝑦‘𝑧)
64	59, 63	oveq12i 7420	. . . . . . 7 ⊢ (((𝑤 ∈ V ↦ (𝑤‘𝑧))‘𝑥) + ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘𝑦)) = ((𝑥‘𝑧) + (𝑦‘𝑧))
65	51, 55, 64	3eqtr4g 2797	. . . . . 6 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐴) ∧ (𝑥 Fn 𝐴 ∧ 𝑦 Fn 𝐴)) → ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘(𝑥 ∘f + 𝑦)) = (((𝑤 ∈ V ↦ (𝑤‘𝑧))‘𝑥) + ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘𝑦)))
66	27, 65	sylan2b 594	. . . . 5 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐴) ∧ (𝑥 ∈ {𝑧 ∣ 𝑧 Fn 𝐴} ∧ 𝑦 ∈ {𝑧 ∣ 𝑧 Fn 𝐴})) → ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘(𝑥 ∘f + 𝑦)) = (((𝑤 ∈ V ↦ (𝑤‘𝑧))‘𝑥) + ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘𝑦)))
67		fveq1 6890	. . . . . . . 8 ⊢ (𝑤 = (𝐹‘𝑥) → (𝑤‘𝑧) = ((𝐹‘𝑥)‘𝑧))
68		fvex 6904	. . . . . . . 8 ⊢ ((𝐹‘𝑥)‘𝑧) ∈ V
69	67, 41, 68	fvmpt 6998	. . . . . . 7 ⊢ ((𝐹‘𝑥) ∈ V → ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘(𝐹‘𝑥)) = ((𝐹‘𝑥)‘𝑧))
70	10, 69	ax-mp 5	. . . . . 6 ⊢ ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘(𝐹‘𝑥)) = ((𝐹‘𝑥)‘𝑧)
71	7	adantlr 713	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐴) ∧ 𝑥 ∈ (𝑀...𝑁)) → (𝐹‘𝑥) = (𝑧 ∈ 𝐴 ↦ (𝐺‘𝑥)))
72	71	fveq1d 6893	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐴) ∧ 𝑥 ∈ (𝑀...𝑁)) → ((𝐹‘𝑥)‘𝑧) = ((𝑧 ∈ 𝐴 ↦ (𝐺‘𝑥))‘𝑧))
73		simplr 767	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐴) ∧ 𝑥 ∈ (𝑀...𝑁)) → 𝑧 ∈ 𝐴)
74	4	fvmpt2 7009	. . . . . . . 8 ⊢ ((𝑧 ∈ 𝐴 ∧ (𝐺‘𝑥) ∈ V) → ((𝑧 ∈ 𝐴 ↦ (𝐺‘𝑥))‘𝑧) = (𝐺‘𝑥))
75	73, 2, 74	sylancl 586	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐴) ∧ 𝑥 ∈ (𝑀...𝑁)) → ((𝑧 ∈ 𝐴 ↦ (𝐺‘𝑥))‘𝑧) = (𝐺‘𝑥))
76	72, 75	eqtrd 2772	. . . . . 6 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐴) ∧ 𝑥 ∈ (𝑀...𝑁)) → ((𝐹‘𝑥)‘𝑧) = (𝐺‘𝑥))
77	70, 76	eqtrid 2784	. . . . 5 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐴) ∧ 𝑥 ∈ (𝑀...𝑁)) → ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘(𝐹‘𝑥)) = (𝐺‘𝑥))
78	45, 46, 47, 66, 77	seqhomo 14014	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → ((𝑤 ∈ V ↦ (𝑤‘𝑧))‘(seq𝑀( ∘f + , 𝐹)‘𝑁)) = (seq𝑀( + , 𝐺)‘𝑁))
79	44, 78	eqtr3d 2774	. . 3 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → ((seq𝑀( ∘f + , 𝐹)‘𝑁)‘𝑧) = (seq𝑀( + , 𝐺)‘𝑁))
80	79	mpteq2dva 5248	. 2 ⊢ (𝜑 → (𝑧 ∈ 𝐴 ↦ ((seq𝑀( ∘f + , 𝐹)‘𝑁)‘𝑧)) = (𝑧 ∈ 𝐴 ↦ (seq𝑀( + , 𝐺)‘𝑁)))
81	39, 80	eqtrd 2772	1 ⊢ (𝜑 → (seq𝑀( ∘f + , 𝐹)‘𝑁) = (𝑧 ∈ 𝐴 ↦ (seq𝑀( + , 𝐺)‘𝑁)))

Syntax hints:   → wi 4   ∧ wa 396   = wceq 1541   ∈ wcel 2106  {cab 2709  ∀wral 3061  Vcvv 3474   ↦ cmpt 5231   Fn wfn 6538  ‘cfv 6543  (class class class)co 7408   ∘_f cof 7667  ℤ_≥cuz 12821  ...cfz 13483  seqcseq 13965

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7724  ax-cnex 11165  ax-resscn 11166  ax-1cn 11167  ax-icn 11168  ax-addcl 11169  ax-addrcl 11170  ax-mulcl 11171  ax-mulrcl 11172  ax-mulcom 11173  ax-addass 11174  ax-mulass 11175  ax-distr 11176  ax-i2m1 11177  ax-1ne0 11178  ax-1rid 11179  ax-rnegex 11180  ax-rrecex 11181  ax-cnre 11182  ax-pre-lttri 11183  ax-pre-lttrn 11184  ax-pre-ltadd 11185  ax-pre-mulgt0 11186

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7364  df-ov 7411  df-oprab 7412  df-mpo 7413  df-of 7669  df-om 7855  df-1st 7974  df-2nd 7975  df-frecs 8265  df-wrecs 8296  df-recs 8370  df-rdg 8409  df-er 8702  df-en 8939  df-dom 8940  df-sdom 8941  df-pnf 11249  df-mnf 11250  df-xr 11251  df-ltxr 11252  df-le 11253  df-sub 11445  df-neg 11446  df-nn 12212  df-n0 12472  df-z 12558  df-uz 12822  df-fz 13484  df-seq 13966

This theorem is referenced by:  seqof2  14025  mtest  25915  pserulm  25933  knoppcnlem7  35370