Metamath Proof Explorer


Theorem etransclem13

Description: F applied to Y . (Contributed by Glauco Siliprandi, 5-Apr-2020)

Ref Expression
Hypotheses etransclem13.x ⊢ φ → X ⊆ ℂ
etransclem13.p ⊢ φ → P ∈ ℕ
etransclem13.m ⊢ φ → M ∈ ℕ 0
etransclem13.f ⊢ F = x ∈ X ⟼ x P − 1 ⁢ ∏ j = 1 M x − j P
etransclem13.y ⊢ φ → Y ∈ X
Assertion etransclem13 ⊢ φ → F ⁡ Y = ∏ j = 0 M Y − j if j = 0 P − 1 P

Proof

Step Hyp Ref Expression
1 etransclem13.x ⊢ φ → X ⊆ ℂ
2 etransclem13.p ⊢ φ → P ∈ ℕ
3 etransclem13.m ⊢ φ → M ∈ ℕ 0
4 etransclem13.f ⊢ F = x ∈ X ⟼ x P − 1 ⁢ ∏ j = 1 M x − j P
5 etransclem13.y ⊢ φ → Y ∈ X
6 eqid ⊢ j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P = j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P
7 eqid ⊢ x ∈ X ⟼ ∏ j = 0 M j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P ⁡ j ⁡ x = x ∈ X ⟼ ∏ j = 0 M j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P ⁡ j ⁡ x
8 1 2 3 4 6 7 etransclem4 ⊢ φ → F = x ∈ X ⟼ ∏ j = 0 M j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P ⁡ j ⁡ x
9 simpr ⊢ φ ∧ j ∈ 0 … M → j ∈ 0 … M
10 cnex ⊢ ℂ ∈ V
11 10 ssex ⊢ X ⊆ ℂ → X ∈ V
12 mptexg ⊢ X ∈ V → y ∈ X ⟼ y − j if j = 0 P − 1 P ∈ V
13 1 11 12 3syl ⊢ φ → y ∈ X ⟼ y − j if j = 0 P − 1 P ∈ V
14 13 adantr ⊢ φ ∧ j ∈ 0 … M → y ∈ X ⟼ y − j if j = 0 P − 1 P ∈ V
15 oveq1 ⊢ x = y → x − j = y − j
16 15 oveq1d ⊢ x = y → x − j if j = 0 P − 1 P = y − j if j = 0 P − 1 P
17 16 cbvmptv ⊢ x ∈ X ⟼ x − j if j = 0 P − 1 P = y ∈ X ⟼ y − j if j = 0 P − 1 P
18 17 mpteq2i ⊢ j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P = j ∈ 0 … M ⟼ y ∈ X ⟼ y − j if j = 0 P − 1 P
19 18 fvmpt2 ⊢ j ∈ 0 … M ∧ y ∈ X ⟼ y − j if j = 0 P − 1 P ∈ V → j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P ⁡ j = y ∈ X ⟼ y − j if j = 0 P − 1 P
20 9 14 19 syl2anc ⊢ φ ∧ j ∈ 0 … M → j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P ⁡ j = y ∈ X ⟼ y − j if j = 0 P − 1 P
21 20 adantlr ⊢ φ ∧ x = Y ∧ j ∈ 0 … M → j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P ⁡ j = y ∈ X ⟼ y − j if j = 0 P − 1 P
22 simpr ⊢ x = Y ∧ y = x → y = x
23 simpl ⊢ x = Y ∧ y = x → x = Y
24 22 23 eqtrd ⊢ x = Y ∧ y = x → y = Y
25 oveq1 ⊢ y = Y → y − j = Y − j
26 25 oveq1d ⊢ y = Y → y − j if j = 0 P − 1 P = Y − j if j = 0 P − 1 P
27 24 26 syl ⊢ x = Y ∧ y = x → y − j if j = 0 P − 1 P = Y − j if j = 0 P − 1 P
28 27 adantll ⊢ φ ∧ x = Y ∧ y = x → y − j if j = 0 P − 1 P = Y − j if j = 0 P − 1 P
29 28 adantlr ⊢ φ ∧ x = Y ∧ j ∈ 0 … M ∧ y = x → y − j if j = 0 P − 1 P = Y − j if j = 0 P − 1 P
30 simpr ⊢ φ ∧ x = Y → x = Y
31 5 adantr ⊢ φ ∧ x = Y → Y ∈ X
32 30 31 eqeltrd ⊢ φ ∧ x = Y → x ∈ X
33 32 adantr ⊢ φ ∧ x = Y ∧ j ∈ 0 … M → x ∈ X
34 ovexd ⊢ φ ∧ x = Y ∧ j ∈ 0 … M → Y − j if j = 0 P − 1 P ∈ V
35 21 29 33 34 fvmptd ⊢ φ ∧ x = Y ∧ j ∈ 0 … M → j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P ⁡ j ⁡ x = Y − j if j = 0 P − 1 P
36 35 prodeq2dv ⊢ φ ∧ x = Y → ∏ j = 0 M j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P ⁡ j ⁡ x = ∏ j = 0 M Y − j if j = 0 P − 1 P
37 prodex ⊢ ∏ j = 0 M Y − j if j = 0 P − 1 P ∈ V
38 37 a1i ⊢ φ → ∏ j = 0 M Y − j if j = 0 P − 1 P ∈ V
39 8 36 5 38 fvmptd ⊢ φ → F ⁡ Y = ∏ j = 0 M Y − j if j = 0 P − 1 P