Metamath Proof Explorer


Theorem abscxpbnd

Description: Bound on the absolute value of a complex power. (Contributed by Mario Carneiro, 15-Sep-2014)

Ref Expression
Hypotheses abscxpbnd.1 ⊢ φ → A ∈ ℂ
abscxpbnd.2 ⊢ φ → B ∈ ℂ
abscxpbnd.3 ⊢ φ → 0 ≤ ℜ ⁡ B
abscxpbnd.4 ⊢ φ → M ∈ ℝ
abscxpbnd.5 ⊢ φ → A ≤ M
Assertion abscxpbnd ⊢ φ → A B ≤ M ℜ ⁡ B ⁢ e B ⁢ π

Proof

Step Hyp Ref Expression
1 abscxpbnd.1 ⊢ φ → A ∈ ℂ
2 abscxpbnd.2 ⊢ φ → B ∈ ℂ
3 abscxpbnd.3 ⊢ φ → 0 ≤ ℜ ⁡ B
4 abscxpbnd.4 ⊢ φ → M ∈ ℝ
5 abscxpbnd.5 ⊢ φ → A ≤ M
6 1le1 ⊢ 1 ≤ 1
7 6 a1i ⊢ φ ∧ A = 0 ∧ B = 0 → 1 ≤ 1
8 oveq12 ⊢ A = 0 ∧ B = 0 → A B = 0 0
9 8 adantll ⊢ φ ∧ A = 0 ∧ B = 0 → A B = 0 0
10 0cn ⊢ 0 ∈ ℂ
11 cxp0 ⊢ 0 ∈ ℂ → 0 0 = 1
12 10 11 ax-mp ⊢ 0 0 = 1
13 9 12 eqtrdi ⊢ φ ∧ A = 0 ∧ B = 0 → A B = 1
14 13 fveq2d ⊢ φ ∧ A = 0 ∧ B = 0 → A B = 1
15 abs1 ⊢ 1 = 1
16 14 15 eqtrdi ⊢ φ ∧ A = 0 ∧ B = 0 → A B = 1
17 fveq2 ⊢ B = 0 → ℜ ⁡ B = ℜ ⁡ 0
18 re0 ⊢ ℜ ⁡ 0 = 0
19 17 18 eqtrdi ⊢ B = 0 → ℜ ⁡ B = 0
20 19 oveq2d ⊢ B = 0 → M ℜ ⁡ B = M 0
21 4 recnd ⊢ φ → M ∈ ℂ
22 21 cxp0d ⊢ φ → M 0 = 1
23 22 adantr ⊢ φ ∧ A = 0 → M 0 = 1
24 20 23 sylan9eqr ⊢ φ ∧ A = 0 ∧ B = 0 → M ℜ ⁡ B = 1
25 simpr ⊢ φ ∧ A = 0 ∧ B = 0 → B = 0
26 25 abs00bd ⊢ φ ∧ A = 0 ∧ B = 0 → B = 0
27 26 oveq1d ⊢ φ ∧ A = 0 ∧ B = 0 → B ⁢ π = 0 ⋅ π
28 picn ⊢ π ∈ ℂ
29 28 mul02i ⊢ 0 ⋅ π = 0
30 27 29 eqtrdi ⊢ φ ∧ A = 0 ∧ B = 0 → B ⁢ π = 0
31 30 fveq2d ⊢ φ ∧ A = 0 ∧ B = 0 → e B ⁢ π = e 0
32 ef0 ⊢ e 0 = 1
33 31 32 eqtrdi ⊢ φ ∧ A = 0 ∧ B = 0 → e B ⁢ π = 1
34 24 33 oveq12d ⊢ φ ∧ A = 0 ∧ B = 0 → M ℜ ⁡ B ⁢ e B ⁢ π = 1 ⋅ 1
35 1t1e1 ⊢ 1 ⋅ 1 = 1
36 34 35 eqtrdi ⊢ φ ∧ A = 0 ∧ B = 0 → M ℜ ⁡ B ⁢ e B ⁢ π = 1
37 7 16 36 3brtr4d ⊢ φ ∧ A = 0 ∧ B = 0 → A B ≤ M ℜ ⁡ B ⁢ e B ⁢ π
38 simplr ⊢ φ ∧ A = 0 ∧ B ≠ 0 → A = 0
39 38 oveq1d ⊢ φ ∧ A = 0 ∧ B ≠ 0 → A B = 0 B
40 2 adantr ⊢ φ ∧ A = 0 → B ∈ ℂ
41 0cxp ⊢ B ∈ ℂ ∧ B ≠ 0 → 0 B = 0
42 40 41 sylan ⊢ φ ∧ A = 0 ∧ B ≠ 0 → 0 B = 0
43 39 42 eqtrd ⊢ φ ∧ A = 0 ∧ B ≠ 0 → A B = 0
44 43 abs00bd ⊢ φ ∧ A = 0 ∧ B ≠ 0 → A B = 0
45 0red ⊢ φ → 0 ∈ ℝ
46 1 abscld ⊢ φ → A ∈ ℝ
47 1 absge0d ⊢ φ → 0 ≤ A
48 45 46 4 47 5 letrd ⊢ φ → 0 ≤ M
49 2 recld ⊢ φ → ℜ ⁡ B ∈ ℝ
50 4 48 49 recxpcld ⊢ φ → M ℜ ⁡ B ∈ ℝ
51 50 ad2antrr ⊢ φ ∧ A = 0 ∧ B ≠ 0 → M ℜ ⁡ B ∈ ℝ
52 2 abscld ⊢ φ → B ∈ ℝ
53 52 ad2antrr ⊢ φ ∧ A = 0 ∧ B ≠ 0 → B ∈ ℝ
54 pire ⊢ π ∈ ℝ
55 remulcl ⊢ B ∈ ℝ ∧ π ∈ ℝ → B ⁢ π ∈ ℝ
56 53 54 55 sylancl ⊢ φ ∧ A = 0 ∧ B ≠ 0 → B ⁢ π ∈ ℝ
57 56 reefcld ⊢ φ ∧ A = 0 ∧ B ≠ 0 → e B ⁢ π ∈ ℝ
58 4 48 49 cxpge0d ⊢ φ → 0 ≤ M ℜ ⁡ B
59 58 ad2antrr ⊢ φ ∧ A = 0 ∧ B ≠ 0 → 0 ≤ M ℜ ⁡ B
60 56 rpefcld ⊢ φ ∧ A = 0 ∧ B ≠ 0 → e B ⁢ π ∈ ℝ +
61 60 rpge0d ⊢ φ ∧ A = 0 ∧ B ≠ 0 → 0 ≤ e B ⁢ π
62 51 57 59 61 mulge0d ⊢ φ ∧ A = 0 ∧ B ≠ 0 → 0 ≤ M ℜ ⁡ B ⁢ e B ⁢ π
63 44 62 eqbrtrd ⊢ φ ∧ A = 0 ∧ B ≠ 0 → A B ≤ M ℜ ⁡ B ⁢ e B ⁢ π
64 37 63 pm2.61dane ⊢ φ ∧ A = 0 → A B ≤ M ℜ ⁡ B ⁢ e B ⁢ π
65 1 adantr ⊢ φ ∧ A ≠ 0 → A ∈ ℂ
66 simpr ⊢ φ ∧ A ≠ 0 → A ≠ 0
67 2 adantr ⊢ φ ∧ A ≠ 0 → B ∈ ℂ
68 65 66 67 cxpefd ⊢ φ ∧ A ≠ 0 → A B = e B ⁢ log ⁡ A
69 68 fveq2d ⊢ φ ∧ A ≠ 0 → A B = e B ⁢ log ⁡ A
70 logcl ⊢ A ∈ ℂ ∧ A ≠ 0 → log ⁡ A ∈ ℂ
71 1 70 sylan ⊢ φ ∧ A ≠ 0 → log ⁡ A ∈ ℂ
72 67 71 mulcld ⊢ φ ∧ A ≠ 0 → B ⁢ log ⁡ A ∈ ℂ
73 absef ⊢ B ⁢ log ⁡ A ∈ ℂ → e B ⁢ log ⁡ A = e ℜ ⁡ B ⁢ log ⁡ A
74 72 73 syl ⊢ φ ∧ A ≠ 0 → e B ⁢ log ⁡ A = e ℜ ⁡ B ⁢ log ⁡ A
75 67 recld ⊢ φ ∧ A ≠ 0 → ℜ ⁡ B ∈ ℝ
76 71 recld ⊢ φ ∧ A ≠ 0 → ℜ ⁡ log ⁡ A ∈ ℝ
77 75 76 remulcld ⊢ φ ∧ A ≠ 0 → ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A ∈ ℝ
78 77 recnd ⊢ φ ∧ A ≠ 0 → ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A ∈ ℂ
79 67 imcld ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ∈ ℝ
80 71 imcld ⊢ φ ∧ A ≠ 0 → ℑ ⁡ log ⁡ A ∈ ℝ
81 80 renegcld ⊢ φ ∧ A ≠ 0 → − ℑ ⁡ log ⁡ A ∈ ℝ
82 79 81 remulcld ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ∈ ℝ
83 82 recnd ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ∈ ℂ
84 efadd ⊢ ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A ∈ ℂ ∧ ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ∈ ℂ → e ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A + ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A = e ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A ⁢ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A
85 78 83 84 syl2anc ⊢ φ ∧ A ≠ 0 → e ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A + ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A = e ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A ⁢ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A
86 79 80 remulcld ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ⁢ ℑ ⁡ log ⁡ A ∈ ℝ
87 86 recnd ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ⁢ ℑ ⁡ log ⁡ A ∈ ℂ
88 78 87 negsubd ⊢ φ ∧ A ≠ 0 → ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A + − ℑ ⁡ B ⁢ ℑ ⁡ log ⁡ A = ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A − ℑ ⁡ B ⁢ ℑ ⁡ log ⁡ A
89 79 recnd ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ∈ ℂ
90 80 recnd ⊢ φ ∧ A ≠ 0 → ℑ ⁡ log ⁡ A ∈ ℂ
91 89 90 mulneg2d ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A = − ℑ ⁡ B ⁢ ℑ ⁡ log ⁡ A
92 91 oveq2d ⊢ φ ∧ A ≠ 0 → ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A + ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A = ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A + − ℑ ⁡ B ⁢ ℑ ⁡ log ⁡ A
93 67 71 remuld ⊢ φ ∧ A ≠ 0 → ℜ ⁡ B ⁢ log ⁡ A = ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A − ℑ ⁡ B ⁢ ℑ ⁡ log ⁡ A
94 88 92 93 3eqtr4d ⊢ φ ∧ A ≠ 0 → ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A + ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A = ℜ ⁡ B ⁢ log ⁡ A
95 94 fveq2d ⊢ φ ∧ A ≠ 0 → e ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A + ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A = e ℜ ⁡ B ⁢ log ⁡ A
96 relog ⊢ A ∈ ℂ ∧ A ≠ 0 → ℜ ⁡ log ⁡ A = log ⁡ A
97 1 96 sylan ⊢ φ ∧ A ≠ 0 → ℜ ⁡ log ⁡ A = log ⁡ A
98 97 oveq2d ⊢ φ ∧ A ≠ 0 → ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A = ℜ ⁡ B ⁢ log ⁡ A
99 98 fveq2d ⊢ φ ∧ A ≠ 0 → e ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A = e ℜ ⁡ B ⁢ log ⁡ A
100 46 recnd ⊢ φ → A ∈ ℂ
101 100 adantr ⊢ φ ∧ A ≠ 0 → A ∈ ℂ
102 1 abs00ad ⊢ φ → A = 0 ↔ A = 0
103 102 necon3bid ⊢ φ → A ≠ 0 ↔ A ≠ 0
104 103 biimpar ⊢ φ ∧ A ≠ 0 → A ≠ 0
105 75 recnd ⊢ φ ∧ A ≠ 0 → ℜ ⁡ B ∈ ℂ
106 101 104 105 cxpefd ⊢ φ ∧ A ≠ 0 → A ℜ ⁡ B = e ℜ ⁡ B ⁢ log ⁡ A
107 99 106 eqtr4d ⊢ φ ∧ A ≠ 0 → e ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A = A ℜ ⁡ B
108 107 oveq1d ⊢ φ ∧ A ≠ 0 → e ℜ ⁡ B ⁢ ℜ ⁡ log ⁡ A ⁢ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A = A ℜ ⁡ B ⁢ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A
109 85 95 108 3eqtr3d ⊢ φ ∧ A ≠ 0 → e ℜ ⁡ B ⁢ log ⁡ A = A ℜ ⁡ B ⁢ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A
110 69 74 109 3eqtrd ⊢ φ ∧ A ≠ 0 → A B = A ℜ ⁡ B ⁢ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A
111 65 abscld ⊢ φ ∧ A ≠ 0 → A ∈ ℝ
112 65 absge0d ⊢ φ ∧ A ≠ 0 → 0 ≤ A
113 111 112 75 recxpcld ⊢ φ ∧ A ≠ 0 → A ℜ ⁡ B ∈ ℝ
114 82 reefcld ⊢ φ ∧ A ≠ 0 → e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ∈ ℝ
115 113 114 remulcld ⊢ φ ∧ A ≠ 0 → A ℜ ⁡ B ⁢ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ∈ ℝ
116 50 adantr ⊢ φ ∧ A ≠ 0 → M ℜ ⁡ B ∈ ℝ
117 116 114 remulcld ⊢ φ ∧ A ≠ 0 → M ℜ ⁡ B ⁢ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ∈ ℝ
118 52 54 55 sylancl ⊢ φ → B ⁢ π ∈ ℝ
119 118 reefcld ⊢ φ → e B ⁢ π ∈ ℝ
120 119 adantr ⊢ φ ∧ A ≠ 0 → e B ⁢ π ∈ ℝ
121 116 120 remulcld ⊢ φ ∧ A ≠ 0 → M ℜ ⁡ B ⁢ e B ⁢ π ∈ ℝ
122 82 rpefcld ⊢ φ ∧ A ≠ 0 → e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ∈ ℝ +
123 122 rpge0d ⊢ φ ∧ A ≠ 0 → 0 ≤ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A
124 4 adantr ⊢ φ ∧ A ≠ 0 → M ∈ ℝ
125 3 adantr ⊢ φ ∧ A ≠ 0 → 0 ≤ ℜ ⁡ B
126 5 adantr ⊢ φ ∧ A ≠ 0 → A ≤ M
127 111 112 124 75 125 126 cxple2ad ⊢ φ ∧ A ≠ 0 → A ℜ ⁡ B ≤ M ℜ ⁡ B
128 113 116 114 123 127 lemul1ad ⊢ φ ∧ A ≠ 0 → A ℜ ⁡ B ⁢ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ≤ M ℜ ⁡ B ⁢ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A
129 58 adantr ⊢ φ ∧ A ≠ 0 → 0 ≤ M ℜ ⁡ B
130 89 abscld ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ∈ ℝ
131 81 recnd ⊢ φ ∧ A ≠ 0 → − ℑ ⁡ log ⁡ A ∈ ℂ
132 131 abscld ⊢ φ ∧ A ≠ 0 → − ℑ ⁡ log ⁡ A ∈ ℝ
133 130 132 remulcld ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ∈ ℝ
134 118 adantr ⊢ φ ∧ A ≠ 0 → B ⁢ π ∈ ℝ
135 82 leabsd ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ≤ ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A
136 89 131 absmuld ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A = ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A
137 135 136 breqtrd ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ≤ ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A
138 67 abscld ⊢ φ ∧ A ≠ 0 → B ∈ ℝ
139 138 132 remulcld ⊢ φ ∧ A ≠ 0 → B ⁢ − ℑ ⁡ log ⁡ A ∈ ℝ
140 131 absge0d ⊢ φ ∧ A ≠ 0 → 0 ≤ − ℑ ⁡ log ⁡ A
141 absimle ⊢ B ∈ ℂ → ℑ ⁡ B ≤ B
142 67 141 syl ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ≤ B
143 130 138 132 140 142 lemul1ad ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ≤ B ⁢ − ℑ ⁡ log ⁡ A
144 54 a1i ⊢ φ ∧ A ≠ 0 → π ∈ ℝ
145 67 absge0d ⊢ φ ∧ A ≠ 0 → 0 ≤ B
146 90 absnegd ⊢ φ ∧ A ≠ 0 → − ℑ ⁡ log ⁡ A = ℑ ⁡ log ⁡ A
147 logimcl ⊢ A ∈ ℂ ∧ A ≠ 0 → − π < ℑ ⁡ log ⁡ A ∧ ℑ ⁡ log ⁡ A ≤ π
148 1 147 sylan ⊢ φ ∧ A ≠ 0 → − π < ℑ ⁡ log ⁡ A ∧ ℑ ⁡ log ⁡ A ≤ π
149 148 simpld ⊢ φ ∧ A ≠ 0 → − π < ℑ ⁡ log ⁡ A
150 54 renegcli ⊢ − π ∈ ℝ
151 ltle ⊢ − π ∈ ℝ ∧ ℑ ⁡ log ⁡ A ∈ ℝ → − π < ℑ ⁡ log ⁡ A → − π ≤ ℑ ⁡ log ⁡ A
152 150 80 151 sylancr ⊢ φ ∧ A ≠ 0 → − π < ℑ ⁡ log ⁡ A → − π ≤ ℑ ⁡ log ⁡ A
153 149 152 mpd ⊢ φ ∧ A ≠ 0 → − π ≤ ℑ ⁡ log ⁡ A
154 148 simprd ⊢ φ ∧ A ≠ 0 → ℑ ⁡ log ⁡ A ≤ π
155 absle ⊢ ℑ ⁡ log ⁡ A ∈ ℝ ∧ π ∈ ℝ → ℑ ⁡ log ⁡ A ≤ π ↔ − π ≤ ℑ ⁡ log ⁡ A ∧ ℑ ⁡ log ⁡ A ≤ π
156 80 54 155 sylancl ⊢ φ ∧ A ≠ 0 → ℑ ⁡ log ⁡ A ≤ π ↔ − π ≤ ℑ ⁡ log ⁡ A ∧ ℑ ⁡ log ⁡ A ≤ π
157 153 154 156 mpbir2and ⊢ φ ∧ A ≠ 0 → ℑ ⁡ log ⁡ A ≤ π
158 146 157 eqbrtrd ⊢ φ ∧ A ≠ 0 → − ℑ ⁡ log ⁡ A ≤ π
159 132 144 138 145 158 lemul2ad ⊢ φ ∧ A ≠ 0 → B ⁢ − ℑ ⁡ log ⁡ A ≤ B ⁢ π
160 133 139 134 143 159 letrd ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ≤ B ⁢ π
161 82 133 134 137 160 letrd ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ≤ B ⁢ π
162 efle ⊢ ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ∈ ℝ ∧ B ⁢ π ∈ ℝ → ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ≤ B ⁢ π ↔ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ≤ e B ⁢ π
163 82 134 162 syl2anc ⊢ φ ∧ A ≠ 0 → ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ≤ B ⁢ π ↔ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ≤ e B ⁢ π
164 161 163 mpbid ⊢ φ ∧ A ≠ 0 → e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ≤ e B ⁢ π
165 114 120 116 129 164 lemul2ad ⊢ φ ∧ A ≠ 0 → M ℜ ⁡ B ⁢ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ≤ M ℜ ⁡ B ⁢ e B ⁢ π
166 115 117 121 128 165 letrd ⊢ φ ∧ A ≠ 0 → A ℜ ⁡ B ⁢ e ℑ ⁡ B ⁢ − ℑ ⁡ log ⁡ A ≤ M ℜ ⁡ B ⁢ e B ⁢ π
167 110 166 eqbrtrd ⊢ φ ∧ A ≠ 0 → A B ≤ M ℜ ⁡ B ⁢ e B ⁢ π
168 64 167 pm2.61dane ⊢ φ → A B ≤ M ℜ ⁡ B ⁢ e B ⁢ π