Step | Hyp | Ref
| Expression |
1 | | sqrtcvallem5 42391 |
. . . . 5
โข (๐ด โ โ โ
(โโ(((absโ๐ด) + (โโ๐ด)) / 2)) โ โ) |
2 | 1 | recnd 11242 |
. . . 4
โข (๐ด โ โ โ
(โโ(((absโ๐ด) + (โโ๐ด)) / 2)) โ โ) |
3 | | ax-icn 11169 |
. . . . . 6
โข i โ
โ |
4 | 3 | a1i 11 |
. . . . 5
โข (๐ด โ โ โ i โ
โ) |
5 | | neg1rr 12327 |
. . . . . . . . 9
โข -1 โ
โ |
6 | | 1re 11214 |
. . . . . . . . 9
โข 1 โ
โ |
7 | 5, 6 | ifcli 4576 |
. . . . . . . 8
โข
if((โโ๐ด)
< 0, -1, 1) โ โ |
8 | 7 | a1i 11 |
. . . . . . 7
โข (๐ด โ โ โ
if((โโ๐ด) <
0, -1, 1) โ โ) |
9 | | sqrtcvallem3 42389 |
. . . . . . 7
โข (๐ด โ โ โ
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2)) โ โ) |
10 | 8, 9 | remulcld 11244 |
. . . . . 6
โข (๐ด โ โ โ
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))) โ โ) |
11 | 10 | recnd 11242 |
. . . . 5
โข (๐ด โ โ โ
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))) โ โ) |
12 | 4, 11 | mulcld 11234 |
. . . 4
โข (๐ด โ โ โ (i
ยท (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))) โ โ) |
13 | 2, 12 | addcld 11233 |
. . 3
โข (๐ด โ โ โ
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))) โ โ) |
14 | | id 22 |
. . 3
โข (๐ด โ โ โ ๐ด โ
โ) |
15 | | binom2 14181 |
. . . . 5
โข
(((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) โ โ โง (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))) โ โ) โ
(((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))โ2) =
((((โโ(((absโ๐ด) + (โโ๐ด)) / 2))โ2) + (2 ยท
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) + ((i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))โ2))) |
16 | 2, 12, 15 | syl2anc 585 |
. . . 4
โข (๐ด โ โ โ
(((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))โ2) =
((((โโ(((absโ๐ด) + (โโ๐ด)) / 2))โ2) + (2 ยท
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) + ((i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))โ2))) |
17 | | abscl 15225 |
. . . . . . . . . . . 12
โข (๐ด โ โ โ
(absโ๐ด) โ
โ) |
18 | | recl 15057 |
. . . . . . . . . . . 12
โข (๐ด โ โ โ
(โโ๐ด) โ
โ) |
19 | 17, 18 | readdcld 11243 |
. . . . . . . . . . 11
โข (๐ด โ โ โ
((absโ๐ด) +
(โโ๐ด)) โ
โ) |
20 | 19 | rehalfcld 12459 |
. . . . . . . . . 10
โข (๐ด โ โ โ
(((absโ๐ด) +
(โโ๐ด)) / 2)
โ โ) |
21 | 20 | recnd 11242 |
. . . . . . . . 9
โข (๐ด โ โ โ
(((absโ๐ด) +
(โโ๐ด)) / 2)
โ โ) |
22 | 21 | sqsqrtd 15386 |
. . . . . . . 8
โข (๐ด โ โ โ
((โโ(((absโ๐ด) + (โโ๐ด)) / 2))โ2) = (((absโ๐ด) + (โโ๐ด)) / 2)) |
23 | 4, 11 | sqmuld 14123 |
. . . . . . . . 9
โข (๐ด โ โ โ ((i
ยท (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))โ2) = ((iโ2) ยท
((if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))โ2))) |
24 | | i2 14166 |
. . . . . . . . . . 11
โข
(iโ2) = -1 |
25 | 24 | a1i 11 |
. . . . . . . . . 10
โข (๐ด โ โ โ
(iโ2) = -1) |
26 | 8 | recnd 11242 |
. . . . . . . . . . . 12
โข (๐ด โ โ โ
if((โโ๐ด) <
0, -1, 1) โ โ) |
27 | 9 | recnd 11242 |
. . . . . . . . . . . 12
โข (๐ด โ โ โ
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2)) โ โ) |
28 | 26, 27 | sqmuld 14123 |
. . . . . . . . . . 11
โข (๐ด โ โ โ
((if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))โ2) =
((if((โโ๐ด) <
0, -1, 1)โ2) ยท ((โโ(((absโ๐ด) โ (โโ๐ด)) / 2))โ2))) |
29 | | ovif 7506 |
. . . . . . . . . . . . . 14
โข
(if((โโ๐ด) < 0, -1, 1)โ2) =
if((โโ๐ด) <
0, (-1โ2), (1โ2)) |
30 | | neg1sqe1 14160 |
. . . . . . . . . . . . . . 15
โข
(-1โ2) = 1 |
31 | | sq1 14159 |
. . . . . . . . . . . . . . 15
โข
(1โ2) = 1 |
32 | | ifeq12 4547 |
. . . . . . . . . . . . . . 15
โข
(((-1โ2) = 1 โง (1โ2) = 1) โ if((โโ๐ด) < 0, (-1โ2),
(1โ2)) = if((โโ๐ด) < 0, 1, 1)) |
33 | 30, 31, 32 | mp2an 691 |
. . . . . . . . . . . . . 14
โข
if((โโ๐ด)
< 0, (-1โ2), (1โ2)) = if((โโ๐ด) < 0, 1, 1) |
34 | | ifid 4569 |
. . . . . . . . . . . . . 14
โข
if((โโ๐ด)
< 0, 1, 1) = 1 |
35 | 29, 33, 34 | 3eqtri 2765 |
. . . . . . . . . . . . 13
โข
(if((โโ๐ด) < 0, -1, 1)โ2) =
1 |
36 | 35 | a1i 11 |
. . . . . . . . . . . 12
โข (๐ด โ โ โ
(if((โโ๐ด) <
0, -1, 1)โ2) = 1) |
37 | 17, 18 | resubcld 11642 |
. . . . . . . . . . . . . . 15
โข (๐ด โ โ โ
((absโ๐ด) โ
(โโ๐ด)) โ
โ) |
38 | 37 | rehalfcld 12459 |
. . . . . . . . . . . . . 14
โข (๐ด โ โ โ
(((absโ๐ด) โ
(โโ๐ด)) / 2)
โ โ) |
39 | 38 | recnd 11242 |
. . . . . . . . . . . . 13
โข (๐ด โ โ โ
(((absโ๐ด) โ
(โโ๐ด)) / 2)
โ โ) |
40 | 39 | sqsqrtd 15386 |
. . . . . . . . . . . 12
โข (๐ด โ โ โ
((โโ(((absโ๐ด) โ (โโ๐ด)) / 2))โ2) = (((absโ๐ด) โ (โโ๐ด)) / 2)) |
41 | 36, 40 | oveq12d 7427 |
. . . . . . . . . . 11
โข (๐ด โ โ โ
((if((โโ๐ด) <
0, -1, 1)โ2) ยท ((โโ(((absโ๐ด) โ (โโ๐ด)) / 2))โ2)) = (1 ยท
(((absโ๐ด) โ
(โโ๐ด)) /
2))) |
42 | 39 | mullidd 11232 |
. . . . . . . . . . 11
โข (๐ด โ โ โ (1
ยท (((absโ๐ด)
โ (โโ๐ด)) /
2)) = (((absโ๐ด)
โ (โโ๐ด)) /
2)) |
43 | 28, 41, 42 | 3eqtrd 2777 |
. . . . . . . . . 10
โข (๐ด โ โ โ
((if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))โ2) = (((absโ๐ด) โ (โโ๐ด)) / 2)) |
44 | 25, 43 | oveq12d 7427 |
. . . . . . . . 9
โข (๐ด โ โ โ
((iโ2) ยท ((if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))โ2)) = (-1 ยท
(((absโ๐ด) โ
(โโ๐ด)) /
2))) |
45 | 39 | mulm1d 11666 |
. . . . . . . . 9
โข (๐ด โ โ โ (-1
ยท (((absโ๐ด)
โ (โโ๐ด)) /
2)) = -(((absโ๐ด)
โ (โโ๐ด)) /
2)) |
46 | 23, 44, 45 | 3eqtrd 2777 |
. . . . . . . 8
โข (๐ด โ โ โ ((i
ยท (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))โ2) = -(((absโ๐ด) โ (โโ๐ด)) / 2)) |
47 | 22, 46 | oveq12d 7427 |
. . . . . . 7
โข (๐ด โ โ โ
(((โโ(((absโ๐ด) + (โโ๐ด)) / 2))โ2) + ((i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))โ2)) = ((((absโ๐ด) + (โโ๐ด)) / 2) + -(((absโ๐ด) โ (โโ๐ด)) / 2))) |
48 | 21, 39 | negsubd 11577 |
. . . . . . 7
โข (๐ด โ โ โ
((((absโ๐ด) +
(โโ๐ด)) / 2) +
-(((absโ๐ด) โ
(โโ๐ด)) / 2)) =
((((absโ๐ด) +
(โโ๐ด)) / 2)
โ (((absโ๐ด)
โ (โโ๐ด)) /
2))) |
49 | 17 | recnd 11242 |
. . . . . . . . . . 11
โข (๐ด โ โ โ
(absโ๐ด) โ
โ) |
50 | 18 | recnd 11242 |
. . . . . . . . . . 11
โข (๐ด โ โ โ
(โโ๐ด) โ
โ) |
51 | 49, 50, 50 | pnncand 11610 |
. . . . . . . . . 10
โข (๐ด โ โ โ
(((absโ๐ด) +
(โโ๐ด)) โ
((absโ๐ด) โ
(โโ๐ด))) =
((โโ๐ด) +
(โโ๐ด))) |
52 | 50 | 2timesd 12455 |
. . . . . . . . . 10
โข (๐ด โ โ โ (2
ยท (โโ๐ด))
= ((โโ๐ด) +
(โโ๐ด))) |
53 | 51, 52 | eqtr4d 2776 |
. . . . . . . . 9
โข (๐ด โ โ โ
(((absโ๐ด) +
(โโ๐ด)) โ
((absโ๐ด) โ
(โโ๐ด))) = (2
ยท (โโ๐ด))) |
54 | 53 | oveq1d 7424 |
. . . . . . . 8
โข (๐ด โ โ โ
((((absโ๐ด) +
(โโ๐ด)) โ
((absโ๐ด) โ
(โโ๐ด))) / 2) =
((2 ยท (โโ๐ด)) / 2)) |
55 | 19 | recnd 11242 |
. . . . . . . . 9
โข (๐ด โ โ โ
((absโ๐ด) +
(โโ๐ด)) โ
โ) |
56 | 37 | recnd 11242 |
. . . . . . . . 9
โข (๐ด โ โ โ
((absโ๐ด) โ
(โโ๐ด)) โ
โ) |
57 | | 2cnd 12290 |
. . . . . . . . 9
โข (๐ด โ โ โ 2 โ
โ) |
58 | | 2ne0 12316 |
. . . . . . . . . 10
โข 2 โ
0 |
59 | 58 | a1i 11 |
. . . . . . . . 9
โข (๐ด โ โ โ 2 โ
0) |
60 | 55, 56, 57, 59 | divsubdird 12029 |
. . . . . . . 8
โข (๐ด โ โ โ
((((absโ๐ด) +
(โโ๐ด)) โ
((absโ๐ด) โ
(โโ๐ด))) / 2) =
((((absโ๐ด) +
(โโ๐ด)) / 2)
โ (((absโ๐ด)
โ (โโ๐ด)) /
2))) |
61 | 50, 57, 59 | divcan3d 11995 |
. . . . . . . 8
โข (๐ด โ โ โ ((2
ยท (โโ๐ด))
/ 2) = (โโ๐ด)) |
62 | 54, 60, 61 | 3eqtr3d 2781 |
. . . . . . 7
โข (๐ด โ โ โ
((((absโ๐ด) +
(โโ๐ด)) / 2)
โ (((absโ๐ด)
โ (โโ๐ด)) /
2)) = (โโ๐ด)) |
63 | 47, 48, 62 | 3eqtrd 2777 |
. . . . . 6
โข (๐ด โ โ โ
(((โโ(((absโ๐ด) + (โโ๐ด)) / 2))โ2) + ((i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))โ2)) = (โโ๐ด)) |
64 | 57, 2 | mulcld 11234 |
. . . . . . . 8
โข (๐ด โ โ โ (2
ยท (โโ(((absโ๐ด) + (โโ๐ด)) / 2))) โ โ) |
65 | 64, 4, 11 | mul12d 11423 |
. . . . . . 7
โข (๐ด โ โ โ ((2
ยท (โโ(((absโ๐ด) + (โโ๐ด)) / 2))) ยท (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))) = (i ยท ((2 ยท
(โโ(((absโ๐ด) + (โโ๐ด)) / 2))) ยท (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))) |
66 | 57, 2, 12 | mulassd 11237 |
. . . . . . 7
โข (๐ด โ โ โ ((2
ยท (โโ(((absโ๐ด) + (โโ๐ด)) / 2))) ยท (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))) = (2 ยท
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) |
67 | 57, 2, 11 | mulassd 11237 |
. . . . . . . . 9
โข (๐ด โ โ โ ((2
ยท (โโ(((absโ๐ด) + (โโ๐ด)) / 2))) ยท (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))) = (2 ยท
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))) |
68 | 2, 26, 27 | mul12d 11423 |
. . . . . . . . . . 11
โข (๐ด โ โ โ
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))) = (if((โโ๐ด) < 0, -1, 1) ยท
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))) |
69 | | sqrtcvallem4 42390 |
. . . . . . . . . . . . . . . 16
โข (๐ด โ โ โ 0 โค
(((absโ๐ด) +
(โโ๐ด)) /
2)) |
70 | | halfnneg2 12443 |
. . . . . . . . . . . . . . . . 17
โข
(((absโ๐ด) +
(โโ๐ด)) โ
โ โ (0 โค ((absโ๐ด) + (โโ๐ด)) โ 0 โค (((absโ๐ด) + (โโ๐ด)) / 2))) |
71 | 19, 70 | syl 17 |
. . . . . . . . . . . . . . . 16
โข (๐ด โ โ โ (0 โค
((absโ๐ด) +
(โโ๐ด)) โ 0
โค (((absโ๐ด) +
(โโ๐ด)) /
2))) |
72 | 69, 71 | mpbird 257 |
. . . . . . . . . . . . . . 15
โข (๐ด โ โ โ 0 โค
((absโ๐ด) +
(โโ๐ด))) |
73 | | 2rp 12979 |
. . . . . . . . . . . . . . . 16
โข 2 โ
โ+ |
74 | 73 | a1i 11 |
. . . . . . . . . . . . . . 15
โข (๐ด โ โ โ 2 โ
โ+) |
75 | 19, 72, 74 | sqrtdivd 15370 |
. . . . . . . . . . . . . 14
โข (๐ด โ โ โ
(โโ(((absโ๐ด) + (โโ๐ด)) / 2)) = ((โโ((absโ๐ด) + (โโ๐ด))) /
(โโ2))) |
76 | | sqrtcvallem2 42388 |
. . . . . . . . . . . . . . . 16
โข (๐ด โ โ โ 0 โค
(((absโ๐ด) โ
(โโ๐ด)) /
2)) |
77 | | halfnneg2 12443 |
. . . . . . . . . . . . . . . . 17
โข
(((absโ๐ด)
โ (โโ๐ด))
โ โ โ (0 โค ((absโ๐ด) โ (โโ๐ด)) โ 0 โค (((absโ๐ด) โ (โโ๐ด)) / 2))) |
78 | 37, 77 | syl 17 |
. . . . . . . . . . . . . . . 16
โข (๐ด โ โ โ (0 โค
((absโ๐ด) โ
(โโ๐ด)) โ 0
โค (((absโ๐ด)
โ (โโ๐ด)) /
2))) |
79 | 76, 78 | mpbird 257 |
. . . . . . . . . . . . . . 15
โข (๐ด โ โ โ 0 โค
((absโ๐ด) โ
(โโ๐ด))) |
80 | 37, 79, 74 | sqrtdivd 15370 |
. . . . . . . . . . . . . 14
โข (๐ด โ โ โ
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2)) = ((โโ((absโ๐ด) โ (โโ๐ด))) /
(โโ2))) |
81 | 75, 80 | oveq12d 7427 |
. . . . . . . . . . . . 13
โข (๐ด โ โ โ
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2))) =
(((โโ((absโ๐ด) + (โโ๐ด))) / (โโ2)) ยท
((โโ((absโ๐ด) โ (โโ๐ด))) / (โโ2)))) |
82 | 19, 72 | resqrtcld 15364 |
. . . . . . . . . . . . . . 15
โข (๐ด โ โ โ
(โโ((absโ๐ด) + (โโ๐ด))) โ โ) |
83 | 82 | recnd 11242 |
. . . . . . . . . . . . . 14
โข (๐ด โ โ โ
(โโ((absโ๐ด) + (โโ๐ด))) โ โ) |
84 | | 2re 12286 |
. . . . . . . . . . . . . . . . 17
โข 2 โ
โ |
85 | 84 | a1i 11 |
. . . . . . . . . . . . . . . 16
โข (๐ด โ โ โ 2 โ
โ) |
86 | | 0le2 12314 |
. . . . . . . . . . . . . . . . 17
โข 0 โค
2 |
87 | 86 | a1i 11 |
. . . . . . . . . . . . . . . 16
โข (๐ด โ โ โ 0 โค
2) |
88 | 85, 87 | resqrtcld 15364 |
. . . . . . . . . . . . . . 15
โข (๐ด โ โ โ
(โโ2) โ โ) |
89 | 88 | recnd 11242 |
. . . . . . . . . . . . . 14
โข (๐ด โ โ โ
(โโ2) โ โ) |
90 | 37, 79 | resqrtcld 15364 |
. . . . . . . . . . . . . . 15
โข (๐ด โ โ โ
(โโ((absโ๐ด) โ (โโ๐ด))) โ โ) |
91 | 90 | recnd 11242 |
. . . . . . . . . . . . . 14
โข (๐ด โ โ โ
(โโ((absโ๐ด) โ (โโ๐ด))) โ โ) |
92 | | sqrt00 15210 |
. . . . . . . . . . . . . . . . . 18
โข ((2
โ โ โง 0 โค 2) โ ((โโ2) = 0 โ 2 =
0)) |
93 | 84, 86, 92 | mp2an 691 |
. . . . . . . . . . . . . . . . 17
โข
((โโ2) = 0 โ 2 = 0) |
94 | 93 | necon3bii 2994 |
. . . . . . . . . . . . . . . 16
โข
((โโ2) โ 0 โ 2 โ 0) |
95 | 58, 94 | mpbir 230 |
. . . . . . . . . . . . . . 15
โข
(โโ2) โ 0 |
96 | 95 | a1i 11 |
. . . . . . . . . . . . . 14
โข (๐ด โ โ โ
(โโ2) โ 0) |
97 | 83, 89, 91, 89, 96, 96 | divmuldivd 12031 |
. . . . . . . . . . . . 13
โข (๐ด โ โ โ
(((โโ((absโ๐ด) + (โโ๐ด))) / (โโ2)) ยท
((โโ((absโ๐ด) โ (โโ๐ด))) / (โโ2))) =
(((โโ((absโ๐ด) + (โโ๐ด))) ยท
(โโ((absโ๐ด) โ (โโ๐ด)))) / ((โโ2) ยท
(โโ2)))) |
98 | 18 | resqcld 14090 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ด โ โ โ
((โโ๐ด)โ2)
โ โ) |
99 | 98 | recnd 11242 |
. . . . . . . . . . . . . . . . . 18
โข (๐ด โ โ โ
((โโ๐ด)โ2)
โ โ) |
100 | | imcl 15058 |
. . . . . . . . . . . . . . . . . . . 20
โข (๐ด โ โ โ
(โโ๐ด) โ
โ) |
101 | 100 | resqcld 14090 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ด โ โ โ
((โโ๐ด)โ2)
โ โ) |
102 | 101 | recnd 11242 |
. . . . . . . . . . . . . . . . . 18
โข (๐ด โ โ โ
((โโ๐ด)โ2)
โ โ) |
103 | | absvalsq2 15228 |
. . . . . . . . . . . . . . . . . 18
โข (๐ด โ โ โ
((absโ๐ด)โ2) =
(((โโ๐ด)โ2)
+ ((โโ๐ด)โ2))) |
104 | 99, 102, 103 | mvrladdd 11627 |
. . . . . . . . . . . . . . . . 17
โข (๐ด โ โ โ
(((absโ๐ด)โ2)
โ ((โโ๐ด)โ2)) = ((โโ๐ด)โ2)) |
105 | | subsq 14174 |
. . . . . . . . . . . . . . . . . 18
โข
(((absโ๐ด)
โ โ โง (โโ๐ด) โ โ) โ (((absโ๐ด)โ2) โ
((โโ๐ด)โ2))
= (((absโ๐ด) +
(โโ๐ด)) ยท
((absโ๐ด) โ
(โโ๐ด)))) |
106 | 49, 50, 105 | syl2anc 585 |
. . . . . . . . . . . . . . . . 17
โข (๐ด โ โ โ
(((absโ๐ด)โ2)
โ ((โโ๐ด)โ2)) = (((absโ๐ด) + (โโ๐ด)) ยท ((absโ๐ด) โ (โโ๐ด)))) |
107 | 104, 106 | eqtr3d 2775 |
. . . . . . . . . . . . . . . 16
โข (๐ด โ โ โ
((โโ๐ด)โ2)
= (((absโ๐ด) +
(โโ๐ด)) ยท
((absโ๐ด) โ
(โโ๐ด)))) |
108 | 107 | fveq2d 6896 |
. . . . . . . . . . . . . . 15
โข (๐ด โ โ โ
(โโ((โโ๐ด)โ2)) =
(โโ(((absโ๐ด) + (โโ๐ด)) ยท ((absโ๐ด) โ (โโ๐ด))))) |
109 | 100 | absred 15363 |
. . . . . . . . . . . . . . . 16
โข (๐ด โ โ โ
(absโ(โโ๐ด)) = (โโ((โโ๐ด)โ2))) |
110 | | reabsifneg 42383 |
. . . . . . . . . . . . . . . . 17
โข
((โโ๐ด)
โ โ โ (absโ(โโ๐ด)) = if((โโ๐ด) < 0, -(โโ๐ด), (โโ๐ด))) |
111 | 100, 110 | syl 17 |
. . . . . . . . . . . . . . . 16
โข (๐ด โ โ โ
(absโ(โโ๐ด)) = if((โโ๐ด) < 0, -(โโ๐ด), (โโ๐ด))) |
112 | 109, 111 | eqtr3d 2775 |
. . . . . . . . . . . . . . 15
โข (๐ด โ โ โ
(โโ((โโ๐ด)โ2)) = if((โโ๐ด) < 0, -(โโ๐ด), (โโ๐ด))) |
113 | 19, 72, 37, 79 | sqrtmuld 15371 |
. . . . . . . . . . . . . . 15
โข (๐ด โ โ โ
(โโ(((absโ๐ด) + (โโ๐ด)) ยท ((absโ๐ด) โ (โโ๐ด)))) = ((โโ((absโ๐ด) + (โโ๐ด))) ยท
(โโ((absโ๐ด) โ (โโ๐ด))))) |
114 | 108, 112,
113 | 3eqtr3rd 2782 |
. . . . . . . . . . . . . 14
โข (๐ด โ โ โ
((โโ((absโ๐ด) + (โโ๐ด))) ยท
(โโ((absโ๐ด) โ (โโ๐ด)))) = if((โโ๐ด) < 0, -(โโ๐ด), (โโ๐ด))) |
115 | | remsqsqrt 15203 |
. . . . . . . . . . . . . . . 16
โข ((2
โ โ โง 0 โค 2) โ ((โโ2) ยท
(โโ2)) = 2) |
116 | 84, 86, 115 | mp2an 691 |
. . . . . . . . . . . . . . 15
โข
((โโ2) ยท (โโ2)) = 2 |
117 | 116 | a1i 11 |
. . . . . . . . . . . . . 14
โข (๐ด โ โ โ
((โโ2) ยท (โโ2)) = 2) |
118 | 114, 117 | oveq12d 7427 |
. . . . . . . . . . . . 13
โข (๐ด โ โ โ
(((โโ((absโ๐ด) + (โโ๐ด))) ยท
(โโ((absโ๐ด) โ (โโ๐ด)))) / ((โโ2) ยท
(โโ2))) = (if((โโ๐ด) < 0, -(โโ๐ด), (โโ๐ด)) / 2)) |
119 | 81, 97, 118 | 3eqtrd 2777 |
. . . . . . . . . . . 12
โข (๐ด โ โ โ
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2))) = (if((โโ๐ด) < 0, -(โโ๐ด), (โโ๐ด)) / 2)) |
120 | 119 | oveq2d 7425 |
. . . . . . . . . . 11
โข (๐ด โ โ โ
(if((โโ๐ด) <
0, -1, 1) ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))) = (if((โโ๐ด) < 0, -1, 1) ยท
(if((โโ๐ด) <
0, -(โโ๐ด),
(โโ๐ด)) /
2))) |
121 | 68, 120 | eqtrd 2773 |
. . . . . . . . . 10
โข (๐ด โ โ โ
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))) = (if((โโ๐ด) < 0, -1, 1) ยท
(if((โโ๐ด) <
0, -(โโ๐ด),
(โโ๐ด)) /
2))) |
122 | 121 | oveq2d 7425 |
. . . . . . . . 9
โข (๐ด โ โ โ (2
ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))) = (2 ยท
(if((โโ๐ด) <
0, -1, 1) ยท (if((โโ๐ด) < 0, -(โโ๐ด), (โโ๐ด)) / 2)))) |
123 | 100 | renegcld 11641 |
. . . . . . . . . . . . . . 15
โข (๐ด โ โ โ
-(โโ๐ด) โ
โ) |
124 | 123, 100 | ifcld 4575 |
. . . . . . . . . . . . . 14
โข (๐ด โ โ โ
if((โโ๐ด) <
0, -(โโ๐ด),
(โโ๐ด)) โ
โ) |
125 | 124 | recnd 11242 |
. . . . . . . . . . . . 13
โข (๐ด โ โ โ
if((โโ๐ด) <
0, -(โโ๐ด),
(โโ๐ด)) โ
โ) |
126 | 26, 125, 57, 59 | divassd 12025 |
. . . . . . . . . . . 12
โข (๐ด โ โ โ
((if((โโ๐ด) <
0, -1, 1) ยท if((โโ๐ด) < 0, -(โโ๐ด), (โโ๐ด))) / 2) = (if((โโ๐ด) < 0, -1, 1) ยท
(if((โโ๐ด) <
0, -(โโ๐ด),
(โโ๐ด)) /
2))) |
127 | | ovif12 7508 |
. . . . . . . . . . . . . 14
โข
(if((โโ๐ด) < 0, -1, 1) ยท
if((โโ๐ด) <
0, -(โโ๐ด),
(โโ๐ด))) =
if((โโ๐ด) <
0, (-1 ยท -(โโ๐ด)), (1 ยท (โโ๐ด))) |
128 | 5 | a1i 11 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ด โ โ โ -1 โ
โ) |
129 | 128 | recnd 11242 |
. . . . . . . . . . . . . . . . . 18
โข (๐ด โ โ โ -1 โ
โ) |
130 | 100 | recnd 11242 |
. . . . . . . . . . . . . . . . . 18
โข (๐ด โ โ โ
(โโ๐ด) โ
โ) |
131 | 129, 129,
130 | mulassd 11237 |
. . . . . . . . . . . . . . . . 17
โข (๐ด โ โ โ ((-1
ยท -1) ยท (โโ๐ด)) = (-1 ยท (-1 ยท
(โโ๐ด)))) |
132 | | neg1mulneg1e1 12425 |
. . . . . . . . . . . . . . . . . . . 20
โข (-1
ยท -1) = 1 |
133 | 132 | a1i 11 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ด โ โ โ (-1
ยท -1) = 1) |
134 | 133 | oveq1d 7424 |
. . . . . . . . . . . . . . . . . 18
โข (๐ด โ โ โ ((-1
ยท -1) ยท (โโ๐ด)) = (1 ยท (โโ๐ด))) |
135 | 130 | mullidd 11232 |
. . . . . . . . . . . . . . . . . 18
โข (๐ด โ โ โ (1
ยท (โโ๐ด))
= (โโ๐ด)) |
136 | 134, 135 | eqtrd 2773 |
. . . . . . . . . . . . . . . . 17
โข (๐ด โ โ โ ((-1
ยท -1) ยท (โโ๐ด)) = (โโ๐ด)) |
137 | 130 | mulm1d 11666 |
. . . . . . . . . . . . . . . . . 18
โข (๐ด โ โ โ (-1
ยท (โโ๐ด))
= -(โโ๐ด)) |
138 | 137 | oveq2d 7425 |
. . . . . . . . . . . . . . . . 17
โข (๐ด โ โ โ (-1
ยท (-1 ยท (โโ๐ด))) = (-1 ยท -(โโ๐ด))) |
139 | 131, 136,
138 | 3eqtr3rd 2782 |
. . . . . . . . . . . . . . . 16
โข (๐ด โ โ โ (-1
ยท -(โโ๐ด)) = (โโ๐ด)) |
140 | 139 | adantr 482 |
. . . . . . . . . . . . . . 15
โข ((๐ด โ โ โง
(โโ๐ด) < 0)
โ (-1 ยท -(โโ๐ด)) = (โโ๐ด)) |
141 | 135 | adantr 482 |
. . . . . . . . . . . . . . 15
โข ((๐ด โ โ โง ยฌ
(โโ๐ด) < 0)
โ (1 ยท (โโ๐ด)) = (โโ๐ด)) |
142 | 140, 141 | ifeqda 4565 |
. . . . . . . . . . . . . 14
โข (๐ด โ โ โ
if((โโ๐ด) <
0, (-1 ยท -(โโ๐ด)), (1 ยท (โโ๐ด))) = (โโ๐ด)) |
143 | 127, 142 | eqtrid 2785 |
. . . . . . . . . . . . 13
โข (๐ด โ โ โ
(if((โโ๐ด) <
0, -1, 1) ยท if((โโ๐ด) < 0, -(โโ๐ด), (โโ๐ด))) = (โโ๐ด)) |
144 | 143 | oveq1d 7424 |
. . . . . . . . . . . 12
โข (๐ด โ โ โ
((if((โโ๐ด) <
0, -1, 1) ยท if((โโ๐ด) < 0, -(โโ๐ด), (โโ๐ด))) / 2) = ((โโ๐ด) / 2)) |
145 | 126, 144 | eqtr3d 2775 |
. . . . . . . . . . 11
โข (๐ด โ โ โ
(if((โโ๐ด) <
0, -1, 1) ยท (if((โโ๐ด) < 0, -(โโ๐ด), (โโ๐ด)) / 2)) = ((โโ๐ด) / 2)) |
146 | 145 | oveq2d 7425 |
. . . . . . . . . 10
โข (๐ด โ โ โ (2
ยท (if((โโ๐ด) < 0, -1, 1) ยท
(if((โโ๐ด) <
0, -(โโ๐ด),
(โโ๐ด)) / 2))) =
(2 ยท ((โโ๐ด) / 2))) |
147 | 130, 57, 59 | divcan2d 11992 |
. . . . . . . . . 10
โข (๐ด โ โ โ (2
ยท ((โโ๐ด)
/ 2)) = (โโ๐ด)) |
148 | 146, 147 | eqtrd 2773 |
. . . . . . . . 9
โข (๐ด โ โ โ (2
ยท (if((โโ๐ด) < 0, -1, 1) ยท
(if((โโ๐ด) <
0, -(โโ๐ด),
(โโ๐ด)) / 2))) =
(โโ๐ด)) |
149 | 67, 122, 148 | 3eqtrd 2777 |
. . . . . . . 8
โข (๐ด โ โ โ ((2
ยท (โโ(((absโ๐ด) + (โโ๐ด)) / 2))) ยท (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))) = (โโ๐ด)) |
150 | 149 | oveq2d 7425 |
. . . . . . 7
โข (๐ด โ โ โ (i
ยท ((2 ยท (โโ(((absโ๐ด) + (โโ๐ด)) / 2))) ยท (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))) = (i ยท
(โโ๐ด))) |
151 | 65, 66, 150 | 3eqtr3d 2781 |
. . . . . 6
โข (๐ด โ โ โ (2
ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))) = (i ยท
(โโ๐ด))) |
152 | 63, 151 | oveq12d 7427 |
. . . . 5
โข (๐ด โ โ โ
((((โโ(((absโ๐ด) + (โโ๐ด)) / 2))โ2) + ((i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))โ2)) + (2 ยท
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) = ((โโ๐ด) + (i ยท
(โโ๐ด)))) |
153 | 1 | resqcld 14090 |
. . . . . . 7
โข (๐ด โ โ โ
((โโ(((absโ๐ด) + (โโ๐ด)) / 2))โ2) โ
โ) |
154 | 153 | recnd 11242 |
. . . . . 6
โข (๐ด โ โ โ
((โโ(((absโ๐ด) + (โโ๐ด)) / 2))โ2) โ
โ) |
155 | 2, 12 | mulcld 11234 |
. . . . . . 7
โข (๐ด โ โ โ
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))) โ โ) |
156 | 57, 155 | mulcld 11234 |
. . . . . 6
โข (๐ด โ โ โ (2
ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))) โ
โ) |
157 | 12 | sqcld 14109 |
. . . . . 6
โข (๐ด โ โ โ ((i
ยท (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))โ2) โ
โ) |
158 | 154, 156,
157 | add32d 11441 |
. . . . 5
โข (๐ด โ โ โ
((((โโ(((absโ๐ด) + (โโ๐ด)) / 2))โ2) + (2 ยท
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) + ((i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))โ2)) =
((((โโ(((absโ๐ด) + (โโ๐ด)) / 2))โ2) + ((i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))โ2)) + (2 ยท
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))))) |
159 | | replim 15063 |
. . . . 5
โข (๐ด โ โ โ ๐ด = ((โโ๐ด) + (i ยท
(โโ๐ด)))) |
160 | 152, 158,
159 | 3eqtr4d 2783 |
. . . 4
โข (๐ด โ โ โ
((((โโ(((absโ๐ด) + (โโ๐ด)) / 2))โ2) + (2 ยท
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) ยท (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) + ((i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))โ2)) = ๐ด) |
161 | 16, 160 | eqtrd 2773 |
. . 3
โข (๐ด โ โ โ
(((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))โ2) = ๐ด) |
162 | 20, 69 | sqrtge0d 15367 |
. . . 4
โข (๐ด โ โ โ 0 โค
(โโ(((absโ๐ด) + (โโ๐ด)) / 2))) |
163 | 1, 10 | crred 15178 |
. . . 4
โข (๐ด โ โ โ
(โโ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))) =
(โโ(((absโ๐ด) + (โโ๐ด)) / 2))) |
164 | 162, 163 | breqtrrd 5177 |
. . 3
โข (๐ด โ โ โ 0 โค
(โโ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) |
165 | | reim 15056 |
. . . . . . . . . 10
โข
(((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))) โ โ โ
(โโ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))) = (โโ(i ยท
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))))) |
166 | 13, 165 | syl 17 |
. . . . . . . . 9
โข (๐ด โ โ โ
(โโ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))) = (โโ(i ยท
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))))) |
167 | 166, 163 | eqtr3d 2775 |
. . . . . . . 8
โข (๐ด โ โ โ
(โโ(i ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) =
(โโ(((absโ๐ด) + (โโ๐ด)) / 2))) |
168 | 167 | eqeq1d 2735 |
. . . . . . 7
โข (๐ด โ โ โ
((โโ(i ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) = 0 โ
(โโ(((absโ๐ด) + (โโ๐ด)) / 2)) = 0)) |
169 | | cnsqrt00 15339 |
. . . . . . . 8
โข
((((absโ๐ด) +
(โโ๐ด)) / 2)
โ โ โ ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) = 0 โ (((absโ๐ด) + (โโ๐ด)) / 2) = 0)) |
170 | 21, 169 | syl 17 |
. . . . . . 7
โข (๐ด โ โ โ
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) = 0 โ (((absโ๐ด) + (โโ๐ด)) / 2) = 0)) |
171 | | half0 12439 |
. . . . . . . . 9
โข
(((absโ๐ด) +
(โโ๐ด)) โ
โ โ ((((absโ๐ด) + (โโ๐ด)) / 2) = 0 โ ((absโ๐ด) + (โโ๐ด)) = 0)) |
172 | 55, 171 | syl 17 |
. . . . . . . 8
โข (๐ด โ โ โ
((((absโ๐ด) +
(โโ๐ด)) / 2) = 0
โ ((absโ๐ด) +
(โโ๐ด)) =
0)) |
173 | 49, 50 | addcomd 11416 |
. . . . . . . . 9
โข (๐ด โ โ โ
((absโ๐ด) +
(โโ๐ด)) =
((โโ๐ด) +
(absโ๐ด))) |
174 | 173 | eqeq1d 2735 |
. . . . . . . 8
โข (๐ด โ โ โ
(((absโ๐ด) +
(โโ๐ด)) = 0
โ ((โโ๐ด) +
(absโ๐ด)) =
0)) |
175 | | addeq0 11637 |
. . . . . . . . 9
โข
(((โโ๐ด)
โ โ โง (absโ๐ด) โ โ) โ
(((โโ๐ด) +
(absโ๐ด)) = 0 โ
(โโ๐ด) =
-(absโ๐ด))) |
176 | 50, 49, 175 | syl2anc 585 |
. . . . . . . 8
โข (๐ด โ โ โ
(((โโ๐ด) +
(absโ๐ด)) = 0 โ
(โโ๐ด) =
-(absโ๐ด))) |
177 | 172, 174,
176 | 3bitrd 305 |
. . . . . . 7
โข (๐ด โ โ โ
((((absโ๐ด) +
(โโ๐ด)) / 2) = 0
โ (โโ๐ด) =
-(absโ๐ด))) |
178 | 168, 170,
177 | 3bitrd 305 |
. . . . . 6
โข (๐ด โ โ โ
((โโ(i ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) = 0 โ (โโ๐ด) = -(absโ๐ด))) |
179 | | olc 867 |
. . . . . . . 8
โข
((โโ๐ด) =
-(absโ๐ด) โ
((โโ๐ด) =
(absโ๐ด) โจ
(โโ๐ด) =
-(absโ๐ด))) |
180 | | eqcom 2740 |
. . . . . . . . . 10
โข
(((โโ๐ด)โ2) = ((absโ๐ด)โ2) โ ((absโ๐ด)โ2) = ((โโ๐ด)โ2)) |
181 | 180 | a1i 11 |
. . . . . . . . 9
โข (๐ด โ โ โ
(((โโ๐ด)โ2)
= ((absโ๐ด)โ2)
โ ((absโ๐ด)โ2) = ((โโ๐ด)โ2))) |
182 | | sqeqor 14180 |
. . . . . . . . . 10
โข
(((โโ๐ด)
โ โ โง (absโ๐ด) โ โ) โ
(((โโ๐ด)โ2)
= ((absโ๐ด)โ2)
โ ((โโ๐ด) =
(absโ๐ด) โจ
(โโ๐ด) =
-(absโ๐ด)))) |
183 | 50, 49, 182 | syl2anc 585 |
. . . . . . . . 9
โข (๐ด โ โ โ
(((โโ๐ด)โ2)
= ((absโ๐ด)โ2)
โ ((โโ๐ด) =
(absโ๐ด) โจ
(โโ๐ด) =
-(absโ๐ด)))) |
184 | 103 | eqeq1d 2735 |
. . . . . . . . . 10
โข (๐ด โ โ โ
(((absโ๐ด)โ2) =
((โโ๐ด)โ2)
โ (((โโ๐ด)โ2) + ((โโ๐ด)โ2)) =
((โโ๐ด)โ2))) |
185 | | addid0 11633 |
. . . . . . . . . . 11
โข
((((โโ๐ด)โ2) โ โ โง
((โโ๐ด)โ2)
โ โ) โ ((((โโ๐ด)โ2) + ((โโ๐ด)โ2)) =
((โโ๐ด)โ2)
โ ((โโ๐ด)โ2) = 0)) |
186 | 99, 102, 185 | syl2anc 585 |
. . . . . . . . . 10
โข (๐ด โ โ โ
((((โโ๐ด)โ2)
+ ((โโ๐ด)โ2)) = ((โโ๐ด)โ2) โ
((โโ๐ด)โ2)
= 0)) |
187 | | sqeq0 14085 |
. . . . . . . . . . 11
โข
((โโ๐ด)
โ โ โ (((โโ๐ด)โ2) = 0 โ (โโ๐ด) = 0)) |
188 | 130, 187 | syl 17 |
. . . . . . . . . 10
โข (๐ด โ โ โ
(((โโ๐ด)โ2)
= 0 โ (โโ๐ด) = 0)) |
189 | 184, 186,
188 | 3bitrd 305 |
. . . . . . . . 9
โข (๐ด โ โ โ
(((absโ๐ด)โ2) =
((โโ๐ด)โ2)
โ (โโ๐ด) =
0)) |
190 | 181, 183,
189 | 3bitr3d 309 |
. . . . . . . 8
โข (๐ด โ โ โ
(((โโ๐ด) =
(absโ๐ด) โจ
(โโ๐ด) =
-(absโ๐ด)) โ
(โโ๐ด) =
0)) |
191 | 179, 190 | imbitrid 243 |
. . . . . . 7
โข (๐ด โ โ โ
((โโ๐ด) =
-(absโ๐ด) โ
(โโ๐ด) =
0)) |
192 | 191 | ancld 552 |
. . . . . 6
โข (๐ด โ โ โ
((โโ๐ด) =
-(absโ๐ด) โ
((โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) =
0))) |
193 | 178, 192 | sylbid 239 |
. . . . 5
โข (๐ด โ โ โ
((โโ(i ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) = 0 โ
((โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) =
0))) |
194 | | simp2 1138 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (โโ๐ด) =
-(absโ๐ด)) |
195 | 194 | oveq2d 7425 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ ((absโ๐ด) +
(โโ๐ด)) =
((absโ๐ด) +
-(absโ๐ด))) |
196 | 49 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (absโ๐ด) โ
โ) |
197 | 196 | negidd 11561 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ ((absโ๐ด) +
-(absโ๐ด)) =
0) |
198 | 195, 197 | eqtrd 2773 |
. . . . . . . . . . . . . . . . 17
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ ((absโ๐ด) +
(โโ๐ด)) =
0) |
199 | 198 | oveq1d 7424 |
. . . . . . . . . . . . . . . 16
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (((absโ๐ด) +
(โโ๐ด)) / 2) = (0
/ 2)) |
200 | | 2cn 12287 |
. . . . . . . . . . . . . . . . 17
โข 2 โ
โ |
201 | 200, 58 | div0i 11948 |
. . . . . . . . . . . . . . . 16
โข (0 / 2) =
0 |
202 | 199, 201 | eqtrdi 2789 |
. . . . . . . . . . . . . . 15
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (((absโ๐ด) +
(โโ๐ด)) / 2) =
0) |
203 | 202 | fveq2d 6896 |
. . . . . . . . . . . . . 14
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (โโ(((absโ๐ด) + (โโ๐ด)) / 2)) =
(โโ0)) |
204 | | sqrt0 15188 |
. . . . . . . . . . . . . 14
โข
(โโ0) = 0 |
205 | 203, 204 | eqtrdi 2789 |
. . . . . . . . . . . . 13
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (โโ(((absโ๐ด) + (โโ๐ด)) / 2)) = 0) |
206 | | simp3 1139 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (โโ๐ด) =
0) |
207 | | 0red 11217 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ 0 โ โ) |
208 | 207 | ltnrd 11348 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ ยฌ 0 < 0) |
209 | 206, 208 | eqnbrtrd 5167 |
. . . . . . . . . . . . . . . . 17
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ ยฌ (โโ๐ด) < 0) |
210 | 209 | iffalsed 4540 |
. . . . . . . . . . . . . . . 16
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ if((โโ๐ด)
< 0, -1, 1) = 1) |
211 | 194 | oveq2d 7425 |
. . . . . . . . . . . . . . . . . . . 20
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ ((absโ๐ด)
โ (โโ๐ด)) =
((absโ๐ด) โ
-(absโ๐ด))) |
212 | 49, 49 | subnegd 11578 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (๐ด โ โ โ
((absโ๐ด) โ
-(absโ๐ด)) =
((absโ๐ด) +
(absโ๐ด))) |
213 | 49 | 2timesd 12455 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (๐ด โ โ โ (2
ยท (absโ๐ด)) =
((absโ๐ด) +
(absโ๐ด))) |
214 | 212, 213 | eqtr4d 2776 |
. . . . . . . . . . . . . . . . . . . . 21
โข (๐ด โ โ โ
((absโ๐ด) โ
-(absโ๐ด)) = (2
ยท (absโ๐ด))) |
215 | 214 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . . . . . . 20
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ ((absโ๐ด)
โ -(absโ๐ด)) =
(2 ยท (absโ๐ด))) |
216 | 211, 215 | eqtrd 2773 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ ((absโ๐ด)
โ (โโ๐ด)) =
(2 ยท (absโ๐ด))) |
217 | 216 | oveq1d 7424 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (((absโ๐ด)
โ (โโ๐ด)) /
2) = ((2 ยท (absโ๐ด)) / 2)) |
218 | 49, 57, 59 | divcan3d 11995 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ด โ โ โ ((2
ยท (absโ๐ด)) /
2) = (absโ๐ด)) |
219 | 218 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ ((2 ยท (absโ๐ด)) / 2) = (absโ๐ด)) |
220 | 217, 219 | eqtrd 2773 |
. . . . . . . . . . . . . . . . 17
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (((absโ๐ด)
โ (โโ๐ด)) /
2) = (absโ๐ด)) |
221 | 220 | fveq2d 6896 |
. . . . . . . . . . . . . . . 16
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)) = (โโ(absโ๐ด))) |
222 | 210, 221 | oveq12d 7427 |
. . . . . . . . . . . . . . 15
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2))) = (1 ยท
(โโ(absโ๐ด)))) |
223 | | absge0 15234 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ด โ โ โ 0 โค
(absโ๐ด)) |
224 | 17, 223 | resqrtcld 15364 |
. . . . . . . . . . . . . . . . . 18
โข (๐ด โ โ โ
(โโ(absโ๐ด)) โ โ) |
225 | 224 | recnd 11242 |
. . . . . . . . . . . . . . . . 17
โข (๐ด โ โ โ
(โโ(absโ๐ด)) โ โ) |
226 | 225 | mullidd 11232 |
. . . . . . . . . . . . . . . 16
โข (๐ด โ โ โ (1
ยท (โโ(absโ๐ด))) = (โโ(absโ๐ด))) |
227 | 226 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . 15
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (1 ยท (โโ(absโ๐ด))) = (โโ(absโ๐ด))) |
228 | 222, 227 | eqtrd 2773 |
. . . . . . . . . . . . . 14
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2))) = (โโ(absโ๐ด))) |
229 | 228 | oveq2d 7425 |
. . . . . . . . . . . . 13
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (i ยท (if((โโ๐ด) < 0, -1, 1) ยท
(โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))) = (i ยท
(โโ(absโ๐ด)))) |
230 | 205, 229 | oveq12d 7427 |
. . . . . . . . . . . 12
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))) = (0 + (i ยท
(โโ(absโ๐ด))))) |
231 | 4, 225 | mulcld 11234 |
. . . . . . . . . . . . . 14
โข (๐ด โ โ โ (i
ยท (โโ(absโ๐ด))) โ โ) |
232 | 231 | 3ad2ant1 1134 |
. . . . . . . . . . . . 13
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (i ยท (โโ(absโ๐ด))) โ โ) |
233 | 232 | addlidd 11415 |
. . . . . . . . . . . 12
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (0 + (i ยท (โโ(absโ๐ด)))) = (i ยท
(โโ(absโ๐ด)))) |
234 | 230, 233 | eqtrd 2773 |
. . . . . . . . . . 11
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))) = (i ยท
(โโ(absโ๐ด)))) |
235 | 234 | oveq2d 7425 |
. . . . . . . . . 10
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (i ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))) = (i ยท (i ยท
(โโ(absโ๐ด))))) |
236 | | ixi 11843 |
. . . . . . . . . . . . . 14
โข (i
ยท i) = -1 |
237 | 236 | a1i 11 |
. . . . . . . . . . . . 13
โข (๐ด โ โ โ (i
ยท i) = -1) |
238 | 237 | oveq1d 7424 |
. . . . . . . . . . . 12
โข (๐ด โ โ โ ((i
ยท i) ยท (โโ(absโ๐ด))) = (-1 ยท
(โโ(absโ๐ด)))) |
239 | 4, 4, 225 | mulassd 11237 |
. . . . . . . . . . . 12
โข (๐ด โ โ โ ((i
ยท i) ยท (โโ(absโ๐ด))) = (i ยท (i ยท
(โโ(absโ๐ด))))) |
240 | 225 | mulm1d 11666 |
. . . . . . . . . . . 12
โข (๐ด โ โ โ (-1
ยท (โโ(absโ๐ด))) = -(โโ(absโ๐ด))) |
241 | 238, 239,
240 | 3eqtr3d 2781 |
. . . . . . . . . . 11
โข (๐ด โ โ โ (i
ยท (i ยท (โโ(absโ๐ด)))) = -(โโ(absโ๐ด))) |
242 | 241 | 3ad2ant1 1134 |
. . . . . . . . . 10
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (i ยท (i ยท (โโ(absโ๐ด)))) = -(โโ(absโ๐ด))) |
243 | 235, 242 | eqtrd 2773 |
. . . . . . . . 9
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (i ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))) =
-(โโ(absโ๐ด))) |
244 | 243 | fveq2d 6896 |
. . . . . . . 8
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (โโ(i ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) =
(โโ-(โโ(absโ๐ด)))) |
245 | 224 | renegcld 11641 |
. . . . . . . . . 10
โข (๐ด โ โ โ
-(โโ(absโ๐ด)) โ โ) |
246 | 245 | rered 15171 |
. . . . . . . . 9
โข (๐ด โ โ โ
(โโ-(โโ(absโ๐ด))) = -(โโ(absโ๐ด))) |
247 | 246 | 3ad2ant1 1134 |
. . . . . . . 8
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (โโ-(โโ(absโ๐ด))) = -(โโ(absโ๐ด))) |
248 | 244, 247 | eqtrd 2773 |
. . . . . . 7
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (โโ(i ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) =
-(โโ(absโ๐ด))) |
249 | 17, 223 | sqrtge0d 15367 |
. . . . . . . . 9
โข (๐ด โ โ โ 0 โค
(โโ(absโ๐ด))) |
250 | 224 | le0neg2d 11786 |
. . . . . . . . 9
โข (๐ด โ โ โ (0 โค
(โโ(absโ๐ด)) โ -(โโ(absโ๐ด)) โค 0)) |
251 | 249, 250 | mpbid 231 |
. . . . . . . 8
โข (๐ด โ โ โ
-(โโ(absโ๐ด)) โค 0) |
252 | 251 | 3ad2ant1 1134 |
. . . . . . 7
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ -(โโ(absโ๐ด)) โค 0) |
253 | 248, 252 | eqbrtrd 5171 |
. . . . . 6
โข ((๐ด โ โ โง
(โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (โโ(i ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) โค 0) |
254 | 253 | 3expib 1123 |
. . . . 5
โข (๐ด โ โ โ
(((โโ๐ด) =
-(absโ๐ด) โง
(โโ๐ด) = 0)
โ (โโ(i ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) โค 0)) |
255 | 193, 254 | syld 47 |
. . . 4
โข (๐ด โ โ โ
((โโ(i ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) = 0 โ (โโ(i
ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) โค 0)) |
256 | 4, 13 | mulcld 11234 |
. . . . 5
โข (๐ด โ โ โ (i
ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))) โ
โ) |
257 | 256 | sqrtcvallem1 42382 |
. . . 4
โข (๐ด โ โ โ
(((โโ(i ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) = 0 โ (โโ(i
ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))))) โค 0) โ ยฌ (i
ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))) โ
โ+)) |
258 | 255, 257 | mpbid 231 |
. . 3
โข (๐ด โ โ โ ยฌ (i
ยท ((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))) โ
โ+) |
259 | 13, 14, 161, 164, 258 | eqsqrtd 15314 |
. 2
โข (๐ด โ โ โ
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2))))) = (โโ๐ด)) |
260 | 259 | eqcomd 2739 |
1
โข (๐ด โ โ โ
(โโ๐ด) =
((โโ(((absโ๐ด) + (โโ๐ด)) / 2)) + (i ยท
(if((โโ๐ด) <
0, -1, 1) ยท (โโ(((absโ๐ด) โ (โโ๐ด)) / 2)))))) |