Proof of Theorem sqr0
| Step | Hyp | Ref
| Expression |
| 1 | | ax0re 4063 |
. . 3
⊢ 0 ∈ ℝ |
| 2 | 1 | leid 4339 |
. . 3
⊢ 0 ≤ 0 |
| 3 | | sqrval 4729 |
. . 3
⊢ ((0 ∈ ℝ ∧ 0 ≤ 0) →
(√ ‘0) = sup({x ∈
ℝ∣(0 ≤ x ∧ (x · x)
≤ 0)}, ℝ, < )) |
| 4 | 1, 2, 3 | mp2an 520 |
. 2
⊢ (√ ‘0) = sup({x ∈ ℝ∣(0 ≤ x ∧ (x
· x) ≤ 0)}, ℝ, <
) |
| 5 | | axmulrcl 4069 |
. . . . . . . . . . . 12
⊢ ((x
∈ ℝ ∧ x ∈ ℝ)
→ (x · x) ∈ ℝ) |
| 6 | 5 | anidms 332 |
. . . . . . . . . . 11
⊢ (x
∈ ℝ → (x · x) ∈ ℝ) |
| 7 | 6, 1 | jctir 241 |
. . . . . . . . . 10
⊢ (x
∈ ℝ → ((x · x) ∈ ℝ ∧ 0 ∈ ℝ)) |
| 8 | | leltt 4278 |
. . . . . . . . . 10
⊢ (((x
· x) ∈ ℝ ∧ 0 ∈
ℝ) → ((x · x) ≤ 0 ↔ ¬ 0 < (x · x))) |
| 9 | 7, 8 | syl 12 |
. . . . . . . . 9
⊢ (x
∈ ℝ → ((x · x) ≤ 0 ↔ ¬ 0 < (x · x))) |
| 10 | | ltsqt 4376 |
. . . . . . . . . 10
⊢ (x
∈ ℝ → (¬ x = 0 → 0
< (x · x))) |
| 11 | 10 | con1d 85 |
. . . . . . . . 9
⊢ (x
∈ ℝ → (¬ 0 < (x
· x) → x = 0)) |
| 12 | 9, 11 | sylbid 178 |
. . . . . . . 8
⊢ (x
∈ ℝ → ((x · x) ≤ 0 → x = 0)) |
| 13 | 12 | adantld 307 |
. . . . . . 7
⊢ (x
∈ ℝ → ((0 ≤ x ∧
(x · x) ≤ 0) → x = 0)) |
| 14 | 13 | imp 277 |
. . . . . 6
⊢ ((x
∈ ℝ ∧ (0 ≤ x ∧
(x · x) ≤ 0)) → x = 0) |
| 15 | | 0cn 4100 |
. . . . . . . . . . 11
⊢ 0 ∈ ℂ |
| 16 | 15 | mulzer1 4185 |
. . . . . . . . . 10
⊢ (0 · 0) = 0 |
| 17 | 1, 1 | remulcl 4119 |
. . . . . . . . . . 11
⊢ (0 · 0) ∈ ℝ |
| 18 | 17, 1 | eqle 4304 |
. . . . . . . . . 10
⊢ ((0 · 0) = 0 → (0 · 0)
≤ 0) |
| 19 | 16, 18 | ax-mp 6 |
. . . . . . . . 9
⊢ (0 · 0) ≤ 0 |
| 20 | 2, 19 | pm3.2i 234 |
. . . . . . . 8
⊢ (0 ≤ 0 ∧ (0 · 0) ≤
0) |
| 21 | 1, 20 | pm3.2i 234 |
. . . . . . 7
⊢ (0 ∈ ℝ ∧ (0 ≤ 0 ∧ (0
· 0) ≤ 0)) |
| 22 | | eleq1 1149 |
. . . . . . . 8
⊢ (x = 0
→ (x ∈ ℝ ↔ 0 ∈
ℝ)) |
| 23 | | breq2 2066 |
. . . . . . . . 9
⊢ (x = 0
→ (0 ≤ x ↔ 0 ≤
0)) |
| 24 | | opreq12 3008 |
. . . . . . . . . . 11
⊢ ((x =
0 ∧ x = 0) → (x · x) =
(0 · 0)) |
| 25 | 24 | anidms 332 |
. . . . . . . . . 10
⊢ (x = 0
→ (x · x) = (0 · 0)) |
| 26 | 25 | breq1d 2071 |
. . . . . . . . 9
⊢ (x = 0
→ ((x · x) ≤ 0 ↔ (0 · 0) ≤ 0)) |
| 27 | 23, 26 | anbi12d 476 |
. . . . . . . 8
⊢ (x = 0
→ ((0 ≤ x ∧ (x · x)
≤ 0) ↔ (0 ≤ 0 ∧ (0 · 0) ≤ 0))) |
| 28 | 22, 27 | anbi12d 476 |
. . . . . . 7
⊢ (x = 0
→ ((x ∈ ℝ ∧ (0 ≤
x ∧ (x · x)
≤ 0)) ↔ (0 ∈ ℝ ∧ (0 ≤ 0 ∧ (0 · 0) ≤
0)))) |
| 29 | 21, 28 | mpbiri 169 |
. . . . . 6
⊢ (x = 0
→ (x ∈ ℝ ∧ (0 ≤
x ∧ (x · x)
≤ 0))) |
| 30 | 14, 29 | impbi 139 |
. . . . 5
⊢ ((x
∈ ℝ ∧ (0 ≤ x ∧
(x · x) ≤ 0)) ↔ x = 0) |
| 31 | 30 | biabi 1181 |
. . . 4
⊢ {x∣(x
∈ ℝ ∧ (0 ≤ x ∧
(x · x) ≤ 0))} = {x∣x =
0} |
| 32 | | df-rab 1208 |
. . . 4
⊢ {x
∈ ℝ∣(0 ≤ x ∧
(x · x) ≤ 0)} = {x∣(x
∈ ℝ ∧ (0 ≤ x ∧
(x · x) ≤ 0))} |
| 33 | | df-sn 1811 |
. . . 4
⊢ {0} = {x∣x =
0} |
| 34 | 31, 32, 33 | 3eqtr4 1126 |
. . 3
⊢ {x
∈ ℝ∣(0 ≤ x ∧
(x · x) ≤ 0)} = {0} |
| 35 | | supeq1 2155 |
. . 3
⊢ ({x
∈ ℝ∣(0 ≤ x ∧
(x · x) ≤ 0)} = {0} → sup({x ∈ ℝ∣(0 ≤ x ∧ (x
· x) ≤ 0)}, ℝ, < ) =
sup({0}, ℝ, < )) |
| 36 | 34, 35 | ax-mp 6 |
. 2
⊢ sup({x
∈ ℝ∣(0 ≤ x ∧
(x · x) ≤ 0)}, ℝ, < ) = sup({0}, ℝ,
< ) |
| 37 | | ltso 4279 |
. . . 4
⊢ < Or ℝ |
| 38 | 37 | supsn 2168 |
. . 3
⊢ (0 ∈ ℝ → sup({0}, ℝ,
< ) = 0) |
| 39 | 1, 38 | ax-mp 6 |
. 2
⊢ sup({0}, ℝ, < ) = 0 |
| 40 | 4, 36, 39 | 3eqtr 1123 |
1
⊢ (√ ‘0) = 0 |