Step | Hyp | Ref
| Expression |
1 | | abscl 15221 |
. . . . . . . 8
โข (๐ด โ โ โ
(absโ๐ด) โ
โ) |
2 | 1 | recnd 11238 |
. . . . . . 7
โข (๐ด โ โ โ
(absโ๐ด) โ
โ) |
3 | | subneg 11505 |
. . . . . . 7
โข
(((absโ๐ด)
โ โ โง ๐ด
โ โ) โ ((absโ๐ด) โ -๐ด) = ((absโ๐ด) + ๐ด)) |
4 | 2, 3 | mpancom 686 |
. . . . . 6
โข (๐ด โ โ โ
((absโ๐ด) โ
-๐ด) = ((absโ๐ด) + ๐ด)) |
5 | 4 | eqeq1d 2734 |
. . . . 5
โข (๐ด โ โ โ
(((absโ๐ด) โ
-๐ด) = 0 โ
((absโ๐ด) + ๐ด) = 0)) |
6 | | negcl 11456 |
. . . . . 6
โข (๐ด โ โ โ -๐ด โ
โ) |
7 | 2, 6 | subeq0ad 11577 |
. . . . 5
โข (๐ด โ โ โ
(((absโ๐ด) โ
-๐ด) = 0 โ
(absโ๐ด) = -๐ด)) |
8 | 5, 7 | bitr3d 280 |
. . . 4
โข (๐ด โ โ โ
(((absโ๐ด) + ๐ด) = 0 โ (absโ๐ด) = -๐ด)) |
9 | | ax-icn 11165 |
. . . . . . 7
โข i โ
โ |
10 | | absge0 15230 |
. . . . . . . . . . . 12
โข (๐ด โ โ โ 0 โค
(absโ๐ด)) |
11 | 1, 10 | jca 512 |
. . . . . . . . . . 11
โข (๐ด โ โ โ
((absโ๐ด) โ
โ โง 0 โค (absโ๐ด))) |
12 | | eleq1 2821 |
. . . . . . . . . . . 12
โข
((absโ๐ด) =
-๐ด โ ((absโ๐ด) โ โ โ -๐ด โ
โ)) |
13 | | breq2 5151 |
. . . . . . . . . . . 12
โข
((absโ๐ด) =
-๐ด โ (0 โค
(absโ๐ด) โ 0 โค
-๐ด)) |
14 | 12, 13 | anbi12d 631 |
. . . . . . . . . . 11
โข
((absโ๐ด) =
-๐ด โ
(((absโ๐ด) โ
โ โง 0 โค (absโ๐ด)) โ (-๐ด โ โ โง 0 โค -๐ด))) |
15 | 11, 14 | imbitrid 243 |
. . . . . . . . . 10
โข
((absโ๐ด) =
-๐ด โ (๐ด โ โ โ (-๐ด โ โ โง 0 โค
-๐ด))) |
16 | 15 | impcom 408 |
. . . . . . . . 9
โข ((๐ด โ โ โง
(absโ๐ด) = -๐ด) โ (-๐ด โ โ โง 0 โค -๐ด)) |
17 | | resqrtcl 15196 |
. . . . . . . . 9
โข ((-๐ด โ โ โง 0 โค
-๐ด) โ
(โโ-๐ด) โ
โ) |
18 | 16, 17 | syl 17 |
. . . . . . . 8
โข ((๐ด โ โ โง
(absโ๐ด) = -๐ด) โ (โโ-๐ด) โ
โ) |
19 | 18 | recnd 11238 |
. . . . . . 7
โข ((๐ด โ โ โง
(absโ๐ด) = -๐ด) โ (โโ-๐ด) โ
โ) |
20 | | mulcl 11190 |
. . . . . . 7
โข ((i
โ โ โง (โโ-๐ด) โ โ) โ (i ยท
(โโ-๐ด)) โ
โ) |
21 | 9, 19, 20 | sylancr 587 |
. . . . . 6
โข ((๐ด โ โ โง
(absโ๐ด) = -๐ด) โ (i ยท
(โโ-๐ด)) โ
โ) |
22 | | sqrtneglem 15209 |
. . . . . . . 8
โข ((-๐ด โ โ โง 0 โค
-๐ด) โ (((i ยท
(โโ-๐ด))โ2)
= --๐ด โง 0 โค
(โโ(i ยท (โโ-๐ด))) โง (i ยท (i ยท
(โโ-๐ด)))
โ โ+)) |
23 | 16, 22 | syl 17 |
. . . . . . 7
โข ((๐ด โ โ โง
(absโ๐ด) = -๐ด) โ (((i ยท
(โโ-๐ด))โ2)
= --๐ด โง 0 โค
(โโ(i ยท (โโ-๐ด))) โง (i ยท (i ยท
(โโ-๐ด)))
โ โ+)) |
24 | | negneg 11506 |
. . . . . . . . . 10
โข (๐ด โ โ โ --๐ด = ๐ด) |
25 | 24 | adantr 481 |
. . . . . . . . 9
โข ((๐ด โ โ โง
(absโ๐ด) = -๐ด) โ --๐ด = ๐ด) |
26 | 25 | eqeq2d 2743 |
. . . . . . . 8
โข ((๐ด โ โ โง
(absโ๐ด) = -๐ด) โ (((i ยท
(โโ-๐ด))โ2)
= --๐ด โ ((i ยท
(โโ-๐ด))โ2)
= ๐ด)) |
27 | 26 | 3anbi1d 1440 |
. . . . . . 7
โข ((๐ด โ โ โง
(absโ๐ด) = -๐ด) โ ((((i ยท
(โโ-๐ด))โ2)
= --๐ด โง 0 โค
(โโ(i ยท (โโ-๐ด))) โง (i ยท (i ยท
(โโ-๐ด)))
โ โ+) โ (((i ยท (โโ-๐ด))โ2) = ๐ด โง 0 โค (โโ(i ยท
(โโ-๐ด))) โง
(i ยท (i ยท (โโ-๐ด))) โ
โ+))) |
28 | 23, 27 | mpbid 231 |
. . . . . 6
โข ((๐ด โ โ โง
(absโ๐ด) = -๐ด) โ (((i ยท
(โโ-๐ด))โ2)
= ๐ด โง 0 โค
(โโ(i ยท (โโ-๐ด))) โง (i ยท (i ยท
(โโ-๐ด)))
โ โ+)) |
29 | | oveq1 7412 |
. . . . . . . . 9
โข (๐ฅ = (i ยท
(โโ-๐ด)) โ
(๐ฅโ2) = ((i ยท
(โโ-๐ด))โ2)) |
30 | 29 | eqeq1d 2734 |
. . . . . . . 8
โข (๐ฅ = (i ยท
(โโ-๐ด)) โ
((๐ฅโ2) = ๐ด โ ((i ยท
(โโ-๐ด))โ2)
= ๐ด)) |
31 | | fveq2 6888 |
. . . . . . . . 9
โข (๐ฅ = (i ยท
(โโ-๐ด)) โ
(โโ๐ฅ) =
(โโ(i ยท (โโ-๐ด)))) |
32 | 31 | breq2d 5159 |
. . . . . . . 8
โข (๐ฅ = (i ยท
(โโ-๐ด)) โ
(0 โค (โโ๐ฅ)
โ 0 โค (โโ(i ยท (โโ-๐ด))))) |
33 | | oveq2 7413 |
. . . . . . . . 9
โข (๐ฅ = (i ยท
(โโ-๐ด)) โ
(i ยท ๐ฅ) = (i
ยท (i ยท (โโ-๐ด)))) |
34 | | neleq1 3052 |
. . . . . . . . 9
โข ((i
ยท ๐ฅ) = (i ยท
(i ยท (โโ-๐ด))) โ ((i ยท ๐ฅ) โ โ+ โ (i
ยท (i ยท (โโ-๐ด))) โ
โ+)) |
35 | 33, 34 | syl 17 |
. . . . . . . 8
โข (๐ฅ = (i ยท
(โโ-๐ด)) โ
((i ยท ๐ฅ) โ
โ+ โ (i ยท (i ยท (โโ-๐ด))) โ
โ+)) |
36 | 30, 32, 35 | 3anbi123d 1436 |
. . . . . . 7
โข (๐ฅ = (i ยท
(โโ-๐ด)) โ
(((๐ฅโ2) = ๐ด โง 0 โค
(โโ๐ฅ) โง (i
ยท ๐ฅ) โ
โ+) โ (((i ยท (โโ-๐ด))โ2) = ๐ด โง 0 โค (โโ(i ยท
(โโ-๐ด))) โง
(i ยท (i ยท (โโ-๐ด))) โ
โ+))) |
37 | 36 | rspcev 3612 |
. . . . . 6
โข (((i
ยท (โโ-๐ด)) โ โ โง (((i ยท
(โโ-๐ด))โ2)
= ๐ด โง 0 โค
(โโ(i ยท (โโ-๐ด))) โง (i ยท (i ยท
(โโ-๐ด)))
โ โ+)) โ โ๐ฅ โ โ ((๐ฅโ2) = ๐ด โง 0 โค (โโ๐ฅ) โง (i ยท ๐ฅ) โ
โ+)) |
38 | 21, 28, 37 | syl2anc 584 |
. . . . 5
โข ((๐ด โ โ โง
(absโ๐ด) = -๐ด) โ โ๐ฅ โ โ ((๐ฅโ2) = ๐ด โง 0 โค (โโ๐ฅ) โง (i ยท ๐ฅ) โ
โ+)) |
39 | 38 | ex 413 |
. . . 4
โข (๐ด โ โ โ
((absโ๐ด) = -๐ด โ โ๐ฅ โ โ ((๐ฅโ2) = ๐ด โง 0 โค (โโ๐ฅ) โง (i ยท ๐ฅ) โ
โ+))) |
40 | 8, 39 | sylbid 239 |
. . 3
โข (๐ด โ โ โ
(((absโ๐ด) + ๐ด) = 0 โ โ๐ฅ โ โ ((๐ฅโ2) = ๐ด โง 0 โค (โโ๐ฅ) โง (i ยท ๐ฅ) โ
โ+))) |
41 | | resqrtcl 15196 |
. . . . . . . . 9
โข
(((absโ๐ด)
โ โ โง 0 โค (absโ๐ด)) โ (โโ(absโ๐ด)) โ
โ) |
42 | 1, 10, 41 | syl2anc 584 |
. . . . . . . 8
โข (๐ด โ โ โ
(โโ(absโ๐ด)) โ โ) |
43 | 42 | recnd 11238 |
. . . . . . 7
โข (๐ด โ โ โ
(โโ(absโ๐ด)) โ โ) |
44 | 43 | adantr 481 |
. . . . . 6
โข ((๐ด โ โ โง
((absโ๐ด) + ๐ด) โ 0) โ
(โโ(absโ๐ด)) โ โ) |
45 | | addcl 11188 |
. . . . . . . . 9
โข
(((absโ๐ด)
โ โ โง ๐ด
โ โ) โ ((absโ๐ด) + ๐ด) โ โ) |
46 | 2, 45 | mpancom 686 |
. . . . . . . 8
โข (๐ด โ โ โ
((absโ๐ด) + ๐ด) โ
โ) |
47 | 46 | adantr 481 |
. . . . . . 7
โข ((๐ด โ โ โง
((absโ๐ด) + ๐ด) โ 0) โ
((absโ๐ด) + ๐ด) โ
โ) |
48 | | abscl 15221 |
. . . . . . . . . 10
โข
(((absโ๐ด) +
๐ด) โ โ โ
(absโ((absโ๐ด) +
๐ด)) โ
โ) |
49 | 46, 48 | syl 17 |
. . . . . . . . 9
โข (๐ด โ โ โ
(absโ((absโ๐ด) +
๐ด)) โ
โ) |
50 | 49 | recnd 11238 |
. . . . . . . 8
โข (๐ด โ โ โ
(absโ((absโ๐ด) +
๐ด)) โ
โ) |
51 | 50 | adantr 481 |
. . . . . . 7
โข ((๐ด โ โ โง
((absโ๐ด) + ๐ด) โ 0) โ
(absโ((absโ๐ด) +
๐ด)) โ
โ) |
52 | 46 | abs00ad 15233 |
. . . . . . . . 9
โข (๐ด โ โ โ
((absโ((absโ๐ด)
+ ๐ด)) = 0 โ
((absโ๐ด) + ๐ด) = 0)) |
53 | 52 | necon3bid 2985 |
. . . . . . . 8
โข (๐ด โ โ โ
((absโ((absโ๐ด)
+ ๐ด)) โ 0 โ
((absโ๐ด) + ๐ด) โ 0)) |
54 | 53 | biimpar 478 |
. . . . . . 7
โข ((๐ด โ โ โง
((absโ๐ด) + ๐ด) โ 0) โ
(absโ((absโ๐ด) +
๐ด)) โ
0) |
55 | 47, 51, 54 | divcld 11986 |
. . . . . 6
โข ((๐ด โ โ โง
((absโ๐ด) + ๐ด) โ 0) โ
(((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))) โ โ) |
56 | 44, 55 | mulcld 11230 |
. . . . 5
โข ((๐ด โ โ โง
((absโ๐ด) + ๐ด) โ 0) โ
((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด)))) โ โ) |
57 | | eqid 2732 |
. . . . . 6
โข
((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด)))) = ((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด)))) |
58 | 57 | sqreulem 15302 |
. . . . 5
โข ((๐ด โ โ โง
((absโ๐ด) + ๐ด) โ 0) โ
((((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))โ2) = ๐ด โง 0 โค
(โโ((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))) โง (i ยท
((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))) โ
โ+)) |
59 | | oveq1 7412 |
. . . . . . . 8
โข (๐ฅ =
((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด)))) โ (๐ฅโ2) = (((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))โ2)) |
60 | 59 | eqeq1d 2734 |
. . . . . . 7
โข (๐ฅ =
((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด)))) โ ((๐ฅโ2) = ๐ด โ (((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))โ2) = ๐ด)) |
61 | | fveq2 6888 |
. . . . . . . 8
โข (๐ฅ =
((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด)))) โ (โโ๐ฅ) =
(โโ((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด)))))) |
62 | 61 | breq2d 5159 |
. . . . . . 7
โข (๐ฅ =
((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด)))) โ (0 โค (โโ๐ฅ) โ 0 โค
(โโ((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))))) |
63 | | oveq2 7413 |
. . . . . . . 8
โข (๐ฅ =
((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด)))) โ (i ยท ๐ฅ) = (i ยท
((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด)))))) |
64 | | neleq1 3052 |
. . . . . . . 8
โข ((i
ยท ๐ฅ) = (i ยท
((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))) โ ((i ยท ๐ฅ) โ โ+ โ (i
ยท ((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))) โ
โ+)) |
65 | 63, 64 | syl 17 |
. . . . . . 7
โข (๐ฅ =
((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด)))) โ ((i ยท ๐ฅ) โ โ+ โ (i
ยท ((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))) โ
โ+)) |
66 | 60, 62, 65 | 3anbi123d 1436 |
. . . . . 6
โข (๐ฅ =
((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด)))) โ (((๐ฅโ2) = ๐ด โง 0 โค (โโ๐ฅ) โง (i ยท ๐ฅ) โ โ+)
โ ((((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))โ2) = ๐ด โง 0 โค
(โโ((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))) โง (i ยท
((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))) โ
โ+))) |
67 | 66 | rspcev 3612 |
. . . . 5
โข
((((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด)))) โ โ โง
((((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))โ2) = ๐ด โง 0 โค
(โโ((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))) โง (i ยท
((โโ(absโ๐ด)) ยท (((absโ๐ด) + ๐ด) / (absโ((absโ๐ด) + ๐ด))))) โ โ+)) โ
โ๐ฅ โ โ
((๐ฅโ2) = ๐ด โง 0 โค
(โโ๐ฅ) โง (i
ยท ๐ฅ) โ
โ+)) |
68 | 56, 58, 67 | syl2anc 584 |
. . . 4
โข ((๐ด โ โ โง
((absโ๐ด) + ๐ด) โ 0) โ โ๐ฅ โ โ ((๐ฅโ2) = ๐ด โง 0 โค (โโ๐ฅ) โง (i ยท ๐ฅ) โ
โ+)) |
69 | 68 | ex 413 |
. . 3
โข (๐ด โ โ โ
(((absโ๐ด) + ๐ด) โ 0 โ โ๐ฅ โ โ ((๐ฅโ2) = ๐ด โง 0 โค (โโ๐ฅ) โง (i ยท ๐ฅ) โ
โ+))) |
70 | 40, 69 | pm2.61dne 3028 |
. 2
โข (๐ด โ โ โ
โ๐ฅ โ โ
((๐ฅโ2) = ๐ด โง 0 โค
(โโ๐ฅ) โง (i
ยท ๐ฅ) โ
โ+)) |
71 | | sqrmo 15194 |
. 2
โข (๐ด โ โ โ
โ*๐ฅ โ โ
((๐ฅโ2) = ๐ด โง 0 โค
(โโ๐ฅ) โง (i
ยท ๐ฅ) โ
โ+)) |
72 | | reu5 3378 |
. 2
โข
(โ!๐ฅ โ
โ ((๐ฅโ2) = ๐ด โง 0 โค
(โโ๐ฅ) โง (i
ยท ๐ฅ) โ
โ+) โ (โ๐ฅ โ โ ((๐ฅโ2) = ๐ด โง 0 โค (โโ๐ฅ) โง (i ยท ๐ฅ) โ โ+)
โง โ*๐ฅ โ
โ ((๐ฅโ2) = ๐ด โง 0 โค
(โโ๐ฅ) โง (i
ยท ๐ฅ) โ
โ+))) |
73 | 70, 71, 72 | sylanbrc 583 |
1
โข (๐ด โ โ โ
โ!๐ฅ โ โ
((๐ฅโ2) = ๐ด โง 0 โค
(โโ๐ฅ) โง (i
ยท ๐ฅ) โ
โ+)) |