Proof of Theorem ltdivp1i
Step | Hyp | Ref
| Expression |
1 | | ltplus1.1 |
. . . 4
⊢ 𝐴 ∈ ℝ |
2 | | ltmul1.3 |
. . . . 5
⊢ 𝐶 ∈ ℝ |
3 | | 1re 10963 |
. . . . . 6
⊢ 1 ∈
ℝ |
4 | 2, 3 | readdcli 10978 |
. . . . 5
⊢ (𝐶 + 1) ∈
ℝ |
5 | 2 | ltp1i 11867 |
. . . . . . 7
⊢ 𝐶 < (𝐶 + 1) |
6 | 2, 4, 5 | ltleii 11086 |
. . . . . 6
⊢ 𝐶 ≤ (𝐶 + 1) |
7 | | lemul2a 11818 |
. . . . . 6
⊢ (((𝐶 ∈ ℝ ∧ (𝐶 + 1) ∈ ℝ ∧
(𝐴 ∈ ℝ ∧ 0
≤ 𝐴)) ∧ 𝐶 ≤ (𝐶 + 1)) → (𝐴 · 𝐶) ≤ (𝐴 · (𝐶 + 1))) |
8 | 6, 7 | mpan2 688 |
. . . . 5
⊢ ((𝐶 ∈ ℝ ∧ (𝐶 + 1) ∈ ℝ ∧
(𝐴 ∈ ℝ ∧ 0
≤ 𝐴)) → (𝐴 · 𝐶) ≤ (𝐴 · (𝐶 + 1))) |
9 | 2, 4, 8 | mp3an12 1450 |
. . . 4
⊢ ((𝐴 ∈ ℝ ∧ 0 ≤
𝐴) → (𝐴 · 𝐶) ≤ (𝐴 · (𝐶 + 1))) |
10 | 1, 9 | mpan 687 |
. . 3
⊢ (0 ≤
𝐴 → (𝐴 · 𝐶) ≤ (𝐴 · (𝐶 + 1))) |
11 | 10 | 3ad2ant1 1132 |
. 2
⊢ ((0 ≤
𝐴 ∧ 0 ≤ 𝐶 ∧ 𝐴 < (𝐵 / (𝐶 + 1))) → (𝐴 · 𝐶) ≤ (𝐴 · (𝐶 + 1))) |
12 | | 0re 10965 |
. . . . . . . 8
⊢ 0 ∈
ℝ |
13 | 12, 2, 4 | lelttri 11090 |
. . . . . . 7
⊢ ((0 ≤
𝐶 ∧ 𝐶 < (𝐶 + 1)) → 0 < (𝐶 + 1)) |
14 | 5, 13 | mpan2 688 |
. . . . . 6
⊢ (0 ≤
𝐶 → 0 < (𝐶 + 1)) |
15 | 4 | gt0ne0i 11498 |
. . . . . . . . 9
⊢ (0 <
(𝐶 + 1) → (𝐶 + 1) ≠ 0) |
16 | | prodgt0.2 |
. . . . . . . . . 10
⊢ 𝐵 ∈ ℝ |
17 | 16, 4 | redivclzi 11729 |
. . . . . . . . 9
⊢ ((𝐶 + 1) ≠ 0 → (𝐵 / (𝐶 + 1)) ∈ ℝ) |
18 | 15, 17 | syl 17 |
. . . . . . . 8
⊢ (0 <
(𝐶 + 1) → (𝐵 / (𝐶 + 1)) ∈ ℝ) |
19 | | ltmul1 11813 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℝ ∧ (𝐵 / (𝐶 + 1)) ∈ ℝ ∧ ((𝐶 + 1) ∈ ℝ ∧ 0
< (𝐶 + 1))) →
(𝐴 < (𝐵 / (𝐶 + 1)) ↔ (𝐴 · (𝐶 + 1)) < ((𝐵 / (𝐶 + 1)) · (𝐶 + 1)))) |
20 | 1, 19 | mp3an1 1447 |
. . . . . . . . 9
⊢ (((𝐵 / (𝐶 + 1)) ∈ ℝ ∧ ((𝐶 + 1) ∈ ℝ ∧ 0
< (𝐶 + 1))) →
(𝐴 < (𝐵 / (𝐶 + 1)) ↔ (𝐴 · (𝐶 + 1)) < ((𝐵 / (𝐶 + 1)) · (𝐶 + 1)))) |
21 | 4, 20 | mpanr1 700 |
. . . . . . . 8
⊢ (((𝐵 / (𝐶 + 1)) ∈ ℝ ∧ 0 < (𝐶 + 1)) → (𝐴 < (𝐵 / (𝐶 + 1)) ↔ (𝐴 · (𝐶 + 1)) < ((𝐵 / (𝐶 + 1)) · (𝐶 + 1)))) |
22 | 18, 21 | mpancom 685 |
. . . . . . 7
⊢ (0 <
(𝐶 + 1) → (𝐴 < (𝐵 / (𝐶 + 1)) ↔ (𝐴 · (𝐶 + 1)) < ((𝐵 / (𝐶 + 1)) · (𝐶 + 1)))) |
23 | 22 | biimpd 228 |
. . . . . 6
⊢ (0 <
(𝐶 + 1) → (𝐴 < (𝐵 / (𝐶 + 1)) → (𝐴 · (𝐶 + 1)) < ((𝐵 / (𝐶 + 1)) · (𝐶 + 1)))) |
24 | 14, 23 | syl 17 |
. . . . 5
⊢ (0 ≤
𝐶 → (𝐴 < (𝐵 / (𝐶 + 1)) → (𝐴 · (𝐶 + 1)) < ((𝐵 / (𝐶 + 1)) · (𝐶 + 1)))) |
25 | 24 | imp 407 |
. . . 4
⊢ ((0 ≤
𝐶 ∧ 𝐴 < (𝐵 / (𝐶 + 1))) → (𝐴 · (𝐶 + 1)) < ((𝐵 / (𝐶 + 1)) · (𝐶 + 1))) |
26 | 16 | recni 10977 |
. . . . . . 7
⊢ 𝐵 ∈ ℂ |
27 | 4 | recni 10977 |
. . . . . . 7
⊢ (𝐶 + 1) ∈
ℂ |
28 | 26, 27 | divcan1zi 11699 |
. . . . . 6
⊢ ((𝐶 + 1) ≠ 0 → ((𝐵 / (𝐶 + 1)) · (𝐶 + 1)) = 𝐵) |
29 | 14, 15, 28 | 3syl 18 |
. . . . 5
⊢ (0 ≤
𝐶 → ((𝐵 / (𝐶 + 1)) · (𝐶 + 1)) = 𝐵) |
30 | 29 | adantr 481 |
. . . 4
⊢ ((0 ≤
𝐶 ∧ 𝐴 < (𝐵 / (𝐶 + 1))) → ((𝐵 / (𝐶 + 1)) · (𝐶 + 1)) = 𝐵) |
31 | 25, 30 | breqtrd 5100 |
. . 3
⊢ ((0 ≤
𝐶 ∧ 𝐴 < (𝐵 / (𝐶 + 1))) → (𝐴 · (𝐶 + 1)) < 𝐵) |
32 | 31 | 3adant1 1129 |
. 2
⊢ ((0 ≤
𝐴 ∧ 0 ≤ 𝐶 ∧ 𝐴 < (𝐵 / (𝐶 + 1))) → (𝐴 · (𝐶 + 1)) < 𝐵) |
33 | 1, 2 | remulcli 10979 |
. . 3
⊢ (𝐴 · 𝐶) ∈ ℝ |
34 | 1, 4 | remulcli 10979 |
. . 3
⊢ (𝐴 · (𝐶 + 1)) ∈ ℝ |
35 | 33, 34, 16 | lelttri 11090 |
. 2
⊢ (((𝐴 · 𝐶) ≤ (𝐴 · (𝐶 + 1)) ∧ (𝐴 · (𝐶 + 1)) < 𝐵) → (𝐴 · 𝐶) < 𝐵) |
36 | 11, 32, 35 | syl2anc 584 |
1
⊢ ((0 ≤
𝐴 ∧ 0 ≤ 𝐶 ∧ 𝐴 < (𝐵 / (𝐶 + 1))) → (𝐴 · 𝐶) < 𝐵) |