Metamath Proof Explorer


Theorem etransclem26

Description: Every term in the sum of the N -th derivative of F applied to J is an integer. (Contributed by Glauco Siliprandi, 5-Apr-2020)

Ref Expression
Hypotheses etransclem26.p ⊢ φ → P ∈ ℕ
etransclem26.m ⊢ φ → M ∈ ℕ 0
etransclem26.n ⊢ φ → N ∈ ℕ 0
etransclem26.jz ⊢ φ → J ∈ ℤ
etransclem26.c ⊢ C = n ∈ ℕ 0 ⟼ c ∈ 0 … n 0 … M | ∑ j = 0 M c ⁡ j = n
etransclem26.d ⊢ φ → D ∈ C ⁡ N
Assertion etransclem26 ⊢ φ → N ! ∏ j = 0 M D ⁡ j ! ⁢ if P − 1 < D ⁡ 0 0 P − 1 ! P - 1 - D ⁡ 0 ! ⁢ J P - 1 - D ⁡ 0 ⁢ ∏ j = 1 M if P < D ⁡ j 0 P ! P − D ⁡ j ! ⁢ J − j P − D ⁡ j ∈ ℤ

Proof

Step Hyp Ref Expression
1 etransclem26.p ⊢ φ → P ∈ ℕ
2 etransclem26.m ⊢ φ → M ∈ ℕ 0
3 etransclem26.n ⊢ φ → N ∈ ℕ 0
4 etransclem26.jz ⊢ φ → J ∈ ℤ
5 etransclem26.c ⊢ C = n ∈ ℕ 0 ⟼ c ∈ 0 … n 0 … M | ∑ j = 0 M c ⁡ j = n
6 etransclem26.d ⊢ φ → D ∈ C ⁡ N
7 5 3 etransclem12 ⊢ φ → C ⁡ N = c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N
8 6 7 eleqtrd ⊢ φ → D ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N
9 fveq1 ⊢ c = D → c ⁡ j = D ⁡ j
10 9 sumeq2sdv ⊢ c = D → ∑ j = 0 M c ⁡ j = ∑ j = 0 M D ⁡ j
11 10 eqeq1d ⊢ c = D → ∑ j = 0 M c ⁡ j = N ↔ ∑ j = 0 M D ⁡ j = N
12 11 elrab ⊢ D ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ↔ D ∈ 0 … N 0 … M ∧ ∑ j = 0 M D ⁡ j = N
13 8 12 sylib ⊢ φ → D ∈ 0 … N 0 … M ∧ ∑ j = 0 M D ⁡ j = N
14 13 simprd ⊢ φ → ∑ j = 0 M D ⁡ j = N
15 14 eqcomd ⊢ φ → N = ∑ j = 0 M D ⁡ j
16 15 fveq2d ⊢ φ → N ! = ∑ j = 0 M D ⁡ j !
17 16 oveq1d ⊢ φ → N ! ∏ j = 0 M D ⁡ j ! = ∑ j = 0 M D ⁡ j ! ∏ j = 0 M D ⁡ j !
18 nfcv ⊢ Ⅎ _ j D
19 fzfid ⊢ φ → 0 … M ∈ Fin
20 nn0ex ⊢ ℕ 0 ∈ V
21 fzssnn0 ⊢ 0 … N ⊆ ℕ 0
22 mapss ⊢ ℕ 0 ∈ V ∧ 0 … N ⊆ ℕ 0 → 0 … N 0 … M ⊆ ℕ 0 0 … M
23 20 21 22 mp2an ⊢ 0 … N 0 … M ⊆ ℕ 0 0 … M
24 13 simpld ⊢ φ → D ∈ 0 … N 0 … M
25 23 24 sselid ⊢ φ → D ∈ ℕ 0 0 … M
26 18 19 25 mccl ⊢ φ → ∑ j = 0 M D ⁡ j ! ∏ j = 0 M D ⁡ j ! ∈ ℕ
27 17 26 eqeltrd ⊢ φ → N ! ∏ j = 0 M D ⁡ j ! ∈ ℕ
28 27 nnzd ⊢ φ → N ! ∏ j = 0 M D ⁡ j ! ∈ ℤ
29 elmapi ⊢ D ∈ 0 … N 0 … M → D : 0 … M ⟶ 0 … N
30 24 29 syl ⊢ φ → D : 0 … M ⟶ 0 … N
31 1 2 30 4 etransclem10 ⊢ φ → if P − 1 < D ⁡ 0 0 P − 1 ! P - 1 - D ⁡ 0 ! ⁢ J P - 1 - D ⁡ 0 ∈ ℤ
32 fzfid ⊢ φ → 1 … M ∈ Fin
33 1 adantr ⊢ φ ∧ j ∈ 1 … M → P ∈ ℕ
34 30 adantr ⊢ φ ∧ j ∈ 1 … M → D : 0 … M ⟶ 0 … N
35 0z ⊢ 0 ∈ ℤ
36 fzp1ss ⊢ 0 ∈ ℤ → 0 + 1 … M ⊆ 0 … M
37 35 36 ax-mp ⊢ 0 + 1 … M ⊆ 0 … M
38 1e0p1 ⊢ 1 = 0 + 1
39 38 oveq1i ⊢ 1 … M = 0 + 1 … M
40 39 eleq2i ⊢ j ∈ 1 … M ↔ j ∈ 0 + 1 … M
41 40 biimpi ⊢ j ∈ 1 … M → j ∈ 0 + 1 … M
42 37 41 sselid ⊢ j ∈ 1 … M → j ∈ 0 … M
43 42 adantl ⊢ φ ∧ j ∈ 1 … M → j ∈ 0 … M
44 4 adantr ⊢ φ ∧ j ∈ 1 … M → J ∈ ℤ
45 33 34 43 44 etransclem3 ⊢ φ ∧ j ∈ 1 … M → if P < D ⁡ j 0 P ! P − D ⁡ j ! ⁢ J − j P − D ⁡ j ∈ ℤ
46 32 45 fprodzcl ⊢ φ → ∏ j = 1 M if P < D ⁡ j 0 P ! P − D ⁡ j ! ⁢ J − j P − D ⁡ j ∈ ℤ
47 31 46 zmulcld ⊢ φ → if P − 1 < D ⁡ 0 0 P − 1 ! P - 1 - D ⁡ 0 ! ⁢ J P - 1 - D ⁡ 0 ⁢ ∏ j = 1 M if P < D ⁡ j 0 P ! P − D ⁡ j ! ⁢ J − j P − D ⁡ j ∈ ℤ
48 28 47 zmulcld ⊢ φ → N ! ∏ j = 0 M D ⁡ j ! ⁢ if P − 1 < D ⁡ 0 0 P − 1 ! P - 1 - D ⁡ 0 ! ⁢ J P - 1 - D ⁡ 0 ⁢ ∏ j = 1 M if P < D ⁡ j 0 P ! P − D ⁡ j ! ⁢ J − j P − D ⁡ j ∈ ℤ