Step | Hyp | Ref
| Expression |
1 | | subcl 11455 |
. . . . 5
โข ((๐ด โ โ โง ๐ถ โ โ) โ (๐ด โ ๐ถ) โ โ) |
2 | 1 | 3adant2 1131 |
. . . 4
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ด โ ๐ถ) โ โ) |
3 | 2 | adantr 481 |
. . 3
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (๐ด โ ๐ถ) โ โ) |
4 | | subcl 11455 |
. . . . 5
โข ((๐ต โ โ โง ๐ถ โ โ) โ (๐ต โ ๐ถ) โ โ) |
5 | 4 | 3adant1 1130 |
. . . 4
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ต โ ๐ถ) โ โ) |
6 | 5 | adantr 481 |
. . 3
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (๐ต โ ๐ถ) โ โ) |
7 | | subeq0 11482 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ถ โ โ) โ ((๐ด โ ๐ถ) = 0 โ ๐ด = ๐ถ)) |
8 | 7 | necon3bid 2985 |
. . . . . . 7
โข ((๐ด โ โ โง ๐ถ โ โ) โ ((๐ด โ ๐ถ) โ 0 โ ๐ด โ ๐ถ)) |
9 | 8 | bicomd 222 |
. . . . . 6
โข ((๐ด โ โ โง ๐ถ โ โ) โ (๐ด โ ๐ถ โ (๐ด โ ๐ถ) โ 0)) |
10 | 9 | 3adant2 1131 |
. . . . 5
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ด โ ๐ถ โ (๐ด โ ๐ถ) โ 0)) |
11 | 10 | biimpa 477 |
. . . 4
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ๐ด โ ๐ถ) โ (๐ด โ ๐ถ) โ 0) |
12 | 11 | adantrr 715 |
. . 3
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (๐ด โ ๐ถ) โ 0) |
13 | | subeq0 11482 |
. . . . . . . 8
โข ((๐ต โ โ โง ๐ถ โ โ) โ ((๐ต โ ๐ถ) = 0 โ ๐ต = ๐ถ)) |
14 | 13 | necon3bid 2985 |
. . . . . . 7
โข ((๐ต โ โ โง ๐ถ โ โ) โ ((๐ต โ ๐ถ) โ 0 โ ๐ต โ ๐ถ)) |
15 | 14 | bicomd 222 |
. . . . . 6
โข ((๐ต โ โ โง ๐ถ โ โ) โ (๐ต โ ๐ถ โ (๐ต โ ๐ถ) โ 0)) |
16 | 15 | 3adant1 1130 |
. . . . 5
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ต โ ๐ถ โ (๐ต โ ๐ถ) โ 0)) |
17 | 16 | biimpa 477 |
. . . 4
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ๐ต โ ๐ถ) โ (๐ต โ ๐ถ) โ 0) |
18 | 17 | adantrl 714 |
. . 3
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (๐ต โ ๐ถ) โ 0) |
19 | 3, 6, 12, 18 | lawcoslem1 26309 |
. 2
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ ((absโ((๐ด โ ๐ถ) โ (๐ต โ ๐ถ)))โ2) = ((((absโ(๐ด โ ๐ถ))โ2) + ((absโ(๐ต โ ๐ถ))โ2)) โ (2 ยท
(((absโ(๐ด โ
๐ถ)) ยท
(absโ(๐ต โ ๐ถ))) ยท
((โโ((๐ด โ
๐ถ) / (๐ต โ ๐ถ))) / (absโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)))))))) |
20 | | lawcos.4 |
. . . . 5
โข ๐ = (absโ(๐ด โ ๐ต)) |
21 | | nnncan2 11493 |
. . . . . 6
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ((๐ด โ ๐ถ) โ (๐ต โ ๐ถ)) = (๐ด โ ๐ต)) |
22 | 21 | fveq2d 6892 |
. . . . 5
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ
(absโ((๐ด โ
๐ถ) โ (๐ต โ ๐ถ))) = (absโ(๐ด โ ๐ต))) |
23 | 20, 22 | eqtr4id 2791 |
. . . 4
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ = (absโ((๐ด โ ๐ถ) โ (๐ต โ ๐ถ)))) |
24 | 23 | oveq1d 7420 |
. . 3
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐โ2) = ((absโ((๐ด โ ๐ถ) โ (๐ต โ ๐ถ)))โ2)) |
25 | 24 | adantr 481 |
. 2
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (๐โ2) = ((absโ((๐ด โ ๐ถ) โ (๐ต โ ๐ถ)))โ2)) |
26 | | lawcos.2 |
. . . . . 6
โข ๐ = (absโ(๐ต โ ๐ถ)) |
27 | 26 | oveq1i 7415 |
. . . . 5
โข (๐โ2) = ((absโ(๐ต โ ๐ถ))โ2) |
28 | | lawcos.3 |
. . . . . 6
โข ๐ = (absโ(๐ด โ ๐ถ)) |
29 | 28 | oveq1i 7415 |
. . . . 5
โข (๐โ2) = ((absโ(๐ด โ ๐ถ))โ2) |
30 | 27, 29 | oveq12i 7417 |
. . . 4
โข ((๐โ2) + (๐โ2)) = (((absโ(๐ต โ ๐ถ))โ2) + ((absโ(๐ด โ ๐ถ))โ2)) |
31 | 3 | abscld 15379 |
. . . . . . 7
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (absโ(๐ด โ ๐ถ)) โ โ) |
32 | 31 | recnd 11238 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (absโ(๐ด โ ๐ถ)) โ โ) |
33 | 32 | sqcld 14105 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ ((absโ(๐ด โ ๐ถ))โ2) โ โ) |
34 | 6 | abscld 15379 |
. . . . . . 7
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (absโ(๐ต โ ๐ถ)) โ โ) |
35 | 34 | recnd 11238 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (absโ(๐ต โ ๐ถ)) โ โ) |
36 | 35 | sqcld 14105 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ ((absโ(๐ต โ ๐ถ))โ2) โ โ) |
37 | 33, 36 | addcomd 11412 |
. . . 4
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (((absโ(๐ด โ ๐ถ))โ2) + ((absโ(๐ต โ ๐ถ))โ2)) = (((absโ(๐ต โ ๐ถ))โ2) + ((absโ(๐ด โ ๐ถ))โ2))) |
38 | 30, 37 | eqtr4id 2791 |
. . 3
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ ((๐โ2) + (๐โ2)) = (((absโ(๐ด โ ๐ถ))โ2) + ((absโ(๐ต โ ๐ถ))โ2))) |
39 | 26, 28 | oveq12i 7417 |
. . . . . 6
โข (๐ ยท ๐) = ((absโ(๐ต โ ๐ถ)) ยท (absโ(๐ด โ ๐ถ))) |
40 | 32, 35 | mulcomd 11231 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ ((absโ(๐ด โ ๐ถ)) ยท (absโ(๐ต โ ๐ถ))) = ((absโ(๐ต โ ๐ถ)) ยท (absโ(๐ด โ ๐ถ)))) |
41 | 39, 40 | eqtr4id 2791 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (๐ ยท ๐) = ((absโ(๐ด โ ๐ถ)) ยท (absโ(๐ต โ ๐ถ)))) |
42 | | lawcos.5 |
. . . . . . . . 9
โข ๐ = ((๐ต โ ๐ถ)๐น(๐ด โ ๐ถ)) |
43 | 42 | fveq2i 6891 |
. . . . . . . 8
โข
(cosโ๐) =
(cosโ((๐ต โ
๐ถ)๐น(๐ด โ ๐ถ))) |
44 | | lawcos.1 |
. . . . . . . . . 10
โข ๐น = (๐ฅ โ (โ โ {0}), ๐ฆ โ (โ โ {0})
โฆ (โโ(logโ(๐ฆ / ๐ฅ)))) |
45 | 44, 6, 18, 3, 12 | angvald 26298 |
. . . . . . . . 9
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ ((๐ต โ ๐ถ)๐น(๐ด โ ๐ถ)) = (โโ(logโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))))) |
46 | 45 | fveq2d 6892 |
. . . . . . . 8
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (cosโ((๐ต โ ๐ถ)๐น(๐ด โ ๐ถ))) =
(cosโ(โโ(logโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)))))) |
47 | 43, 46 | eqtrid 2784 |
. . . . . . 7
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (cosโ๐) =
(cosโ(โโ(logโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)))))) |
48 | 3, 6, 18 | divcld 11986 |
. . . . . . . . . 10
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)) โ โ) |
49 | 3, 6, 12, 18 | divne0d 12002 |
. . . . . . . . . 10
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)) โ 0) |
50 | 48, 49 | logcld 26070 |
. . . . . . . . 9
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (logโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))) โ โ) |
51 | 50 | imcld 15138 |
. . . . . . . 8
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (โโ(logโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)))) โ โ) |
52 | | recosval 16075 |
. . . . . . . 8
โข
((โโ(logโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)))) โ โ โ
(cosโ(โโ(logโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))))) = (โโ(expโ(i ยท
(โโ(logโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)))))))) |
53 | 51, 52 | syl 17 |
. . . . . . 7
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ
(cosโ(โโ(logโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))))) = (โโ(expโ(i ยท
(โโ(logโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)))))))) |
54 | 47, 53 | eqtrd 2772 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (cosโ๐) = (โโ(expโ(i ยท
(โโ(logโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)))))))) |
55 | | efiarg 26106 |
. . . . . . . 8
โข ((((๐ด โ ๐ถ) / (๐ต โ ๐ถ)) โ โ โง ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)) โ 0) โ (expโ(i ยท
(โโ(logโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)))))) = (((๐ด โ ๐ถ) / (๐ต โ ๐ถ)) / (absโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))))) |
56 | 48, 49, 55 | syl2anc 584 |
. . . . . . 7
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (expโ(i ยท
(โโ(logโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)))))) = (((๐ด โ ๐ถ) / (๐ต โ ๐ถ)) / (absโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))))) |
57 | 56 | fveq2d 6892 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (โโ(expโ(i
ยท (โโ(logโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))))))) = (โโ(((๐ด โ ๐ถ) / (๐ต โ ๐ถ)) / (absโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)))))) |
58 | 48 | abscld 15379 |
. . . . . . 7
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (absโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))) โ โ) |
59 | 48, 49 | absne0d 15390 |
. . . . . . 7
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (absโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))) โ 0) |
60 | 58, 48, 59 | redivd 15172 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (โโ(((๐ด โ ๐ถ) / (๐ต โ ๐ถ)) / (absโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))))) = ((โโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))) / (absโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))))) |
61 | 54, 57, 60 | 3eqtrd 2776 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (cosโ๐) = ((โโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))) / (absโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))))) |
62 | 41, 61 | oveq12d 7423 |
. . . 4
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ ((๐ ยท ๐) ยท (cosโ๐)) = (((absโ(๐ด โ ๐ถ)) ยท (absโ(๐ต โ ๐ถ))) ยท ((โโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))) / (absโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)))))) |
63 | 62 | oveq2d 7421 |
. . 3
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (2 ยท ((๐ ยท ๐) ยท (cosโ๐))) = (2 ยท (((absโ(๐ด โ ๐ถ)) ยท (absโ(๐ต โ ๐ถ))) ยท ((โโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))) / (absโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ))))))) |
64 | 38, 63 | oveq12d 7423 |
. 2
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (((๐โ2) + (๐โ2)) โ (2 ยท ((๐ ยท ๐) ยท (cosโ๐)))) = ((((absโ(๐ด โ ๐ถ))โ2) + ((absโ(๐ต โ ๐ถ))โ2)) โ (2 ยท
(((absโ(๐ด โ
๐ถ)) ยท
(absโ(๐ต โ ๐ถ))) ยท
((โโ((๐ด โ
๐ถ) / (๐ต โ ๐ถ))) / (absโ((๐ด โ ๐ถ) / (๐ต โ ๐ถ)))))))) |
65 | 19, 25, 64 | 3eqtr4d 2782 |
1
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง (๐ด โ ๐ถ โง ๐ต โ ๐ถ)) โ (๐โ2) = (((๐โ2) + (๐โ2)) โ (2 ยท ((๐ ยท ๐) ยท (cosโ๐))))) |