summolem2a - Metamath Proof Explorer

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

Theorem summolem2a 14446

Description: Lemma for summo 14448. (Contributed by Mario Carneiro, 3-Apr-2014.) (Revised by Mario Carneiro, 20-Apr-2014.)

**Hypotheses**
Ref	Expression
summo.1	⊢ 𝐹 = (𝑘 ∈ ℤ ↦ if(𝑘 ∈ 𝐴, 𝐵, 0))
summo.2	⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → 𝐵 ∈ ℂ)
summo.3	⊢ 𝐺 = (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵)
summolem2.4	⊢ 𝐻 = (𝑛 ∈ ℕ ↦ ⦋(𝐾‘𝑛) / 𝑘⦌𝐵)
summolem2.5	⊢ (𝜑 → 𝑁 ∈ ℕ)
summolem2.6	⊢ (𝜑 → 𝑀 ∈ ℤ)
summolem2.7	⊢ (𝜑 → 𝐴 ⊆ (ℤ_≥‘𝑀))
summolem2.8	⊢ (𝜑 → 𝑓:(1...𝑁)–1-1-onto→𝐴)
summolem2.9	⊢ (𝜑 → 𝐾 Isom < , < ((1...(#‘𝐴)), 𝐴))

**Assertion**
Ref	Expression
summolem2a	⊢ (𝜑 → seq𝑀( + , 𝐹) ⇝ (seq1( + , 𝐺)‘𝑁))

Distinct variable groups: 𝑓,𝑘,𝑛,𝐴 𝑓,𝐹,𝑘,𝑛 𝑘,𝐺,𝑛 𝑘,𝐾,𝑛 𝑘,𝑁,𝑛 𝜑,𝑘,𝑛 𝐵,𝑓,𝑛 𝑘,𝑀,𝑛 Allowed substitution hints: 𝜑(𝑓) 𝐵(𝑘) 𝐺(𝑓) 𝐻(𝑓,𝑘,𝑛) 𝐾(𝑓) 𝑀(𝑓) 𝑁(𝑓)

Proof of Theorem summolem2a Dummy variables 𝑚 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		summo.1	. . 3 ⊢ 𝐹 = (𝑘 ∈ ℤ ↦ if(𝑘 ∈ 𝐴, 𝐵, 0))
2		summo.2	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → 𝐵 ∈ ℂ)
3		summolem2.7	. . . 4 ⊢ (𝜑 → 𝐴 ⊆ (ℤ_≥‘𝑀))
4		summolem2.9	. . . . . . . 8 ⊢ (𝜑 → 𝐾 Isom < , < ((1...(#‘𝐴)), 𝐴))
5		summolem2.8	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑓:(1...𝑁)–1-1-onto→𝐴)
6		ovex 6678	. . . . . . . . . . . . . 14 ⊢ (1...𝑁) ∈ V
7	6	f1oen 7976	. . . . . . . . . . . . 13 ⊢ (𝑓:(1...𝑁)–1-1-onto→𝐴 → (1...𝑁) ≈ 𝐴)
8	5, 7	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (1...𝑁) ≈ 𝐴)
9		fzfid 12772	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1...𝑁) ∈ Fin)
10	8	ensymd 8007	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 ≈ (1...𝑁))
11		enfii 8177	. . . . . . . . . . . . . 14 ⊢ (((1...𝑁) ∈ Fin ∧ 𝐴 ≈ (1...𝑁)) → 𝐴 ∈ Fin)
12	9, 10, 11	syl2anc 693	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 ∈ Fin)
13		hashen 13135	. . . . . . . . . . . . 13 ⊢ (((1...𝑁) ∈ Fin ∧ 𝐴 ∈ Fin) → ((#‘(1...𝑁)) = (#‘𝐴) ↔ (1...𝑁) ≈ 𝐴))
14	9, 12, 13	syl2anc 693	. . . . . . . . . . . 12 ⊢ (𝜑 → ((#‘(1...𝑁)) = (#‘𝐴) ↔ (1...𝑁) ≈ 𝐴))
15	8, 14	mpbird 247	. . . . . . . . . . 11 ⊢ (𝜑 → (#‘(1...𝑁)) = (#‘𝐴))
16		summolem2.5	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 ∈ ℕ)
17		nnnn0 11299	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
18		hashfz1 13134	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ₀ → (#‘(1...𝑁)) = 𝑁)
19	16, 17, 18	3syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (#‘(1...𝑁)) = 𝑁)
20	15, 19	eqtr3d 2658	. . . . . . . . . 10 ⊢ (𝜑 → (#‘𝐴) = 𝑁)
21	20	oveq2d 6666	. . . . . . . . 9 ⊢ (𝜑 → (1...(#‘𝐴)) = (1...𝑁))
22		isoeq4 6570	. . . . . . . . 9 ⊢ ((1...(#‘𝐴)) = (1...𝑁) → (𝐾 Isom < , < ((1...(#‘𝐴)), 𝐴) ↔ 𝐾 Isom < , < ((1...𝑁), 𝐴)))
23	21, 22	syl 17	. . . . . . . 8 ⊢ (𝜑 → (𝐾 Isom < , < ((1...(#‘𝐴)), 𝐴) ↔ 𝐾 Isom < , < ((1...𝑁), 𝐴)))
24	4, 23	mpbid 222	. . . . . . 7 ⊢ (𝜑 → 𝐾 Isom < , < ((1...𝑁), 𝐴))
25		isof1o 6573	. . . . . . 7 ⊢ (𝐾 Isom < , < ((1...𝑁), 𝐴) → 𝐾:(1...𝑁)–1-1-onto→𝐴)
26	24, 25	syl 17	. . . . . 6 ⊢ (𝜑 → 𝐾:(1...𝑁)–1-1-onto→𝐴)
27		f1of 6137	. . . . . 6 ⊢ (𝐾:(1...𝑁)–1-1-onto→𝐴 → 𝐾:(1...𝑁)⟶𝐴)
28	26, 27	syl 17	. . . . 5 ⊢ (𝜑 → 𝐾:(1...𝑁)⟶𝐴)
29		nnuz 11723	. . . . . . 7 ⊢ ℕ = (ℤ_≥‘1)
30	16, 29	syl6eleq 2711	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘1))
31		eluzfz2 12349	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘1) → 𝑁 ∈ (1...𝑁))
32	30, 31	syl 17	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ (1...𝑁))
33	28, 32	ffvelrnd 6360	. . . 4 ⊢ (𝜑 → (𝐾‘𝑁) ∈ 𝐴)
34	3, 33	sseldd 3604	. . 3 ⊢ (𝜑 → (𝐾‘𝑁) ∈ (ℤ_≥‘𝑀))
35	3	sselda 3603	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → 𝑛 ∈ (ℤ_≥‘𝑀))
36		f1ocnvfv2 6533	. . . . . . . . 9 ⊢ ((𝐾:(1...𝑁)–1-1-onto→𝐴 ∧ 𝑛 ∈ 𝐴) → (𝐾‘(^◡𝐾‘𝑛)) = 𝑛)
37	26, 36	sylan 488	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → (𝐾‘(^◡𝐾‘𝑛)) = 𝑛)
38		f1ocnv 6149	. . . . . . . . . . . 12 ⊢ (𝐾:(1...𝑁)–1-1-onto→𝐴 → ^◡𝐾:𝐴–1-1-onto→(1...𝑁))
39		f1of 6137	. . . . . . . . . . . 12 ⊢ (^◡𝐾:𝐴–1-1-onto→(1...𝑁) → ^◡𝐾:𝐴⟶(1...𝑁))
40	26, 38, 39	3syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → ^◡𝐾:𝐴⟶(1...𝑁))
41	40	ffvelrnda 6359	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → (^◡𝐾‘𝑛) ∈ (1...𝑁))
42		elfzle2 12345	. . . . . . . . . 10 ⊢ ((^◡𝐾‘𝑛) ∈ (1...𝑁) → (^◡𝐾‘𝑛) ≤ 𝑁)
43	41, 42	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → (^◡𝐾‘𝑛) ≤ 𝑁)
44	24	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → 𝐾 Isom < , < ((1...𝑁), 𝐴))
45		fzssuz 12382	. . . . . . . . . . . . 13 ⊢ (1...𝑁) ⊆ (ℤ_≥‘1)
46		uzssz 11707	. . . . . . . . . . . . . 14 ⊢ (ℤ_≥‘1) ⊆ ℤ
47		zssre 11384	. . . . . . . . . . . . . 14 ⊢ ℤ ⊆ ℝ
48	46, 47	sstri 3612	. . . . . . . . . . . . 13 ⊢ (ℤ_≥‘1) ⊆ ℝ
49	45, 48	sstri 3612	. . . . . . . . . . . 12 ⊢ (1...𝑁) ⊆ ℝ
50		ressxr 10083	. . . . . . . . . . . 12 ⊢ ℝ ⊆ ℝ^*
51	49, 50	sstri 3612	. . . . . . . . . . 11 ⊢ (1...𝑁) ⊆ ℝ^*
52	51	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → (1...𝑁) ⊆ ℝ^*)
53	3	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → 𝐴 ⊆ (ℤ_≥‘𝑀))
54		uzssz 11707	. . . . . . . . . . . . 13 ⊢ (ℤ_≥‘𝑀) ⊆ ℤ
55	54, 47	sstri 3612	. . . . . . . . . . . 12 ⊢ (ℤ_≥‘𝑀) ⊆ ℝ
56	53, 55	syl6ss 3615	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → 𝐴 ⊆ ℝ)
57	56, 50	syl6ss 3615	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → 𝐴 ⊆ ℝ^*)
58	32	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → 𝑁 ∈ (1...𝑁))
59		leisorel 13244	. . . . . . . . . 10 ⊢ ((𝐾 Isom < , < ((1...𝑁), 𝐴) ∧ ((1...𝑁) ⊆ ℝ^* ∧ 𝐴 ⊆ ℝ^*) ∧ ((^◡𝐾‘𝑛) ∈ (1...𝑁) ∧ 𝑁 ∈ (1...𝑁))) → ((^◡𝐾‘𝑛) ≤ 𝑁 ↔ (𝐾‘(^◡𝐾‘𝑛)) ≤ (𝐾‘𝑁)))
60	44, 52, 57, 41, 58, 59	syl122anc 1335	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → ((^◡𝐾‘𝑛) ≤ 𝑁 ↔ (𝐾‘(^◡𝐾‘𝑛)) ≤ (𝐾‘𝑁)))
61	43, 60	mpbid 222	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → (𝐾‘(^◡𝐾‘𝑛)) ≤ (𝐾‘𝑁))
62	37, 61	eqbrtrrd 4677	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → 𝑛 ≤ (𝐾‘𝑁))
63		eluzelz 11697	. . . . . . . . 9 ⊢ (𝑛 ∈ (ℤ_≥‘𝑀) → 𝑛 ∈ ℤ)
64	35, 63	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → 𝑛 ∈ ℤ)
65		eluzelz 11697	. . . . . . . . . 10 ⊢ ((𝐾‘𝑁) ∈ (ℤ_≥‘𝑀) → (𝐾‘𝑁) ∈ ℤ)
66	34, 65	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐾‘𝑁) ∈ ℤ)
67	66	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → (𝐾‘𝑁) ∈ ℤ)
68		eluz 11701	. . . . . . . 8 ⊢ ((𝑛 ∈ ℤ ∧ (𝐾‘𝑁) ∈ ℤ) → ((𝐾‘𝑁) ∈ (ℤ_≥‘𝑛) ↔ 𝑛 ≤ (𝐾‘𝑁)))
69	64, 67, 68	syl2anc 693	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → ((𝐾‘𝑁) ∈ (ℤ_≥‘𝑛) ↔ 𝑛 ≤ (𝐾‘𝑁)))
70	62, 69	mpbird 247	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → (𝐾‘𝑁) ∈ (ℤ_≥‘𝑛))
71		elfzuzb 12336	. . . . . 6 ⊢ (𝑛 ∈ (𝑀...(𝐾‘𝑁)) ↔ (𝑛 ∈ (ℤ_≥‘𝑀) ∧ (𝐾‘𝑁) ∈ (ℤ_≥‘𝑛)))
72	35, 70, 71	sylanbrc 698	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐴) → 𝑛 ∈ (𝑀...(𝐾‘𝑁)))
73	72	ex 450	. . . 4 ⊢ (𝜑 → (𝑛 ∈ 𝐴 → 𝑛 ∈ (𝑀...(𝐾‘𝑁))))
74	73	ssrdv 3609	. . 3 ⊢ (𝜑 → 𝐴 ⊆ (𝑀...(𝐾‘𝑁)))
75	1, 2, 34, 74	fsumcvg 14443	. 2 ⊢ (𝜑 → seq𝑀( + , 𝐹) ⇝ (seq𝑀( + , 𝐹)‘(𝐾‘𝑁)))
76		addid2 10219	. . . . 5 ⊢ (𝑚 ∈ ℂ → (0 + 𝑚) = 𝑚)
77	76	adantl 482	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ ℂ) → (0 + 𝑚) = 𝑚)
78		addid1 10216	. . . . 5 ⊢ (𝑚 ∈ ℂ → (𝑚 + 0) = 𝑚)
79	78	adantl 482	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ ℂ) → (𝑚 + 0) = 𝑚)
80		addcl 10018	. . . . 5 ⊢ ((𝑚 ∈ ℂ ∧ 𝑥 ∈ ℂ) → (𝑚 + 𝑥) ∈ ℂ)
81	80	adantl 482	. . . 4 ⊢ ((𝜑 ∧ (𝑚 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → (𝑚 + 𝑥) ∈ ℂ)
82		0cnd 10033	. . . 4 ⊢ (𝜑 → 0 ∈ ℂ)
83	32, 21	eleqtrrd 2704	. . . 4 ⊢ (𝜑 → 𝑁 ∈ (1...(#‘𝐴)))
84		iftrue 4092	. . . . . . . . . . 11 ⊢ (𝑘 ∈ 𝐴 → if(𝑘 ∈ 𝐴, 𝐵, 0) = 𝐵)
85	84	adantl 482	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → if(𝑘 ∈ 𝐴, 𝐵, 0) = 𝐵)
86	85, 2	eqeltrd 2701	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → if(𝑘 ∈ 𝐴, 𝐵, 0) ∈ ℂ)
87	86	ex 450	. . . . . . . 8 ⊢ (𝜑 → (𝑘 ∈ 𝐴 → if(𝑘 ∈ 𝐴, 𝐵, 0) ∈ ℂ))
88		iffalse 4095	. . . . . . . . 9 ⊢ (¬ 𝑘 ∈ 𝐴 → if(𝑘 ∈ 𝐴, 𝐵, 0) = 0)
89		0cn 10032	. . . . . . . . 9 ⊢ 0 ∈ ℂ
90	88, 89	syl6eqel 2709	. . . . . . . 8 ⊢ (¬ 𝑘 ∈ 𝐴 → if(𝑘 ∈ 𝐴, 𝐵, 0) ∈ ℂ)
91	87, 90	pm2.61d1 171	. . . . . . 7 ⊢ (𝜑 → if(𝑘 ∈ 𝐴, 𝐵, 0) ∈ ℂ)
92	91	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → if(𝑘 ∈ 𝐴, 𝐵, 0) ∈ ℂ)
93	92, 1	fmptd 6385	. . . . 5 ⊢ (𝜑 → 𝐹:ℤ⟶ℂ)
94		elfzelz 12342	. . . . 5 ⊢ (𝑚 ∈ (𝑀...(𝐾‘(#‘𝐴))) → 𝑚 ∈ ℤ)
95		ffvelrn 6357	. . . . 5 ⊢ ((𝐹:ℤ⟶ℂ ∧ 𝑚 ∈ ℤ) → (𝐹‘𝑚) ∈ ℂ)
96	93, 94, 95	syl2an 494	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ (𝑀...(𝐾‘(#‘𝐴)))) → (𝐹‘𝑚) ∈ ℂ)
97		fveq2 6191	. . . . . . 7 ⊢ (𝑘 = 𝑚 → (𝐹‘𝑘) = (𝐹‘𝑚))
98	97	eqeq1d 2624	. . . . . 6 ⊢ (𝑘 = 𝑚 → ((𝐹‘𝑘) = 0 ↔ (𝐹‘𝑚) = 0))
99		eldifi 3732	. . . . . . . . 9 ⊢ (𝑘 ∈ ((𝑀...(𝐾‘(#‘𝐴))) ∖ 𝐴) → 𝑘 ∈ (𝑀...(𝐾‘(#‘𝐴))))
100		elfzelz 12342	. . . . . . . . 9 ⊢ (𝑘 ∈ (𝑀...(𝐾‘(#‘𝐴))) → 𝑘 ∈ ℤ)
101	99, 100	syl 17	. . . . . . . 8 ⊢ (𝑘 ∈ ((𝑀...(𝐾‘(#‘𝐴))) ∖ 𝐴) → 𝑘 ∈ ℤ)
102		eldifn 3733	. . . . . . . . . 10 ⊢ (𝑘 ∈ ((𝑀...(𝐾‘(#‘𝐴))) ∖ 𝐴) → ¬ 𝑘 ∈ 𝐴)
103	102, 88	syl 17	. . . . . . . . 9 ⊢ (𝑘 ∈ ((𝑀...(𝐾‘(#‘𝐴))) ∖ 𝐴) → if(𝑘 ∈ 𝐴, 𝐵, 0) = 0)
104	103, 89	syl6eqel 2709	. . . . . . . 8 ⊢ (𝑘 ∈ ((𝑀...(𝐾‘(#‘𝐴))) ∖ 𝐴) → if(𝑘 ∈ 𝐴, 𝐵, 0) ∈ ℂ)
105	1	fvmpt2 6291	. . . . . . . 8 ⊢ ((𝑘 ∈ ℤ ∧ if(𝑘 ∈ 𝐴, 𝐵, 0) ∈ ℂ) → (𝐹‘𝑘) = if(𝑘 ∈ 𝐴, 𝐵, 0))
106	101, 104, 105	syl2anc 693	. . . . . . 7 ⊢ (𝑘 ∈ ((𝑀...(𝐾‘(#‘𝐴))) ∖ 𝐴) → (𝐹‘𝑘) = if(𝑘 ∈ 𝐴, 𝐵, 0))
107	106, 103	eqtrd 2656	. . . . . 6 ⊢ (𝑘 ∈ ((𝑀...(𝐾‘(#‘𝐴))) ∖ 𝐴) → (𝐹‘𝑘) = 0)
108	98, 107	vtoclga 3272	. . . . 5 ⊢ (𝑚 ∈ ((𝑀...(𝐾‘(#‘𝐴))) ∖ 𝐴) → (𝐹‘𝑚) = 0)
109	108	adantl 482	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ ((𝑀...(𝐾‘(#‘𝐴))) ∖ 𝐴)) → (𝐹‘𝑚) = 0)
110		isof1o 6573	. . . . . . . 8 ⊢ (𝐾 Isom < , < ((1...(#‘𝐴)), 𝐴) → 𝐾:(1...(#‘𝐴))–1-1-onto→𝐴)
111		f1of 6137	. . . . . . . 8 ⊢ (𝐾:(1...(#‘𝐴))–1-1-onto→𝐴 → 𝐾:(1...(#‘𝐴))⟶𝐴)
112	4, 110, 111	3syl 18	. . . . . . 7 ⊢ (𝜑 → 𝐾:(1...(#‘𝐴))⟶𝐴)
113	112	ffvelrnda 6359	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...(#‘𝐴))) → (𝐾‘𝑥) ∈ 𝐴)
114	113	iftrued 4094	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...(#‘𝐴))) → if((𝐾‘𝑥) ∈ 𝐴, ⦋(𝐾‘𝑥) / 𝑘⦌𝐵, 0) = ⦋(𝐾‘𝑥) / 𝑘⦌𝐵)
115	3	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...(#‘𝐴))) → 𝐴 ⊆ (ℤ_≥‘𝑀))
116	115, 113	sseldd 3604	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...(#‘𝐴))) → (𝐾‘𝑥) ∈ (ℤ_≥‘𝑀))
117		eluzelz 11697	. . . . . . 7 ⊢ ((𝐾‘𝑥) ∈ (ℤ_≥‘𝑀) → (𝐾‘𝑥) ∈ ℤ)
118	116, 117	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...(#‘𝐴))) → (𝐾‘𝑥) ∈ ℤ)
119		nfv 1843	. . . . . . . . 9 ⊢ Ⅎ𝑘𝜑
120		nfv 1843	. . . . . . . . . . 11 ⊢ Ⅎ𝑘(𝐾‘𝑥) ∈ 𝐴
121		nfcsb1v 3549	. . . . . . . . . . 11 ⊢ Ⅎ𝑘⦋(𝐾‘𝑥) / 𝑘⦌𝐵
122		nfcv 2764	. . . . . . . . . . 11 ⊢ Ⅎ𝑘0
123	120, 121, 122	nfif 4115	. . . . . . . . . 10 ⊢ Ⅎ𝑘if((𝐾‘𝑥) ∈ 𝐴, ⦋(𝐾‘𝑥) / 𝑘⦌𝐵, 0)
124	123	nfel1 2779	. . . . . . . . 9 ⊢ Ⅎ𝑘if((𝐾‘𝑥) ∈ 𝐴, ⦋(𝐾‘𝑥) / 𝑘⦌𝐵, 0) ∈ ℂ
125	119, 124	nfim 1825	. . . . . . . 8 ⊢ Ⅎ𝑘(𝜑 → if((𝐾‘𝑥) ∈ 𝐴, ⦋(𝐾‘𝑥) / 𝑘⦌𝐵, 0) ∈ ℂ)
126		fvex 6201	. . . . . . . 8 ⊢ (𝐾‘𝑥) ∈ V
127		eleq1 2689	. . . . . . . . . . 11 ⊢ (𝑘 = (𝐾‘𝑥) → (𝑘 ∈ 𝐴 ↔ (𝐾‘𝑥) ∈ 𝐴))
128		csbeq1a 3542	. . . . . . . . . . 11 ⊢ (𝑘 = (𝐾‘𝑥) → 𝐵 = ⦋(𝐾‘𝑥) / 𝑘⦌𝐵)
129	127, 128	ifbieq1d 4109	. . . . . . . . . 10 ⊢ (𝑘 = (𝐾‘𝑥) → if(𝑘 ∈ 𝐴, 𝐵, 0) = if((𝐾‘𝑥) ∈ 𝐴, ⦋(𝐾‘𝑥) / 𝑘⦌𝐵, 0))
130	129	eleq1d 2686	. . . . . . . . 9 ⊢ (𝑘 = (𝐾‘𝑥) → (if(𝑘 ∈ 𝐴, 𝐵, 0) ∈ ℂ ↔ if((𝐾‘𝑥) ∈ 𝐴, ⦋(𝐾‘𝑥) / 𝑘⦌𝐵, 0) ∈ ℂ))
131	130	imbi2d 330	. . . . . . . 8 ⊢ (𝑘 = (𝐾‘𝑥) → ((𝜑 → if(𝑘 ∈ 𝐴, 𝐵, 0) ∈ ℂ) ↔ (𝜑 → if((𝐾‘𝑥) ∈ 𝐴, ⦋(𝐾‘𝑥) / 𝑘⦌𝐵, 0) ∈ ℂ)))
132	125, 126, 131, 91	vtoclf 3258	. . . . . . 7 ⊢ (𝜑 → if((𝐾‘𝑥) ∈ 𝐴, ⦋(𝐾‘𝑥) / 𝑘⦌𝐵, 0) ∈ ℂ)
133	132	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...(#‘𝐴))) → if((𝐾‘𝑥) ∈ 𝐴, ⦋(𝐾‘𝑥) / 𝑘⦌𝐵, 0) ∈ ℂ)
134		eleq1 2689	. . . . . . . 8 ⊢ (𝑛 = (𝐾‘𝑥) → (𝑛 ∈ 𝐴 ↔ (𝐾‘𝑥) ∈ 𝐴))
135		csbeq1 3536	. . . . . . . 8 ⊢ (𝑛 = (𝐾‘𝑥) → ⦋𝑛 / 𝑘⦌𝐵 = ⦋(𝐾‘𝑥) / 𝑘⦌𝐵)
136	134, 135	ifbieq1d 4109	. . . . . . 7 ⊢ (𝑛 = (𝐾‘𝑥) → if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0) = if((𝐾‘𝑥) ∈ 𝐴, ⦋(𝐾‘𝑥) / 𝑘⦌𝐵, 0))
137		nfcv 2764	. . . . . . . . 9 ⊢ Ⅎ𝑛if(𝑘 ∈ 𝐴, 𝐵, 0)
138		nfv 1843	. . . . . . . . . 10 ⊢ Ⅎ𝑘 𝑛 ∈ 𝐴
139		nfcsb1v 3549	. . . . . . . . . 10 ⊢ Ⅎ𝑘⦋𝑛 / 𝑘⦌𝐵
140	138, 139, 122	nfif 4115	. . . . . . . . 9 ⊢ Ⅎ𝑘if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0)
141		eleq1 2689	. . . . . . . . . 10 ⊢ (𝑘 = 𝑛 → (𝑘 ∈ 𝐴 ↔ 𝑛 ∈ 𝐴))
142		csbeq1a 3542	. . . . . . . . . 10 ⊢ (𝑘 = 𝑛 → 𝐵 = ⦋𝑛 / 𝑘⦌𝐵)
143	141, 142	ifbieq1d 4109	. . . . . . . . 9 ⊢ (𝑘 = 𝑛 → if(𝑘 ∈ 𝐴, 𝐵, 0) = if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))
144	137, 140, 143	cbvmpt 4749	. . . . . . . 8 ⊢ (𝑘 ∈ ℤ ↦ if(𝑘 ∈ 𝐴, 𝐵, 0)) = (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))
145	1, 144	eqtri 2644	. . . . . . 7 ⊢ 𝐹 = (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))
146	136, 145	fvmptg 6280	. . . . . 6 ⊢ (((𝐾‘𝑥) ∈ ℤ ∧ if((𝐾‘𝑥) ∈ 𝐴, ⦋(𝐾‘𝑥) / 𝑘⦌𝐵, 0) ∈ ℂ) → (𝐹‘(𝐾‘𝑥)) = if((𝐾‘𝑥) ∈ 𝐴, ⦋(𝐾‘𝑥) / 𝑘⦌𝐵, 0))
147	118, 133, 146	syl2anc 693	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...(#‘𝐴))) → (𝐹‘(𝐾‘𝑥)) = if((𝐾‘𝑥) ∈ 𝐴, ⦋(𝐾‘𝑥) / 𝑘⦌𝐵, 0))
148		elfznn 12370	. . . . . . 7 ⊢ (𝑥 ∈ (1...(#‘𝐴)) → 𝑥 ∈ ℕ)
149	148	adantl 482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...(#‘𝐴))) → 𝑥 ∈ ℕ)
150	114, 133	eqeltrrd 2702	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...(#‘𝐴))) → ⦋(𝐾‘𝑥) / 𝑘⦌𝐵 ∈ ℂ)
151		fveq2 6191	. . . . . . . 8 ⊢ (𝑛 = 𝑥 → (𝐾‘𝑛) = (𝐾‘𝑥))
152	151	csbeq1d 3540	. . . . . . 7 ⊢ (𝑛 = 𝑥 → ⦋(𝐾‘𝑛) / 𝑘⦌𝐵 = ⦋(𝐾‘𝑥) / 𝑘⦌𝐵)
153		summolem2.4	. . . . . . 7 ⊢ 𝐻 = (𝑛 ∈ ℕ ↦ ⦋(𝐾‘𝑛) / 𝑘⦌𝐵)
154	152, 153	fvmptg 6280	. . . . . 6 ⊢ ((𝑥 ∈ ℕ ∧ ⦋(𝐾‘𝑥) / 𝑘⦌𝐵 ∈ ℂ) → (𝐻‘𝑥) = ⦋(𝐾‘𝑥) / 𝑘⦌𝐵)
155	149, 150, 154	syl2anc 693	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...(#‘𝐴))) → (𝐻‘𝑥) = ⦋(𝐾‘𝑥) / 𝑘⦌𝐵)
156	114, 147, 155	3eqtr4rd 2667	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...(#‘𝐴))) → (𝐻‘𝑥) = (𝐹‘(𝐾‘𝑥)))
157	77, 79, 81, 82, 4, 83, 3, 96, 109, 156	seqcoll 13248	. . 3 ⊢ (𝜑 → (seq𝑀( + , 𝐹)‘(𝐾‘𝑁)) = (seq1( + , 𝐻)‘𝑁))
158		summo.3	. . . 4 ⊢ 𝐺 = (𝑛 ∈ ℕ ↦ ⦋(𝑓‘𝑛) / 𝑘⦌𝐵)
159	16, 16	jca 554	. . . 4 ⊢ (𝜑 → (𝑁 ∈ ℕ ∧ 𝑁 ∈ ℕ))
160	1, 2, 158, 153, 159, 5, 26	summolem3 14445	. . 3 ⊢ (𝜑 → (seq1( + , 𝐺)‘𝑁) = (seq1( + , 𝐻)‘𝑁))
161	157, 160	eqtr4d 2659	. 2 ⊢ (𝜑 → (seq𝑀( + , 𝐹)‘(𝐾‘𝑁)) = (seq1( + , 𝐺)‘𝑁))
162	75, 161	breqtrd 4679	1 ⊢ (𝜑 → seq𝑀( + , 𝐹) ⇝ (seq1( + , 𝐺)‘𝑁))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 196 ∧ wa 384 = wceq 1483 ∈ wcel 1990 ⦋csb 3533 ∖ cdif 3571 ⊆ wss 3574 ifcif 4086 class class class wbr 4653 ↦ cmpt 4729 ^◡ccnv 5113 ⟶wf 5884 –1-1-onto→wf1o 5887 ‘cfv 5888 Isom wiso 5889 (class class class)co 6650 ≈ cen 7952 Fincfn 7955 ℂcc 9934 ℝcr 9935 0cc0 9936 1c1 9937 + caddc 9939 ℝ^*cxr 10073 < clt 10074 ≤ cle 10075 ℕcn 11020 ℕ₀cn0 11292 ℤcz 11377 ℤ_≥cuz 11687 ...cfz 12326 seqcseq 12801 #chash 13117 ⇝ cli 14215

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1722 ax-4 1737 ax-5 1839 ax-6 1888 ax-7 1935 ax-8 1992 ax-9 1999 ax-10 2019 ax-11 2034 ax-12 2047 ax-13 2246 ax-ext 2602 ax-rep 4771 ax-sep 4781 ax-nul 4789 ax-pow 4843 ax-pr 4906 ax-un 6949 ax-inf2 8538 ax-cnex 9992 ax-resscn 9993 ax-1cn 9994 ax-icn 9995 ax-addcl 9996 ax-addrcl 9997 ax-mulcl 9998 ax-mulrcl 9999 ax-mulcom 10000 ax-addass 10001 ax-mulass 10002 ax-distr 10003 ax-i2m1 10004 ax-1ne0 10005 ax-1rid 10006 ax-rnegex 10007 ax-rrecex 10008 ax-cnre 10009 ax-pre-lttri 10010 ax-pre-lttrn 10011 ax-pre-ltadd 10012 ax-pre-mulgt0 10013

This theorem depends on definitions: df-bi 197 df-or 385 df-an 386 df-3or 1038 df-3an 1039 df-tru 1486 df-ex 1705 df-nf 1710 df-sb 1881 df-eu 2474 df-mo 2475 df-clab 2609 df-cleq 2615 df-clel 2618 df-nfc 2753 df-ne 2795 df-nel 2898 df-ral 2917 df-rex 2918 df-reu 2919 df-rmo 2920 df-rab 2921 df-v 3202 df-sbc 3436 df-csb 3534 df-dif 3577 df-un 3579 df-in 3581 df-ss 3588 df-pss 3590 df-nul 3916 df-if 4087 df-pw 4160 df-sn 4178 df-pr 4180 df-tp 4182 df-op 4184 df-uni 4437 df-int 4476 df-iun 4522 df-br 4654 df-opab 4713 df-mpt 4730 df-tr 4753 df-id 5024 df-eprel 5029 df-po 5035 df-so 5036 df-fr 5073 df-we 5075 df-xp 5120 df-rel 5121 df-cnv 5122 df-co 5123 df-dm 5124 df-rn 5125 df-res 5126 df-ima 5127 df-pred 5680 df-ord 5726 df-on 5727 df-lim 5728 df-suc 5729 df-iota 5851 df-fun 5890 df-fn 5891 df-f 5892 df-f1 5893 df-fo 5894 df-f1o 5895 df-fv 5896 df-isom 5897 df-riota 6611 df-ov 6653 df-oprab 6654 df-mpt2 6655 df-om 7066 df-1st 7168 df-2nd 7169 df-wrecs 7407 df-recs 7468 df-rdg 7506 df-1o 7560 df-oadd 7564 df-er 7742 df-en 7956 df-dom 7957 df-sdom 7958 df-fin 7959 df-card 8765 df-pnf 10076 df-mnf 10077 df-xr 10078 df-ltxr 10079 df-le 10080 df-sub 10268 df-neg 10269 df-div 10685 df-nn 11021 df-2 11079 df-n0 11293 df-z 11378 df-uz 11688 df-rp 11833 df-fz 12327 df-fzo 12466 df-seq 12802 df-exp 12861 df-hash 13118 df-cj 13839 df-re 13840 df-im 13841 df-sqrt 13975 df-abs 13976 df-clim 14219

This theorem is referenced by: summolem2 14447 zsum 14449

W3C validator