Metamath Proof Explorer


Theorem dchrvmasumlem3

Description: Lemma for dchrvmasum . (Contributed by Mario Carneiro, 3-May-2016)

Ref Expression
Hypotheses rpvmasum.z ⊢ Z = ℤ/Nℤ
rpvmasum.l ⊢ L = ℤRHom ⁡ Z
rpvmasum.a ⊢ φ → N ∈ ℕ
rpvmasum.g ⊢ G = DChr ⁡ N
rpvmasum.d ⊢ D = Base G
rpvmasum.1 ⊢ 1 ˙ = 0 G
dchrisum.b ⊢ φ → X ∈ D
dchrisum.n1 ⊢ φ → X ≠ 1 ˙
dchrvmasum.f ⊢ φ ∧ m ∈ ℝ + → F ∈ ℂ
dchrvmasum.g ⊢ m = x d → F = K
dchrvmasum.c ⊢ φ → C ∈ 0 +∞
dchrvmasum.t ⊢ φ → T ∈ ℂ
dchrvmasum.1 ⊢ φ ∧ m ∈ 3 +∞ → F − T ≤ C ⁢ log ⁡ m m
dchrvmasum.r ⊢ φ → R ∈ ℝ
dchrvmasum.2 ⊢ φ → ∀ m ∈ 1 3 F − T ≤ R
Assertion dchrvmasumlem3 ⊢ φ → x ∈ ℝ + ⟼ ∑ d = 1 x X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T ∈ 𝑂⁡1

Proof

