Metamath Proof Explorer


Theorem aalioulem1

Description: Lemma for aaliou . An integer polynomial cannot inflate the denominator of a rational by more than its degree. (Contributed by Stefan O'Rear, 12-Nov-2014)

Ref Expression
Hypotheses aalioulem1.a ⊢ φ → F ∈ Poly ⁡ ℤ
aalioulem1.b ⊢ φ → X ∈ ℤ
aalioulem1.c ⊢ φ → Y ∈ ℕ
Assertion aalioulem1 ⊢ φ → F ⁡ X Y ⁢ Y deg ⁡ F ∈ ℤ

Proof

Step Hyp Ref Expression
1 aalioulem1.a ⊢ φ → F ∈ Poly ⁡ ℤ
2 aalioulem1.b ⊢ φ → X ∈ ℤ
3 aalioulem1.c ⊢ φ → Y ∈ ℕ
4 2 zcnd ⊢ φ → X ∈ ℂ
5 3 nncnd ⊢ φ → Y ∈ ℂ
6 3 nnne0d ⊢ φ → Y ≠ 0
7 4 5 6 divcld ⊢ φ → X Y ∈ ℂ
8 eqid ⊢ coeff ⁡ F = coeff ⁡ F
9 eqid ⊢ deg ⁡ F = deg ⁡ F
10 8 9 coeid2 ⊢ F ∈ Poly ⁡ ℤ ∧ X Y ∈ ℂ → F ⁡ X Y = ∑ a = 0 deg ⁡ F coeff ⁡ F ⁡ a ⁢ X Y a
11 1 7 10 syl2anc ⊢ φ → F ⁡ X Y = ∑ a = 0 deg ⁡ F coeff ⁡ F ⁡ a ⁢ X Y a
12 11 oveq1d ⊢ φ → F ⁡ X Y ⁢ Y deg ⁡ F = ∑ a = 0 deg ⁡ F coeff ⁡ F ⁡ a ⁢ X Y a ⁢ Y deg ⁡ F
13 fzfid ⊢ φ → 0 … deg ⁡ F ∈ Fin
14 dgrcl ⊢ F ∈ Poly ⁡ ℤ → deg ⁡ F ∈ ℕ 0
15 1 14 syl ⊢ φ → deg ⁡ F ∈ ℕ 0
16 5 15 expcld ⊢ φ → Y deg ⁡ F ∈ ℂ
17 0z ⊢ 0 ∈ ℤ
18 8 coef2 ⊢ F ∈ Poly ⁡ ℤ ∧ 0 ∈ ℤ → coeff ⁡ F : ℕ 0 ⟶ ℤ
19 1 17 18 sylancl ⊢ φ → coeff ⁡ F : ℕ 0 ⟶ ℤ
20 elfznn0 ⊢ a ∈ 0 … deg ⁡ F → a ∈ ℕ 0
21 ffvelcdm ⊢ coeff ⁡ F : ℕ 0 ⟶ ℤ ∧ a ∈ ℕ 0 → coeff ⁡ F ⁡ a ∈ ℤ
22 19 20 21 syl2an ⊢ φ ∧ a ∈ 0 … deg ⁡ F → coeff ⁡ F ⁡ a ∈ ℤ
23 22 zcnd ⊢ φ ∧ a ∈ 0 … deg ⁡ F → coeff ⁡ F ⁡ a ∈ ℂ
24 expcl ⊢ X Y ∈ ℂ ∧ a ∈ ℕ 0 → X Y a ∈ ℂ
25 7 20 24 syl2an ⊢ φ ∧ a ∈ 0 … deg ⁡ F → X Y a ∈ ℂ
26 23 25 mulcld ⊢ φ ∧ a ∈ 0 … deg ⁡ F → coeff ⁡ F ⁡ a ⁢ X Y a ∈ ℂ
27 13 16 26 fsummulc1 ⊢ φ → ∑ a = 0 deg ⁡ F coeff ⁡ F ⁡ a ⁢ X Y a ⁢ Y deg ⁡ F = ∑ a = 0 deg ⁡ F coeff ⁡ F ⁡ a ⁢ X Y a ⁢ Y deg ⁡ F
28 12 27 eqtrd ⊢ φ → F ⁡ X Y ⁢ Y deg ⁡ F = ∑ a = 0 deg ⁡ F coeff ⁡ F ⁡ a ⁢ X Y a ⁢ Y deg ⁡ F
29 5 adantr ⊢ φ ∧ a ∈ 0 … deg ⁡ F → Y ∈ ℂ
30 15 adantr ⊢ φ ∧ a ∈ 0 … deg ⁡ F → deg ⁡ F ∈ ℕ 0
31 29 30 expcld ⊢ φ ∧ a ∈ 0 … deg ⁡ F → Y deg ⁡ F ∈ ℂ
32 23 25 31 mulassd ⊢ φ ∧ a ∈ 0 … deg ⁡ F → coeff ⁡ F ⁡ a ⁢ X Y a ⁢ Y deg ⁡ F = coeff ⁡ F ⁡ a ⁢ X Y a ⁢ Y deg ⁡ F
33 2 adantr ⊢ φ ∧ a ∈ 0 … deg ⁡ F → X ∈ ℤ
34 33 zcnd ⊢ φ ∧ a ∈ 0 … deg ⁡ F → X ∈ ℂ
35 6 adantr ⊢ φ ∧ a ∈ 0 … deg ⁡ F → Y ≠ 0
36 20 adantl ⊢ φ ∧ a ∈ 0 … deg ⁡ F → a ∈ ℕ 0
37 34 29 35 36 expdivd ⊢ φ ∧ a ∈ 0 … deg ⁡ F → X Y a = X a Y a
38 37 oveq1d ⊢ φ ∧ a ∈ 0 … deg ⁡ F → X Y a ⁢ Y deg ⁡ F = X a Y a ⁢ Y deg ⁡ F
39 34 36 expcld ⊢ φ ∧ a ∈ 0 … deg ⁡ F → X a ∈ ℂ
40 nnexpcl ⊢ Y ∈ ℕ ∧ a ∈ ℕ 0 → Y a ∈ ℕ
41 3 20 40 syl2an ⊢ φ ∧ a ∈ 0 … deg ⁡ F → Y a ∈ ℕ
42 41 nncnd ⊢ φ ∧ a ∈ 0 … deg ⁡ F → Y a ∈ ℂ
43 41 nnne0d ⊢ φ ∧ a ∈ 0 … deg ⁡ F → Y a ≠ 0
44 39 42 31 43 div13d ⊢ φ ∧ a ∈ 0 … deg ⁡ F → X a Y a ⁢ Y deg ⁡ F = Y deg ⁡ F Y a ⁢ X a
45 38 44 eqtrd ⊢ φ ∧ a ∈ 0 … deg ⁡ F → X Y a ⁢ Y deg ⁡ F = Y deg ⁡ F Y a ⁢ X a
46 elfzelz ⊢ a ∈ 0 … deg ⁡ F → a ∈ ℤ
47 46 adantl ⊢ φ ∧ a ∈ 0 … deg ⁡ F → a ∈ ℤ
48 30 nn0zd ⊢ φ ∧ a ∈ 0 … deg ⁡ F → deg ⁡ F ∈ ℤ
49 29 35 47 48 expsubd ⊢ φ ∧ a ∈ 0 … deg ⁡ F → Y deg ⁡ F − a = Y deg ⁡ F Y a
50 3 adantr ⊢ φ ∧ a ∈ 0 … deg ⁡ F → Y ∈ ℕ
51 50 nnzd ⊢ φ ∧ a ∈ 0 … deg ⁡ F → Y ∈ ℤ
52 fznn0sub ⊢ a ∈ 0 … deg ⁡ F → deg ⁡ F − a ∈ ℕ 0
53 52 adantl ⊢ φ ∧ a ∈ 0 … deg ⁡ F → deg ⁡ F − a ∈ ℕ 0
54 zexpcl ⊢ Y ∈ ℤ ∧ deg ⁡ F − a ∈ ℕ 0 → Y deg ⁡ F − a ∈ ℤ
55 51 53 54 syl2anc ⊢ φ ∧ a ∈ 0 … deg ⁡ F → Y deg ⁡ F − a ∈ ℤ
56 49 55 eqeltrrd ⊢ φ ∧ a ∈ 0 … deg ⁡ F → Y deg ⁡ F Y a ∈ ℤ
57 zexpcl ⊢ X ∈ ℤ ∧ a ∈ ℕ 0 → X a ∈ ℤ
58 2 20 57 syl2an ⊢ φ ∧ a ∈ 0 … deg ⁡ F → X a ∈ ℤ
59 56 58 zmulcld ⊢ φ ∧ a ∈ 0 … deg ⁡ F → Y deg ⁡ F Y a ⁢ X a ∈ ℤ
60 45 59 eqeltrd ⊢ φ ∧ a ∈ 0 … deg ⁡ F → X Y a ⁢ Y deg ⁡ F ∈ ℤ
61 22 60 zmulcld ⊢ φ ∧ a ∈ 0 … deg ⁡ F → coeff ⁡ F ⁡ a ⁢ X Y a ⁢ Y deg ⁡ F ∈ ℤ
62 32 61 eqeltrd ⊢ φ ∧ a ∈ 0 … deg ⁡ F → coeff ⁡ F ⁡ a ⁢ X Y a ⁢ Y deg ⁡ F ∈ ℤ
63 13 62 fsumzcl ⊢ φ → ∑ a = 0 deg ⁡ F coeff ⁡ F ⁡ a ⁢ X Y a ⁢ Y deg ⁡ F ∈ ℤ
64 28 63 eqeltrd ⊢ φ → F ⁡ X Y ⁢ Y deg ⁡ F ∈ ℤ