prodfrecap - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > prodfrecap		GIF version

Theorem prodfrecap 11554

Description: The reciprocal of a finite product. (Contributed by Scott Fenton, 15-Jan-2018.) (Revised by Jim Kingdon, 24-Mar-2024.)

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

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

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

Proof of Theorem prodfrecap Dummy variables 𝑛 𝑣 𝑚 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		prodfap0.1	. . 3 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘𝑀))
2		eluzfz2 10032	. . 3 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑁 ∈ (𝑀...𝑁))
3	1, 2	syl 14	. 2 ⊢ (𝜑 → 𝑁 ∈ (𝑀...𝑁))
4		fveq2 5516	. . . . 5 ⊢ (𝑚 = 𝑀 → (seq𝑀( · , 𝐺)‘𝑚) = (seq𝑀( · , 𝐺)‘𝑀))
5		fveq2 5516	. . . . . 6 ⊢ (𝑚 = 𝑀 → (seq𝑀( · , 𝐹)‘𝑚) = (seq𝑀( · , 𝐹)‘𝑀))
6	5	oveq2d 5891	. . . . 5 ⊢ (𝑚 = 𝑀 → (1 / (seq𝑀( · , 𝐹)‘𝑚)) = (1 / (seq𝑀( · , 𝐹)‘𝑀)))
7	4, 6	eqeq12d 2192	. . . 4 ⊢ (𝑚 = 𝑀 → ((seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚)) ↔ (seq𝑀( · , 𝐺)‘𝑀) = (1 / (seq𝑀( · , 𝐹)‘𝑀))))
8	7	imbi2d 230	. . 3 ⊢ (𝑚 = 𝑀 → ((𝜑 → (seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚))) ↔ (𝜑 → (seq𝑀( · , 𝐺)‘𝑀) = (1 / (seq𝑀( · , 𝐹)‘𝑀)))))
9		fveq2 5516	. . . . 5 ⊢ (𝑚 = 𝑛 → (seq𝑀( · , 𝐺)‘𝑚) = (seq𝑀( · , 𝐺)‘𝑛))
10		fveq2 5516	. . . . . 6 ⊢ (𝑚 = 𝑛 → (seq𝑀( · , 𝐹)‘𝑚) = (seq𝑀( · , 𝐹)‘𝑛))
11	10	oveq2d 5891	. . . . 5 ⊢ (𝑚 = 𝑛 → (1 / (seq𝑀( · , 𝐹)‘𝑚)) = (1 / (seq𝑀( · , 𝐹)‘𝑛)))
12	9, 11	eqeq12d 2192	. . . 4 ⊢ (𝑚 = 𝑛 → ((seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚)) ↔ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))))
13	12	imbi2d 230	. . 3 ⊢ (𝑚 = 𝑛 → ((𝜑 → (seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚))) ↔ (𝜑 → (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛)))))
14		fveq2 5516	. . . . 5 ⊢ (𝑚 = (𝑛 + 1) → (seq𝑀( · , 𝐺)‘𝑚) = (seq𝑀( · , 𝐺)‘(𝑛 + 1)))
15		fveq2 5516	. . . . . 6 ⊢ (𝑚 = (𝑛 + 1) → (seq𝑀( · , 𝐹)‘𝑚) = (seq𝑀( · , 𝐹)‘(𝑛 + 1)))
16	15	oveq2d 5891	. . . . 5 ⊢ (𝑚 = (𝑛 + 1) → (1 / (seq𝑀( · , 𝐹)‘𝑚)) = (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))))
17	14, 16	eqeq12d 2192	. . . 4 ⊢ (𝑚 = (𝑛 + 1) → ((seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚)) ↔ (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1)))))
18	17	imbi2d 230	. . 3 ⊢ (𝑚 = (𝑛 + 1) → ((𝜑 → (seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚))) ↔ (𝜑 → (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))))))
19		fveq2 5516	. . . . 5 ⊢ (𝑚 = 𝑁 → (seq𝑀( · , 𝐺)‘𝑚) = (seq𝑀( · , 𝐺)‘𝑁))
20		fveq2 5516	. . . . . 6 ⊢ (𝑚 = 𝑁 → (seq𝑀( · , 𝐹)‘𝑚) = (seq𝑀( · , 𝐹)‘𝑁))
21	20	oveq2d 5891	. . . . 5 ⊢ (𝑚 = 𝑁 → (1 / (seq𝑀( · , 𝐹)‘𝑚)) = (1 / (seq𝑀( · , 𝐹)‘𝑁)))
22	19, 21	eqeq12d 2192	. . . 4 ⊢ (𝑚 = 𝑁 → ((seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚)) ↔ (seq𝑀( · , 𝐺)‘𝑁) = (1 / (seq𝑀( · , 𝐹)‘𝑁))))
23	22	imbi2d 230	. . 3 ⊢ (𝑚 = 𝑁 → ((𝜑 → (seq𝑀( · , 𝐺)‘𝑚) = (1 / (seq𝑀( · , 𝐹)‘𝑚))) ↔ (𝜑 → (seq𝑀( · , 𝐺)‘𝑁) = (1 / (seq𝑀( · , 𝐹)‘𝑁)))))
24		eluzfz1 10031	. . . . . . 7 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑀 ∈ (𝑀...𝑁))
25	1, 24	syl 14	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ (𝑀...𝑁))
26		fveq2 5516	. . . . . . . . 9 ⊢ (𝑘 = 𝑀 → (𝐺‘𝑘) = (𝐺‘𝑀))
27		fveq2 5516	. . . . . . . . . 10 ⊢ (𝑘 = 𝑀 → (𝐹‘𝑘) = (𝐹‘𝑀))
28	27	oveq2d 5891	. . . . . . . . 9 ⊢ (𝑘 = 𝑀 → (1 / (𝐹‘𝑘)) = (1 / (𝐹‘𝑀)))
29	26, 28	eqeq12d 2192	. . . . . . . 8 ⊢ (𝑘 = 𝑀 → ((𝐺‘𝑘) = (1 / (𝐹‘𝑘)) ↔ (𝐺‘𝑀) = (1 / (𝐹‘𝑀))))
30	29	imbi2d 230	. . . . . . 7 ⊢ (𝑘 = 𝑀 → ((𝜑 → (𝐺‘𝑘) = (1 / (𝐹‘𝑘))) ↔ (𝜑 → (𝐺‘𝑀) = (1 / (𝐹‘𝑀)))))
31		prodfrec.4	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝐺‘𝑘) = (1 / (𝐹‘𝑘)))
32	31	expcom 116	. . . . . . 7 ⊢ (𝑘 ∈ (𝑀...𝑁) → (𝜑 → (𝐺‘𝑘) = (1 / (𝐹‘𝑘))))
33	30, 32	vtoclga 2804	. . . . . 6 ⊢ (𝑀 ∈ (𝑀...𝑁) → (𝜑 → (𝐺‘𝑀) = (1 / (𝐹‘𝑀))))
34	25, 33	mpcom 36	. . . . 5 ⊢ (𝜑 → (𝐺‘𝑀) = (1 / (𝐹‘𝑀)))
35		eluzel2 9533	. . . . . . 7 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑀 ∈ ℤ)
36	1, 35	syl 14	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ ℤ)
37		prodfrecap.g	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → (𝐺‘𝑘) ∈ ℂ)
38		mulcl 7938	. . . . . . 7 ⊢ ((𝑘 ∈ ℂ ∧ 𝑣 ∈ ℂ) → (𝑘 · 𝑣) ∈ ℂ)
39	38	adantl 277	. . . . . 6 ⊢ ((𝜑 ∧ (𝑘 ∈ ℂ ∧ 𝑣 ∈ ℂ)) → (𝑘 · 𝑣) ∈ ℂ)
40	36, 37, 39	seq3-1 10460	. . . . 5 ⊢ (𝜑 → (seq𝑀( · , 𝐺)‘𝑀) = (𝐺‘𝑀))
41		prodfap0.2	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → (𝐹‘𝑘) ∈ ℂ)
42	36, 41, 39	seq3-1 10460	. . . . . 6 ⊢ (𝜑 → (seq𝑀( · , 𝐹)‘𝑀) = (𝐹‘𝑀))
43	42	oveq2d 5891	. . . . 5 ⊢ (𝜑 → (1 / (seq𝑀( · , 𝐹)‘𝑀)) = (1 / (𝐹‘𝑀)))
44	34, 40, 43	3eqtr4d 2220	. . . 4 ⊢ (𝜑 → (seq𝑀( · , 𝐺)‘𝑀) = (1 / (seq𝑀( · , 𝐹)‘𝑀)))
45	44	a1i 9	. . 3 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → (𝜑 → (seq𝑀( · , 𝐺)‘𝑀) = (1 / (seq𝑀( · , 𝐹)‘𝑀))))
46		oveq1 5882	. . . . . . . . 9 ⊢ ((seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛)) → ((seq𝑀( · , 𝐺)‘𝑛) · (𝐺‘(𝑛 + 1))) = ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (𝐺‘(𝑛 + 1))))
47	46	3ad2ant3 1020	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → ((seq𝑀( · , 𝐺)‘𝑛) · (𝐺‘(𝑛 + 1))) = ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (𝐺‘(𝑛 + 1))))
48		fzofzp1 10227	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (𝑛 + 1) ∈ (𝑀...𝑁))
49		fveq2 5516	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = (𝑛 + 1) → (𝐺‘𝑘) = (𝐺‘(𝑛 + 1)))
50		fveq2 5516	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = (𝑛 + 1) → (𝐹‘𝑘) = (𝐹‘(𝑛 + 1)))
51	50	oveq2d 5891	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = (𝑛 + 1) → (1 / (𝐹‘𝑘)) = (1 / (𝐹‘(𝑛 + 1))))
52	49, 51	eqeq12d 2192	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = (𝑛 + 1) → ((𝐺‘𝑘) = (1 / (𝐹‘𝑘)) ↔ (𝐺‘(𝑛 + 1)) = (1 / (𝐹‘(𝑛 + 1)))))
53	52	imbi2d 230	. . . . . . . . . . . . . 14 ⊢ (𝑘 = (𝑛 + 1) → ((𝜑 → (𝐺‘𝑘) = (1 / (𝐹‘𝑘))) ↔ (𝜑 → (𝐺‘(𝑛 + 1)) = (1 / (𝐹‘(𝑛 + 1))))))
54	53, 32	vtoclga 2804	. . . . . . . . . . . . 13 ⊢ ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝜑 → (𝐺‘(𝑛 + 1)) = (1 / (𝐹‘(𝑛 + 1)))))
55	48, 54	syl 14	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (𝜑 → (𝐺‘(𝑛 + 1)) = (1 / (𝐹‘(𝑛 + 1)))))
56	55	impcom 125	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → (𝐺‘(𝑛 + 1)) = (1 / (𝐹‘(𝑛 + 1))))
57	56	oveq2d 5891	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (𝐺‘(𝑛 + 1))) = ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (1 / (𝐹‘(𝑛 + 1)))))
58		1cnd 7973	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → 1 ∈ ℂ)
59		eqid 2177	. . . . . . . . . . . . . . 15 ⊢ (ℤ_≥‘𝑀) = (ℤ_≥‘𝑀)
60	59, 36, 41	prodf 11546	. . . . . . . . . . . . . 14 ⊢ (𝜑 → seq𝑀( · , 𝐹):(ℤ_≥‘𝑀)⟶ℂ)
61	60	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → seq𝑀( · , 𝐹):(ℤ_≥‘𝑀)⟶ℂ)
62		elfzouz 10151	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ (𝑀..^𝑁) → 𝑛 ∈ (ℤ_≥‘𝑀))
63	62	adantl 277	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → 𝑛 ∈ (ℤ_≥‘𝑀))
64	61, 63	ffvelcdmd 5653	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → (seq𝑀( · , 𝐹)‘𝑛) ∈ ℂ)
65	50	eleq1d 2246	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = (𝑛 + 1) → ((𝐹‘𝑘) ∈ ℂ ↔ (𝐹‘(𝑛 + 1)) ∈ ℂ))
66	65	imbi2d 230	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = (𝑛 + 1) → ((𝜑 → (𝐹‘𝑘) ∈ ℂ) ↔ (𝜑 → (𝐹‘(𝑛 + 1)) ∈ ℂ)))
67		elfzuz 10021	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ (𝑀...𝑁) → 𝑘 ∈ (ℤ_≥‘𝑀))
68	41	expcom 116	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ (ℤ_≥‘𝑀) → (𝜑 → (𝐹‘𝑘) ∈ ℂ))
69	67, 68	syl 14	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (𝑀...𝑁) → (𝜑 → (𝐹‘𝑘) ∈ ℂ))
70	66, 69	vtoclga 2804	. . . . . . . . . . . . . 14 ⊢ ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝜑 → (𝐹‘(𝑛 + 1)) ∈ ℂ))
71	48, 70	syl 14	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (𝜑 → (𝐹‘(𝑛 + 1)) ∈ ℂ))
72	71	impcom 125	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → (𝐹‘(𝑛 + 1)) ∈ ℂ)
73	41	adantlr 477	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → (𝐹‘𝑘) ∈ ℂ)
74		elfzouz2 10161	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ (𝑀..^𝑁) → 𝑁 ∈ (ℤ_≥‘𝑛))
75		fzss2 10064	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ (ℤ_≥‘𝑛) → (𝑀...𝑛) ⊆ (𝑀...𝑁))
76	74, 75	syl 14	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (𝑀...𝑛) ⊆ (𝑀...𝑁))
77	76	sselda 3156	. . . . . . . . . . . . . . 15 ⊢ ((𝑛 ∈ (𝑀..^𝑁) ∧ 𝑘 ∈ (𝑀...𝑛)) → 𝑘 ∈ (𝑀...𝑁))
78		prodfap0.3	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑁)) → (𝐹‘𝑘) # 0)
79	77, 78	sylan2 286	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑛 ∈ (𝑀..^𝑁) ∧ 𝑘 ∈ (𝑀...𝑛))) → (𝐹‘𝑘) # 0)
80	79	anassrs 400	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) ∧ 𝑘 ∈ (𝑀...𝑛)) → (𝐹‘𝑘) # 0)
81	63, 73, 80	prodfap0 11553	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → (seq𝑀( · , 𝐹)‘𝑛) # 0)
82	50	breq1d 4014	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = (𝑛 + 1) → ((𝐹‘𝑘) # 0 ↔ (𝐹‘(𝑛 + 1)) # 0))
83	82	imbi2d 230	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = (𝑛 + 1) → ((𝜑 → (𝐹‘𝑘) # 0) ↔ (𝜑 → (𝐹‘(𝑛 + 1)) # 0)))
84	78	expcom 116	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (𝑀...𝑁) → (𝜑 → (𝐹‘𝑘) # 0))
85	83, 84	vtoclga 2804	. . . . . . . . . . . . . 14 ⊢ ((𝑛 + 1) ∈ (𝑀...𝑁) → (𝜑 → (𝐹‘(𝑛 + 1)) # 0))
86	48, 85	syl 14	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (𝜑 → (𝐹‘(𝑛 + 1)) # 0))
87	86	impcom 125	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → (𝐹‘(𝑛 + 1)) # 0)
88	58, 64, 58, 72, 81, 87	divmuldivapd 8789	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (1 / (𝐹‘(𝑛 + 1)))) = ((1 · 1) / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))))
89		1t1e1 9071	. . . . . . . . . . . 12 ⊢ (1 · 1) = 1
90	89	oveq1i 5885	. . . . . . . . . . 11 ⊢ ((1 · 1) / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))) = (1 / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1))))
91	88, 90	eqtrdi 2226	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (1 / (𝐹‘(𝑛 + 1)))) = (1 / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))))
92	57, 91	eqtrd 2210	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁)) → ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (𝐺‘(𝑛 + 1))) = (1 / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))))
93	92	3adant3 1017	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → ((1 / (seq𝑀( · , 𝐹)‘𝑛)) · (𝐺‘(𝑛 + 1))) = (1 / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))))
94	47, 93	eqtrd 2210	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → ((seq𝑀( · , 𝐺)‘𝑛) · (𝐺‘(𝑛 + 1))) = (1 / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))))
95	63	3adant3 1017	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → 𝑛 ∈ (ℤ_≥‘𝑀))
96	37	3ad2antl1 1159	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → (𝐺‘𝑘) ∈ ℂ)
97	38	adantl 277	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) ∧ (𝑘 ∈ ℂ ∧ 𝑣 ∈ ℂ)) → (𝑘 · 𝑣) ∈ ℂ)
98	95, 96, 97	seq3p1 10462	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = ((seq𝑀( · , 𝐺)‘𝑛) · (𝐺‘(𝑛 + 1))))
99	41	3ad2antl1 1159	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → (𝐹‘𝑘) ∈ ℂ)
100	95, 99, 97	seq3p1 10462	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → (seq𝑀( · , 𝐹)‘(𝑛 + 1)) = ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1))))
101	100	oveq2d 5891	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))) = (1 / ((seq𝑀( · , 𝐹)‘𝑛) · (𝐹‘(𝑛 + 1)))))
102	94, 98, 101	3eqtr4d 2220	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀..^𝑁) ∧ (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))))
103	102	3exp 1202	. . . . 5 ⊢ (𝜑 → (𝑛 ∈ (𝑀..^𝑁) → ((seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛)) → (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))))))
104	103	com12 30	. . . 4 ⊢ (𝑛 ∈ (𝑀..^𝑁) → (𝜑 → ((seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛)) → (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))))))
105	104	a2d 26	. . 3 ⊢ (𝑛 ∈ (𝑀..^𝑁) → ((𝜑 → (seq𝑀( · , 𝐺)‘𝑛) = (1 / (seq𝑀( · , 𝐹)‘𝑛))) → (𝜑 → (seq𝑀( · , 𝐺)‘(𝑛 + 1)) = (1 / (seq𝑀( · , 𝐹)‘(𝑛 + 1))))))
106	8, 13, 18, 23, 45, 105	fzind2 10239	. 2 ⊢ (𝑁 ∈ (𝑀...𝑁) → (𝜑 → (seq𝑀( · , 𝐺)‘𝑁) = (1 / (seq𝑀( · , 𝐹)‘𝑁))))
107	3, 106	mpcom 36	1 ⊢ (𝜑 → (seq𝑀( · , 𝐺)‘𝑁) = (1 / (seq𝑀( · , 𝐹)‘𝑁)))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ∧ w3a 978 = wceq 1353 ∈ wcel 2148 ⊆ wss 3130 class class class wbr 4004 ⟶wf 5213 ‘cfv 5217 (class class class)co 5875 ℂcc 7809 0cc0 7811 1c1 7812 + caddc 7814 · cmul 7816 # cap 8538 / cdiv 8629 ℤcz 9253 ℤ_≥cuz 9528 ...cfz 10008 ..^cfzo 10142 seqcseq 10445

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 614 ax-in2 615 ax-io 709 ax-5 1447 ax-7 1448 ax-gen 1449 ax-ie1 1493 ax-ie2 1494 ax-8 1504 ax-10 1505 ax-11 1506 ax-i12 1507 ax-bndl 1509 ax-4 1510 ax-17 1526 ax-i9 1530 ax-ial 1534 ax-i5r 1535 ax-13 2150 ax-14 2151 ax-ext 2159 ax-coll 4119 ax-sep 4122 ax-nul 4130 ax-pow 4175 ax-pr 4210 ax-un 4434 ax-setind 4537 ax-iinf 4588 ax-cnex 7902 ax-resscn 7903 ax-1cn 7904 ax-1re 7905 ax-icn 7906 ax-addcl 7907 ax-addrcl 7908 ax-mulcl 7909 ax-mulrcl 7910 ax-addcom 7911 ax-mulcom 7912 ax-addass 7913 ax-mulass 7914 ax-distr 7915 ax-i2m1 7916 ax-0lt1 7917 ax-1rid 7918 ax-0id 7919 ax-rnegex 7920 ax-precex 7921 ax-cnre 7922 ax-pre-ltirr 7923 ax-pre-ltwlin 7924 ax-pre-lttrn 7925 ax-pre-apti 7926 ax-pre-ltadd 7927 ax-pre-mulgt0 7928 ax-pre-mulext 7929