Step Hyp Ref Expression
1 rpvmasum.z ⊢ Z = ℤ/Nℤ
2 rpvmasum.l ⊢ L = ℤRHom ⁡ Z
3 rpvmasum.a ⊢ φ → N ∈ ℕ
4 rpvmasum.g ⊢ G = DChr ⁡ N
5 rpvmasum.d ⊢ D = Base G
6 rpvmasum.1 ⊢ 1 ˙ = 0 G
7 dchrisum.b ⊢ φ → X ∈ D
8 dchrisum.n1 ⊢ φ → X ≠ 1 ˙
9 dchrvmasum.f ⊢ φ ∧ m ∈ ℝ + → F ∈ ℂ
10 dchrvmasum.g ⊢ m = x d → F = K
11 dchrvmasum.c ⊢ φ → C ∈ 0 +∞
12 dchrvmasum.t ⊢ φ → T ∈ ℂ
13 dchrvmasum.1 ⊢ φ ∧ m ∈ 3 +∞ → F − T ≤ C ⁢ log ⁡ m m
14 dchrvmasum.r ⊢ φ → R ∈ ℝ
15 dchrvmasum.2 ⊢ φ → ∀ m ∈ 1 3 F − T ≤ R
16 1red ⊢ φ → 1 ∈ ℝ
17 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 dchrvmasumlem2 ⊢ φ → x ∈ ℝ + ⟼ ∑ d = 1 x K − T d ∈ 𝑂⁡1
18 fzfid ⊢ φ ∧ x ∈ ℝ + → 1 … x ∈ Fin
19 10 eleq1d ⊢ m = x d → F ∈ ℂ ↔ K ∈ ℂ
20 9 ralrimiva ⊢ φ → ∀ m ∈ ℝ + F ∈ ℂ
21 20 ad2antrr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∀ m ∈ ℝ + F ∈ ℂ
22 simpr ⊢ φ ∧ x ∈ ℝ + → x ∈ ℝ +
23 elfznn ⊢ d ∈ 1 … x → d ∈ ℕ
24 23 nnrpd ⊢ d ∈ 1 … x → d ∈ ℝ +
25 rpdivcl ⊢ x ∈ ℝ + ∧ d ∈ ℝ + → x d ∈ ℝ +
26 22 24 25 syl2an ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x d ∈ ℝ +
27 19 21 26 rspcdva ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → K ∈ ℂ
28 12 ad2antrr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → T ∈ ℂ
29 27 28 subcld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → K − T ∈ ℂ
30 29 abscld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → K − T ∈ ℝ
31 23 adantl ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → d ∈ ℕ
32 30 31 nndivred ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → K − T d ∈ ℝ
33 18 32 fsumrecl ⊢ φ ∧ x ∈ ℝ + → ∑ d = 1 x K − T d ∈ ℝ
34 7 ad2antrr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ∈ D
35 elfzelz ⊢ d ∈ 1 … x → d ∈ ℤ
36 35 adantl ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → d ∈ ℤ
37 4 1 5 2 34 36 dchrzrhcl ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ⁡ L ⁡ d ∈ ℂ
38 mucl ⊢ d ∈ ℕ → μ ⁡ d ∈ ℤ
39 31 38 syl ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → μ ⁡ d ∈ ℤ
40 39 zred ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → μ ⁡ d ∈ ℝ
41 40 31 nndivred ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → μ ⁡ d d ∈ ℝ
42 41 recnd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → μ ⁡ d d ∈ ℂ
43 37 42 mulcld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ⁡ L ⁡ d ⁢ μ ⁡ d d ∈ ℂ
44 43 29 mulcld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T ∈ ℂ
45 18 44 fsumcl ⊢ φ ∧ x ∈ ℝ + → ∑ d = 1 x X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T ∈ ℂ
46 45 abscld ⊢ φ ∧ x ∈ ℝ + → ∑ d = 1 x X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T ∈ ℝ
47 33 recnd ⊢ φ ∧ x ∈ ℝ + → ∑ d = 1 x K − T d ∈ ℂ
48 47 abscld ⊢ φ ∧ x ∈ ℝ + → ∑ d = 1 x K − T d ∈ ℝ
49 44 abscld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T ∈ ℝ
50 18 49 fsumrecl ⊢ φ ∧ x ∈ ℝ + → ∑ d = 1 x X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T ∈ ℝ
51 18 44 fsumabs ⊢ φ ∧ x ∈ ℝ + → ∑ d = 1 x X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T ≤ ∑ d = 1 x X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T
52 43 abscld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ⁡ L ⁡ d ⁢ μ ⁡ d d ∈ ℝ
53 31 nnrecred ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 1 d ∈ ℝ
54 29 absge0d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 0 ≤ K − T
55 37 42 absmuld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ⁡ L ⁡ d ⁢ μ ⁡ d d = X ⁡ L ⁡ d ⁢ μ ⁡ d d
56 37 abscld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ⁡ L ⁡ d ∈ ℝ
57 1red ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 1 ∈ ℝ
58 42 abscld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → μ ⁡ d d ∈ ℝ
59 37 absge0d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 0 ≤ X ⁡ L ⁡ d
60 42 absge0d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 0 ≤ μ ⁡ d d
61 eqid ⊢ Base Z = Base Z
62 3 nnnn0d ⊢ φ → N ∈ ℕ 0
63 1 61 2 znzrhfo ⊢ N ∈ ℕ 0 → L : ℤ ⟶ onto Base Z
64 62 63 syl ⊢ φ → L : ℤ ⟶ onto Base Z
65 fof ⊢ L : ℤ ⟶ onto Base Z → L : ℤ ⟶ Base Z
66 64 65 syl ⊢ φ → L : ℤ ⟶ Base Z
67 66 ad2antrr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → L : ℤ ⟶ Base Z
68 67 36 ffvelcdmd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → L ⁡ d ∈ Base Z
69 4 5 1 61 34 68 dchrabs2 ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ⁡ L ⁡ d ≤ 1
70 40 recnd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → μ ⁡ d ∈ ℂ
71 31 nncnd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → d ∈ ℂ
72 31 nnne0d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → d ≠ 0
73 70 71 72 absdivd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → μ ⁡ d d = μ ⁡ d d
74 31 nnrpd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → d ∈ ℝ +
75 74 rprege0d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → d ∈ ℝ ∧ 0 ≤ d
76 absid ⊢ d ∈ ℝ ∧ 0 ≤ d → d = d
77 75 76 syl ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → d = d
78 77 oveq2d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → μ ⁡ d d = μ ⁡ d d
79 73 78 eqtrd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → μ ⁡ d d = μ ⁡ d d
80 70 abscld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → μ ⁡ d ∈ ℝ
81 mule1 ⊢ d ∈ ℕ → μ ⁡ d ≤ 1
82 31 81 syl ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → μ ⁡ d ≤ 1
83 80 57 74 82 lediv1dd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → μ ⁡ d d ≤ 1 d
84 79 83 eqbrtrd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → μ ⁡ d d ≤ 1 d
85 56 57 58 53 59 60 69 84 lemul12ad ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ⁡ L ⁡ d ⁢ μ ⁡ d d ≤ 1 ⁢ 1 d
86 53 recnd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 1 d ∈ ℂ
87 86 mullidd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 1 ⁢ 1 d = 1 d
88 85 87 breqtrd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ⁡ L ⁡ d ⁢ μ ⁡ d d ≤ 1 d
89 55 88 eqbrtrd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ⁡ L ⁡ d ⁢ μ ⁡ d d ≤ 1 d
90 52 53 30 54 89 lemul1ad ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T ≤ 1 d ⁢ K − T
91 43 29 absmuld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T = X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T
92 30 recnd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → K − T ∈ ℂ
93 92 71 72 divrec2d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → K − T d = 1 d ⁢ K − T
94 90 91 93 3brtr4d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T ≤ K − T d
95 18 49 32 94 fsumle ⊢ φ ∧ x ∈ ℝ + → ∑ d = 1 x X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T ≤ ∑ d = 1 x K − T d
96 46 50 33 51 95 letrd ⊢ φ ∧ x ∈ ℝ + → ∑ d = 1 x X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T ≤ ∑ d = 1 x K − T d
97 33 leabsd ⊢ φ ∧ x ∈ ℝ + → ∑ d = 1 x K − T d ≤ ∑ d = 1 x K − T d
98 46 33 48 96 97 letrd ⊢ φ ∧ x ∈ ℝ + → ∑ d = 1 x X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T ≤ ∑ d = 1 x K − T d
99 98 adantrr ⊢ φ ∧ x ∈ ℝ + ∧ 1 ≤ x → ∑ d = 1 x X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T ≤ ∑ d = 1 x K − T d
100 16 17 33 45 99 o1le ⊢ φ → x ∈ ℝ + ⟼ ∑ d = 1 x X ⁡ L ⁡ d ⁢ μ ⁡ d d ⁢ K − T ∈ 𝑂⁡1