Proof of Theorem abslt
| Step | Hyp | Ref
 | Expression | 
| 1 |   | simpll 527 | 
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧
(abs‘𝐴) < 𝐵) → 𝐴 ∈ ℝ) | 
| 2 | 1 | renegcld 8406 | 
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧
(abs‘𝐴) < 𝐵) → -𝐴 ∈ ℝ) | 
| 3 | 1 | recnd 8055 | 
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧
(abs‘𝐴) < 𝐵) → 𝐴 ∈ ℂ) | 
| 4 |   | abscl 11216 | 
. . . . . 6
⊢ (𝐴 ∈ ℂ →
(abs‘𝐴) ∈
ℝ) | 
| 5 | 3, 4 | syl 14 | 
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧
(abs‘𝐴) < 𝐵) → (abs‘𝐴) ∈
ℝ) | 
| 6 |   | simplr 528 | 
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧
(abs‘𝐴) < 𝐵) → 𝐵 ∈ ℝ) | 
| 7 |   | leabs 11239 | 
. . . . . . 7
⊢ (-𝐴 ∈ ℝ → -𝐴 ≤ (abs‘-𝐴)) | 
| 8 | 2, 7 | syl 14 | 
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧
(abs‘𝐴) < 𝐵) → -𝐴 ≤ (abs‘-𝐴)) | 
| 9 |   | absneg 11215 | 
. . . . . . 7
⊢ (𝐴 ∈ ℂ →
(abs‘-𝐴) =
(abs‘𝐴)) | 
| 10 | 3, 9 | syl 14 | 
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧
(abs‘𝐴) < 𝐵) → (abs‘-𝐴) = (abs‘𝐴)) | 
| 11 | 8, 10 | breqtrd 4059 | 
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧
(abs‘𝐴) < 𝐵) → -𝐴 ≤ (abs‘𝐴)) | 
| 12 |   | simpr 110 | 
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧
(abs‘𝐴) < 𝐵) → (abs‘𝐴) < 𝐵) | 
| 13 | 2, 5, 6, 11, 12 | lelttrd 8151 | 
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧
(abs‘𝐴) < 𝐵) → -𝐴 < 𝐵) | 
| 14 |   | leabs 11239 | 
. . . . . 6
⊢ (𝐴 ∈ ℝ → 𝐴 ≤ (abs‘𝐴)) | 
| 15 | 14 | ad2antrr 488 | 
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧
(abs‘𝐴) < 𝐵) → 𝐴 ≤ (abs‘𝐴)) | 
| 16 | 1, 5, 6, 15, 12 | lelttrd 8151 | 
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧
(abs‘𝐴) < 𝐵) → 𝐴 < 𝐵) | 
| 17 | 13, 16 | jca 306 | 
. . 3
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧
(abs‘𝐴) < 𝐵) → (-𝐴 < 𝐵 ∧ 𝐴 < 𝐵)) | 
| 18 |   | simpll 527 | 
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (-𝐴 < 𝐵 ∧ 𝐴 < 𝐵)) → 𝐴 ∈ ℝ) | 
| 19 |   | simpl 109 | 
. . . . . . . . 9
⊢ ((𝐴 ∈ ℝ ∧ 𝐴 < (abs‘𝐴)) → 𝐴 ∈ ℝ) | 
| 20 | 19 | recnd 8055 | 
. . . . . . . 8
⊢ ((𝐴 ∈ ℝ ∧ 𝐴 < (abs‘𝐴)) → 𝐴 ∈ ℂ) | 
| 21 | 20, 9 | syl 14 | 
. . . . . . 7
⊢ ((𝐴 ∈ ℝ ∧ 𝐴 < (abs‘𝐴)) → (abs‘-𝐴) = (abs‘𝐴)) | 
| 22 | 19 | renegcld 8406 | 
. . . . . . . 8
⊢ ((𝐴 ∈ ℝ ∧ 𝐴 < (abs‘𝐴)) → -𝐴 ∈ ℝ) | 
| 23 |   | 0red 8027 | 
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℝ ∧ 𝐴 < (abs‘𝐴)) → 0 ∈
ℝ) | 
| 24 |   | ltabs 11252 | 
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℝ ∧ 𝐴 < (abs‘𝐴)) → 𝐴 < 0) | 
| 25 | 19, 23, 24 | ltled 8145 | 
. . . . . . . . 9
⊢ ((𝐴 ∈ ℝ ∧ 𝐴 < (abs‘𝐴)) → 𝐴 ≤ 0) | 
| 26 | 19 | le0neg1d 8544 | 
. . . . . . . . 9
⊢ ((𝐴 ∈ ℝ ∧ 𝐴 < (abs‘𝐴)) → (𝐴 ≤ 0 ↔ 0 ≤ -𝐴)) | 
| 27 | 25, 26 | mpbid 147 | 
. . . . . . . 8
⊢ ((𝐴 ∈ ℝ ∧ 𝐴 < (abs‘𝐴)) → 0 ≤ -𝐴) | 
| 28 |   | absid 11236 | 
. . . . . . . 8
⊢ ((-𝐴 ∈ ℝ ∧ 0 ≤
-𝐴) →
(abs‘-𝐴) = -𝐴) | 
| 29 | 22, 27, 28 | syl2anc 411 | 
. . . . . . 7
⊢ ((𝐴 ∈ ℝ ∧ 𝐴 < (abs‘𝐴)) → (abs‘-𝐴) = -𝐴) | 
| 30 | 21, 29 | eqtr3d 2231 | 
. . . . . 6
⊢ ((𝐴 ∈ ℝ ∧ 𝐴 < (abs‘𝐴)) → (abs‘𝐴) = -𝐴) | 
| 31 | 18, 30 | sylan 283 | 
. . . . 5
⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (-𝐴 < 𝐵 ∧ 𝐴 < 𝐵)) ∧ 𝐴 < (abs‘𝐴)) → (abs‘𝐴) = -𝐴) | 
| 32 |   | simplrl 535 | 
. . . . 5
⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (-𝐴 < 𝐵 ∧ 𝐴 < 𝐵)) ∧ 𝐴 < (abs‘𝐴)) → -𝐴 < 𝐵) | 
| 33 | 31, 32 | eqbrtrd 4055 | 
. . . 4
⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (-𝐴 < 𝐵 ∧ 𝐴 < 𝐵)) ∧ 𝐴 < (abs‘𝐴)) → (abs‘𝐴) < 𝐵) | 
| 34 |   | simpr 110 | 
. . . 4
⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (-𝐴 < 𝐵 ∧ 𝐴 < 𝐵)) ∧ (abs‘𝐴) < 𝐵) → (abs‘𝐴) < 𝐵) | 
| 35 |   | simprr 531 | 
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (-𝐴 < 𝐵 ∧ 𝐴 < 𝐵)) → 𝐴 < 𝐵) | 
| 36 |   | simplr 528 | 
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (-𝐴 < 𝐵 ∧ 𝐴 < 𝐵)) → 𝐵 ∈ ℝ) | 
| 37 | 18 | recnd 8055 | 
. . . . . . 7
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (-𝐴 < 𝐵 ∧ 𝐴 < 𝐵)) → 𝐴 ∈ ℂ) | 
| 38 | 37, 4 | syl 14 | 
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (-𝐴 < 𝐵 ∧ 𝐴 < 𝐵)) → (abs‘𝐴) ∈ ℝ) | 
| 39 |   | axltwlin 8094 | 
. . . . . 6
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧
(abs‘𝐴) ∈
ℝ) → (𝐴 <
𝐵 → (𝐴 < (abs‘𝐴) ∨ (abs‘𝐴) < 𝐵))) | 
| 40 | 18, 36, 38, 39 | syl3anc 1249 | 
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (-𝐴 < 𝐵 ∧ 𝐴 < 𝐵)) → (𝐴 < 𝐵 → (𝐴 < (abs‘𝐴) ∨ (abs‘𝐴) < 𝐵))) | 
| 41 | 35, 40 | mpd 13 | 
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (-𝐴 < 𝐵 ∧ 𝐴 < 𝐵)) → (𝐴 < (abs‘𝐴) ∨ (abs‘𝐴) < 𝐵)) | 
| 42 | 33, 34, 41 | mpjaodan 799 | 
. . 3
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (-𝐴 < 𝐵 ∧ 𝐴 < 𝐵)) → (abs‘𝐴) < 𝐵) | 
| 43 | 17, 42 | impbida 596 | 
. 2
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) →
((abs‘𝐴) < 𝐵 ↔ (-𝐴 < 𝐵 ∧ 𝐴 < 𝐵))) | 
| 44 |   | ltnegcon1 8490 | 
. . 3
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (-𝐴 < 𝐵 ↔ -𝐵 < 𝐴)) | 
| 45 | 44 | anbi1d 465 | 
. 2
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((-𝐴 < 𝐵 ∧ 𝐴 < 𝐵) ↔ (-𝐵 < 𝐴 ∧ 𝐴 < 𝐵))) | 
| 46 | 43, 45 | bitrd 188 | 
1
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) →
((abs‘𝐴) < 𝐵 ↔ (-𝐵 < 𝐴 ∧ 𝐴 < 𝐵))) |