This theorem depends on definitions: df-bi 117 df-3or 979 df-3an 980 df-tru 1356 df-fal 1359 df-nf 1461 df-sb 1763 df-eu 2029 df-mo 2030 df-clab 2164 df-cleq 2170 df-clel 2173 df-nfc 2308 df-ne 2348 df-nel 2443 df-ral 2460 df-rex 2461 df-reu 2462 df-rmo 2463 df-rab 2464 df-v 2740 df-sbc 2964 df-csb 3059 df-dif 3132 df-un 3134 df-in 3136 df-ss 3143 df-nul 3424 df-pw 3578 df-sn 3599 df-pr 3600 df-op 3602 df-uni 3811 df-int 3846 df-iun 3889 df-br 4005 df-opab 4066 df-mpt 4067 df-tr 4103 df-id 4294 df-po 4297 df-iso 4298 df-iord 4367 df-on 4369 df-ilim 4370 df-suc 4372 df-iom 4591 df-xp 4633 df-rel 4634 df-cnv 4635 df-co 4636 df-dm 4637 df-rn 4638 df-res 4639 df-ima 4640 df-iota 5179 df-fun 5219 df-fn 5220 df-f 5221 df-f1 5222 df-fo 5223 df-f1o 5224 df-fv 5225 df-riota 5831 df-ov 5878 df-oprab 5879 df-mpo 5880 df-1st 6141 df-2nd 6142 df-recs 6306 df-frec 6392 df-pnf 7994 df-mnf 7995 df-xr 7996 df-ltxr 7997 df-le 7998 df-sub 8130 df-neg 8131 df-reap 8532 df-ap 8539 df-div 8630 df-inn 8920 df-n0 9177 df-z 9254 df-uz 9529 df-fz 10009 df-fzo 10143 df-seqfrec 10446

This theorem is referenced by: prodfdivap 11555

W3C validator