prodfrec - Metamath Proof Explorer

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

Theorem prodfrec 15899

Description: The reciprocal of an infinite product. (Contributed by Scott Fenton, 15-Jan-2018.)

**Hypotheses**
Ref	Expression
prodfn0.1	⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘𝑀))
prodfn0.2	⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝐹‘𝑘) ∈ ℂ)
prodfn0.3	⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝐹‘𝑘) ≠ 0)
prodfrec.4	⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝐺‘𝑘) = (1 / (𝐹‘𝑘)))

**Assertion**
Ref	Expression
prodfrec	⊢ (𝜑 → (seq𝑀( · , 𝐺)‘𝑁) = (1 / (seq𝑀( · , 𝐹)‘𝑁)))

Distinct variable groups: 𝑘,𝐹 𝜑,𝑘 𝑘,𝑀 𝑘,𝑁 𝑘,𝐺

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

Step	Hyp	Ref	Expression
1		prodfn0.1	. . 3 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘𝑀))
2		eluzfz2 13563	. . 3 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑁 ∈ (𝑀...𝑁))
3	1, 2	syl 17	. 2 ⊢ (𝜑 → 𝑁 ∈ (𝑀...𝑁))
4		fveq2 6901	. . . . 5 ⊢ (𝑚 = 𝑀 → (seq𝑀( · , 𝐺)‘𝑚) = (seq𝑀( · , 𝐺)‘𝑀))
5		fveq2 6901	. . . . . 6 ⊢ (𝑚 = 𝑀 → (seq𝑀( · , 𝐹)‘𝑚) = (seq𝑀( · , 𝐹)‘𝑀))
6	5	oveq2d 7440	. . . . 5 ⊢ (𝑚 = 𝑀 → (1 / (seq𝑀( · , 𝐹)‘𝑚)) = (1 / (seq𝑀( · , 𝐹)‘𝑀)))
7	4, 6	eqeq12d 2742	. . . 4 ⊢ (𝑚 = 𝑀 → ((seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚)) ↔ (seq𝑀( · , 𝐺)‘𝑀) = (1 / (seq𝑀( · , 𝐹)‘𝑀))))
8	7	imbi2d 339	. . 3 ⊢ (𝑚 = 𝑀 → ((𝜑 → (seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚))) ↔ (𝜑 → (seq𝑀( · , 𝐺)‘𝑀) = (1 / (seq𝑀( · , 𝐹)‘𝑀)))))
9		fveq2 6901	. . . . 5 ⊢ (𝑚 = 𝑛 → (seq𝑀( · , 𝐺)‘𝑚) = (seq𝑀( · , 𝐺)‘𝑛))
10		fveq2 6901	. . . . . 6 ⊢ (𝑚 = 𝑛 → (seq𝑀( · , 𝐹)‘𝑚) = (seq𝑀( · , 𝐹)‘𝑛))
11	10	oveq2d 7440	. . . . 5 ⊢ (𝑚 = 𝑛 → (1 / (seq𝑀( · , 𝐹)‘𝑚)) = (1 / (seq𝑀( · , 𝐹)‘𝑛)))
12	9, 11	eqeq12d 2742	. . . 4 ⊢ (𝑚 = 𝑛 → ((seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚)) ↔ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))))
13	12	imbi2d 339	. . 3 ⊢ (𝑚 = 𝑛 → ((𝜑 → (seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚))) ↔ (𝜑 → (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛)))))
14		fveq2 6901	. . . . 5 ⊢ (𝑚 = (𝑛 + 1) → (seq𝑀( · , 𝐺)‘𝑚) = (seq𝑀( · , 𝐺)‘(𝑛 + 1)))
15		fveq2 6901	. . . . . 6 ⊢ (𝑚 = (𝑛 + 1) → (seq𝑀( · , 𝐹)‘𝑚) = (seq𝑀( · , 𝐹)‘(𝑛 + 1)))
16	15	oveq2d 7440	. . . . 5 ⊢ (𝑚 = (𝑛 + 1) → (1 / (seq𝑀( · , 𝐹)‘𝑚)) = (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))))
17	14, 16	eqeq12d 2742	. . . 4 ⊢ (𝑚 = (𝑛 + 1) → ((seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚)) ↔ (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1)))))
18	17	imbi2d 339	. . 3 ⊢ (𝑚 = (𝑛 + 1) → ((𝜑 → (seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚))) ↔ (𝜑 → (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))))))
19		fveq2 6901	. . . . 5 ⊢ (𝑚 = 𝑁 → (seq𝑀( · , 𝐺)‘𝑚) = (seq𝑀( · , 𝐺)‘𝑁))
20		fveq2 6901	. . . . . 6 ⊢ (𝑚 = 𝑁 → (seq𝑀( · , 𝐹)‘𝑚) = (seq𝑀( · , 𝐹)‘𝑁))
21	20	oveq2d 7440	. . . . 5 ⊢ (𝑚 = 𝑁 → (1 / (seq𝑀( · , 𝐹)‘𝑚)) = (1 / (seq𝑀( · , 𝐹)‘𝑁)))
22	19, 21	eqeq12d 2742	. . . 4 ⊢ (𝑚 = 𝑁 → ((seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚)) ↔ (seq𝑀( · , 𝐺)‘𝑁) = (1 / (seq𝑀( · , 𝐹)‘𝑁))))
23	22	imbi2d 339	. . 3 ⊢ (𝑚 = 𝑁 → ((𝜑 → (seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚))) ↔ (𝜑 → (seq𝑀( · , 𝐺)‘𝑁) = (1 / (seq𝑀( · , 𝐹)‘𝑁)))))
24		eluzfz1 13562	. . . . . . 7 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑀 ∈ (𝑀...𝑁))
25	1, 24	syl 17	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ (𝑀...𝑁))
26		fveq2 6901	. . . . . . . . 9 ⊢ (𝑘 = 𝑀 → (𝐺‘𝑘) = (𝐺‘𝑀))
27		fveq2 6901	. . . . . . . . . 10 ⊢ (𝑘 = 𝑀 → (𝐹‘𝑘) = (𝐹‘𝑀))
28	27	oveq2d 7440	. . . . . . . . 9 ⊢ (𝑘 = 𝑀 → (1 / (𝐹‘𝑘)) = (1 / (𝐹‘𝑀)))
29	26, 28	eqeq12d 2742	. . . . . . . 8 ⊢ (𝑘 = 𝑀 → ((𝐺‘𝑘) = (1 / (𝐹‘𝑘)) ↔ (𝐺‘𝑀) = (1 / (𝐹‘𝑀))))
30	29	imbi2d 339	. . . . . . 7 ⊢ (𝑘 = 𝑀 → ((𝜑 → (𝐺‘𝑘) = (1 / (𝐹‘𝑘))) ↔ (𝜑 → (𝐺‘𝑀) = (1 / (𝐹‘𝑀)))))
31		prodfrec.4	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝐺‘𝑘) = (1 / (𝐹‘𝑘)))
32	31	expcom 412	. . . . . . 7 ⊢ (𝑘 ∈ (𝑀...𝑁) → (𝜑 → (𝐺‘𝑘) = (1 / (𝐹‘𝑘))))
33	30, 32	vtoclga 3558	. . . . . 6 ⊢ (𝑀 ∈ (𝑀...𝑁) → (𝜑 → (𝐺‘𝑀) = (1 / (𝐹‘𝑀))))
34	25, 33	mpcom 38	. . . . 5 ⊢ (𝜑 → (𝐺‘𝑀) = (1 / (𝐹‘𝑀)))
35		eluzel2 12879	. . . . . . 7 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑀 ∈ ℤ)
36	1, 35	syl 17	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ ℤ)
37		seq1 14034	. . . . . 6 ⊢ (𝑀 ∈ ℤ → (seq𝑀( · , 𝐺)‘𝑀) = (𝐺‘𝑀))
38	36, 37	syl 17	. . . . 5 ⊢ (𝜑 → (seq𝑀( · , 𝐺)‘𝑀) = (𝐺‘𝑀))
39		seq1 14034	. . . . . . 7 ⊢ (𝑀 ∈ ℤ → (seq𝑀( · , 𝐹)‘𝑀) = (𝐹‘𝑀))
40	36, 39	syl 17	. . . . . 6 ⊢ (𝜑 → (seq𝑀( · , 𝐹)‘𝑀) = (𝐹‘𝑀))
41	40	oveq2d 7440	. . . . 5 ⊢ (𝜑 → (1 / (seq𝑀( · , 𝐹)‘𝑀)) = (1 / (𝐹‘𝑀)))
42	34, 38, 41	3eqtr4d 2776	. . . 4 ⊢ (𝜑 → (seq𝑀( · , 𝐺)‘𝑀) = (1 / (seq𝑀( · , 𝐹)‘𝑀)))
43	42	a1i 11	. . 3 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → (𝜑 → (seq𝑀( · , 𝐺)‘𝑀) = (1 / (seq𝑀( · , 𝐹)‘𝑀))))
44		oveq1 7431	. . . . . . . . 9 ⊢ ((seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛)) → ((seq𝑀( · , 𝐺)‘𝑛) · (𝐺‘(𝑛 + 1))) = ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (𝐺‘(𝑛 + 1))))
45	44	3ad2ant3 1132	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → ((seq𝑀( · , 𝐺)‘𝑛) · (𝐺‘(𝑛 + 1))) = ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (𝐺‘(𝑛 + 1))))
46		fzofzp1 13784	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (𝑛 + 1) ∈ (𝑀...𝑁))
47		fveq2 6901	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = (𝑛 + 1) → (𝐺‘𝑘) = (𝐺‘(𝑛 + 1)))
48		fveq2 6901	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = (𝑛 + 1) → (𝐹‘𝑘) = (𝐹‘(𝑛 + 1)))
49	48	oveq2d 7440	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = (𝑛 + 1) → (1 / (𝐹‘𝑘)) = (1 / (𝐹‘(𝑛 + 1))))
50	47, 49	eqeq12d 2742	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = (𝑛 + 1) → ((𝐺‘𝑘) = (1 / (𝐹‘𝑘)) ↔ (𝐺‘(𝑛 + 1)) = (1 / (𝐹‘(𝑛 + 1)))))
51	50	imbi2d 339	. . . . . . . . . . . . . 14 ⊢ (𝑘 = (𝑛 + 1) → ((𝜑 → (𝐺‘𝑘) = (1 / (𝐹‘𝑘))) ↔ (𝜑 → (𝐺‘(𝑛 + 1)) = (1 / (𝐹‘(𝑛 + 1))))))
52	51, 32	vtoclga 3558	. . . . . . . . . . . . 13 ⊢ ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝜑 → (𝐺‘(𝑛 + 1)) = (1 / (𝐹‘(𝑛 + 1)))))
53	46, 52	syl 17	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (𝜑 → (𝐺‘(𝑛 + 1)) = (1 / (𝐹‘(𝑛 + 1)))))
54	53	impcom 406	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → (𝐺‘(𝑛 + 1)) = (1 / (𝐹‘(𝑛 + 1))))
55	54	oveq2d 7440	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (𝐺‘(𝑛 + 1))) = ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (1 / (𝐹‘(𝑛 + 1)))))
56		1cnd 11259	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → 1 ∈ ℂ)
57		elfzouz 13690	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ (𝑀..^𝑁) → 𝑛 ∈ (ℤ_≥‘𝑀))
58	57	adantl 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → 𝑛 ∈ (ℤ_≥‘𝑀))
59		elfzouz2 13701	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ (𝑀..^𝑁) → 𝑁 ∈ (ℤ_≥‘𝑛))
60		fzss2 13595	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ (ℤ_≥‘𝑛) → (𝑀...𝑛) ⊆ (𝑀...𝑁))
61	59, 60	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (𝑀...𝑛) ⊆ (𝑀...𝑁))
62	61	sselda 3979	. . . . . . . . . . . . . . 15 ⊢ ((𝑛 ∈ (𝑀..^𝑁) ∧ 𝑘 ∈ (𝑀...𝑛)) → 𝑘 ∈ (𝑀...𝑁))
63		prodfn0.2	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝐹‘𝑘) ∈ ℂ)
64	62, 63	sylan2 591	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑛 ∈ (𝑀..^𝑁) ∧ 𝑘 ∈ (𝑀...𝑛))) → (𝐹‘𝑘) ∈ ℂ)
65	64	anassrs 466	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) ∧ 𝑘 ∈ (𝑀...𝑛)) → (𝐹‘𝑘) ∈ ℂ)
66		mulcl 11242	. . . . . . . . . . . . . 14 ⊢ ((𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ) → (𝑘 · 𝑥) ∈ ℂ)
67	66	adantl 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → (𝑘 · 𝑥) ∈ ℂ)
68	58, 65, 67	seqcl 14042	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → (seq𝑀( · , 𝐹)‘𝑛) ∈ ℂ)
69	48	eleq1d 2811	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = (𝑛 + 1) → ((𝐹‘𝑘) ∈ ℂ ↔ (𝐹‘(𝑛 + 1)) ∈ ℂ))
70	69	imbi2d 339	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = (𝑛 + 1) → ((𝜑 → (𝐹‘𝑘) ∈ ℂ) ↔ (𝜑 → (𝐹‘(𝑛 + 1)) ∈ ℂ)))
71	63	expcom 412	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (𝑀...𝑁) → (𝜑 → (𝐹‘𝑘) ∈ ℂ))
72	70, 71	vtoclga 3558	. . . . . . . . . . . . . 14 ⊢ ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝜑 → (𝐹‘(𝑛 + 1)) ∈ ℂ))
73	46, 72	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (𝜑 → (𝐹‘(𝑛 + 1)) ∈ ℂ))
74	73	impcom 406	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → (𝐹‘(𝑛 + 1)) ∈ ℂ)
75		prodfn0.3	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝐹‘𝑘) ≠ 0)
76	62, 75	sylan2 591	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑛 ∈ (𝑀..^𝑁) ∧ 𝑘 ∈ (𝑀...𝑛))) → (𝐹‘𝑘) ≠ 0)
77	76	anassrs 466	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) ∧ 𝑘 ∈ (𝑀...𝑛)) → (𝐹‘𝑘) ≠ 0)
78	58, 65, 77	prodfn0 15898	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → (seq𝑀( · , 𝐹)‘𝑛) ≠ 0)
79	48	neeq1d 2990	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = (𝑛 + 1) → ((𝐹‘𝑘) ≠ 0 ↔ (𝐹‘(𝑛 + 1)) ≠ 0))
80	79	imbi2d 339	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = (𝑛 + 1) → ((𝜑 → (𝐹‘𝑘) ≠ 0) ↔ (𝜑 → (𝐹‘(𝑛 + 1)) ≠ 0)))
81	75	expcom 412	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (𝑀...𝑁) → (𝜑 → (𝐹‘𝑘) ≠ 0))
82	80, 81	vtoclga 3558	. . . . . . . . . . . . . 14 ⊢ ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝜑 → (𝐹‘(𝑛 + 1)) ≠ 0))
83	46, 82	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (𝜑 → (𝐹‘(𝑛 + 1)) ≠ 0))
84	83	impcom 406	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → (𝐹‘(𝑛 + 1)) ≠ 0)
85	56, 68, 56, 74, 78, 84	divmuldivd 12082	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (1 / (𝐹‘(𝑛 + 1)))) = ((1 · 1) / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))))
86		1t1e1 12426	. . . . . . . . . . . 12 ⊢ (1 · 1) = 1
87	86	oveq1i 7434	. . . . . . . . . . 11 ⊢ ((1 · 1) / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))) = (1 / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1))))
88	85, 87	eqtrdi 2782	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (1 / (𝐹‘(𝑛 + 1)))) = (1 / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))))
89	55, 88	eqtrd 2766	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (𝐺‘(𝑛 + 1))) = (1 / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))))
90	89	3adant3 1129	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (𝐺‘(𝑛 + 1))) = (1 / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))))
91	45, 90	eqtrd 2766	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → ((seq𝑀( · , 𝐺)‘𝑛) · (𝐺‘(𝑛 + 1))) = (1 / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))))
92		seqp1 14036	. . . . . . . . 9 ⊢ (𝑛 ∈ (ℤ_≥‘𝑀) → (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = ((seq𝑀( · , 𝐺)‘𝑛) · (𝐺‘(𝑛 + 1))))
93	57, 92	syl 17	. . . . . . . 8 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = ((seq𝑀( · , 𝐺)‘𝑛) · (𝐺‘(𝑛 + 1))))
94	93	3ad2ant2 1131	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = ((seq𝑀( · , 𝐺)‘𝑛) · (𝐺‘(𝑛 + 1))))
95		seqp1 14036	. . . . . . . . . 10 ⊢ (𝑛 ∈ (ℤ_≥‘𝑀) → (seq𝑀( · , 𝐹)‘(𝑛 + 1)) = ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1))))
96	57, 95	syl 17	. . . . . . . . 9 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (seq𝑀( · , 𝐹)‘(𝑛 + 1)) = ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1))))
97	96	oveq2d 7440	. . . . . . . 8 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))) = (1 / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))))
98	97	3ad2ant2 1131	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))) = (1 / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))))
99	91, 94, 98	3eqtr4d 2776	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))))
100	99	3exp 1116	. . . . 5 ⊢ (𝜑 → (𝑛 ∈ (𝑀..^𝑁) → ((seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛)) → (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))))))
101	100	com12 32	. . . 4 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (𝜑 → ((seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛)) → (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))))))
102	101	a2d 29	. . 3 ⊢ (𝑛 ∈ (𝑀..^𝑁) → ((𝜑 → (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → (𝜑 → (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))))))
103	8, 13, 18, 23, 43, 102	fzind2 13805	. 2 ⊢ (𝑁 ∈ (𝑀...𝑁) → (𝜑 → (seq𝑀( · , 𝐺)‘𝑁) = (1 / (seq𝑀( · , 𝐹)‘𝑁))))
104	3, 103	mpcom 38	1 ⊢ (𝜑 → (seq𝑀( · , 𝐺)‘𝑁) = (1 / (seq𝑀( · , 𝐹)‘𝑁)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 394 ∧ w3a 1084 = wceq 1534 ∈ wcel 2099 ≠ wne 2930 ⊆ wss 3947 ‘cfv 6554 (class class class)co 7424 ℂcc 11156 0cc0 11158 1c1 11159 + caddc 11161 · cmul 11163 / cdiv 11921 ℤcz 12610 ℤ_≥cuz 12874 ...cfz 13538 ..^cfzo 13681 seqcseq 14021

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1790 ax-4 1804 ax-5 1906 ax-6 1964 ax-7 2004 ax-8 2101 ax-9 2109 ax-10 2130 ax-11 2147 ax-12 2167 ax-ext 2697 ax-sep 5304 ax-nul 5311 ax-pow 5369 ax-pr 5433 ax-un 7746 ax-cnex 11214 ax-resscn 11215 ax-1cn 11216 ax-icn 11217 ax-addcl 11218 ax-addrcl 11219 ax-mulcl 11220 ax-mulrcl 11221 ax-mulcom 11222 ax-addass 11223 ax-mulass 11224 ax-distr 11225 ax-i2m1 11226 ax-1ne0 11227 ax-1rid 11228 ax-rnegex 11229 ax-rrecex 11230 ax-cnre 11231 ax-pre-lttri 11232 ax-pre-lttrn 11233 ax-pre-ltadd 11234 ax-pre-mulgt0 11235

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3or 1085 df-3an 1086 df-tru 1537 df-fal 1547 df-ex 1775 df-nf 1779 df-sb 2061 df-mo 2529 df-eu 2558 df-clab 2704 df-cleq 2718 df-clel 2803 df-nfc 2878 df-ne 2931 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3364 df-reu 3365 df-rab 3420 df-v 3464 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3967 df-nul 4326 df-if 4534 df-pw 4609 df-sn 4634 df-pr 4636 df-op 4640 df-uni 4914 df-iun 5003 df-br 5154 df-opab 5216 df-mpt 5237 df-tr 5271 df-id 5580 df-eprel 5586 df-po 5594 df-so 5595 df-fr 5637 df-we 5639 df-xp 5688 df-rel 5689 df-cnv 5690 df-co 5691 df-dm 5692 df-rn 5693 df-res 5694 df-ima 5695 df-pred 6312 df-ord 6379 df-on 6380 df-lim 6381 df-suc 6382 df-iota 6506 df-fun 6556 df-fn 6557 df-f 6558 df-f1 6559 df-fo 6560 df-f1o 6561 df-fv 6562 df-riota 7380 df-ov 7427 df-oprab 7428 df-mpo 7429 df-om 7877 df-1st 8003 df-2nd 8004 df-frecs 8296 df-wrecs 8327 df-recs 8401 df-rdg 8440 df-er 8734 df-en 8975 df-dom 8976 df-sdom 8977 df-pnf 11300 df-mnf 11301 df-xr 11302 df-ltxr 11303 df-le 11304 df-sub 11496 df-neg 11497 df-div 11922 df-nn 12265 df-n0 12525 df-z 12611 df-uz 12875 df-fz 13539 df-fzo 13682 df-seq 14022

This theorem is referenced by: prodfdiv 15900

W3C validator