Step | Hyp | Ref
| Expression |
1 | | sqrt0 15184 |
. . . . 5
β’
(ββ0) = 0 |
2 | | fveq2 6888 |
. . . . 5
β’ (π΄ = 0 β (ββπ΄) =
(ββ0)) |
3 | | id 22 |
. . . . 5
β’ (π΄ = 0 β π΄ = 0) |
4 | 1, 2, 3 | 3eqtr4a 2798 |
. . . 4
β’ (π΄ = 0 β (ββπ΄) = π΄) |
5 | 4 | adantl 482 |
. . 3
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ = 0) β
(ββπ΄) = π΄) |
6 | | simpl2 1192 |
. . 3
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ = 0) β π΄ β πΎ) |
7 | 5, 6 | eqeltrd 2833 |
. 2
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ = 0) β
(ββπ΄) β
πΎ) |
8 | | simpl1 1191 |
. . . . . . 7
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β π β
βPreHil) |
9 | | cphsca.f |
. . . . . . . 8
β’ πΉ = (Scalarβπ) |
10 | | cphsca.k |
. . . . . . . 8
β’ πΎ = (BaseβπΉ) |
11 | 9, 10 | cphsubrg 24688 |
. . . . . . 7
β’ (π β βPreHil β
πΎ β
(SubRingββfld)) |
12 | 8, 11 | syl 17 |
. . . . . 6
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β πΎ β
(SubRingββfld)) |
13 | | cnfldbas 20940 |
. . . . . . 7
β’ β =
(Baseββfld) |
14 | 13 | subrgss 20356 |
. . . . . 6
β’ (πΎ β
(SubRingββfld) β πΎ β β) |
15 | 12, 14 | syl 17 |
. . . . 5
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β πΎ β
β) |
16 | | simpl2 1192 |
. . . . . . . 8
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β π΄ β πΎ) |
17 | 9, 10 | cphabscl 24693 |
. . . . . . . 8
β’ ((π β βPreHil β§
π΄ β πΎ) β (absβπ΄) β πΎ) |
18 | 8, 16, 17 | syl2anc 584 |
. . . . . . 7
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β (absβπ΄) β πΎ) |
19 | 15, 16 | sseldd 3982 |
. . . . . . . 8
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β π΄ β
β) |
20 | 19 | abscld 15379 |
. . . . . . 7
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β (absβπ΄) β
β) |
21 | 19 | absge0d 15387 |
. . . . . . 7
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β 0 β€
(absβπ΄)) |
22 | 9, 10 | cphsqrtcl 24692 |
. . . . . . 7
β’ ((π β βPreHil β§
((absβπ΄) β πΎ β§ (absβπ΄) β β β§ 0 β€
(absβπ΄))) β
(ββ(absβπ΄)) β πΎ) |
23 | 8, 18, 20, 21, 22 | syl13anc 1372 |
. . . . . 6
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
(ββ(absβπ΄)) β πΎ) |
24 | | cnfldadd 20941 |
. . . . . . . . 9
β’ + =
(+gββfld) |
25 | 24 | subrgacl 20366 |
. . . . . . . 8
β’ ((πΎ β
(SubRingββfld) β§ (absβπ΄) β πΎ β§ π΄ β πΎ) β ((absβπ΄) + π΄) β πΎ) |
26 | 12, 18, 16, 25 | syl3anc 1371 |
. . . . . . 7
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
((absβπ΄) + π΄) β πΎ) |
27 | 9, 10 | cphabscl 24693 |
. . . . . . . 8
β’ ((π β βPreHil β§
((absβπ΄) + π΄) β πΎ) β (absβ((absβπ΄) + π΄)) β πΎ) |
28 | 8, 26, 27 | syl2anc 584 |
. . . . . . 7
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
(absβ((absβπ΄) +
π΄)) β πΎ) |
29 | 15, 26 | sseldd 3982 |
. . . . . . . 8
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
((absβπ΄) + π΄) β
β) |
30 | | simpl3 1193 |
. . . . . . . . 9
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β Β¬ -π΄ β
β+) |
31 | 20 | recnd 11238 |
. . . . . . . . . . . . . 14
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β (absβπ΄) β
β) |
32 | 31, 19 | subnegd 11574 |
. . . . . . . . . . . . 13
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
((absβπ΄) β
-π΄) = ((absβπ΄) + π΄)) |
33 | 32 | eqeq1d 2734 |
. . . . . . . . . . . 12
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
(((absβπ΄) β
-π΄) = 0 β
((absβπ΄) + π΄) = 0)) |
34 | 19 | negcld 11554 |
. . . . . . . . . . . . 13
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β -π΄ β
β) |
35 | 31, 34 | subeq0ad 11577 |
. . . . . . . . . . . 12
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
(((absβπ΄) β
-π΄) = 0 β
(absβπ΄) = -π΄)) |
36 | 33, 35 | bitr3d 280 |
. . . . . . . . . . 11
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
(((absβπ΄) + π΄) = 0 β (absβπ΄) = -π΄)) |
37 | | absrpcl 15231 |
. . . . . . . . . . . . 13
β’ ((π΄ β β β§ π΄ β 0) β (absβπ΄) β
β+) |
38 | 19, 37 | sylancom 588 |
. . . . . . . . . . . 12
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β (absβπ΄) β
β+) |
39 | | eleq1 2821 |
. . . . . . . . . . . 12
β’
((absβπ΄) =
-π΄ β ((absβπ΄) β β+
β -π΄ β
β+)) |
40 | 38, 39 | syl5ibcom 244 |
. . . . . . . . . . 11
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
((absβπ΄) = -π΄ β -π΄ β
β+)) |
41 | 36, 40 | sylbid 239 |
. . . . . . . . . 10
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
(((absβπ΄) + π΄) = 0 β -π΄ β
β+)) |
42 | 41 | necon3bd 2954 |
. . . . . . . . 9
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β (Β¬ -π΄ β β+
β ((absβπ΄) +
π΄) β
0)) |
43 | 30, 42 | mpd 15 |
. . . . . . . 8
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
((absβπ΄) + π΄) β 0) |
44 | 29, 43 | absne0d 15390 |
. . . . . . 7
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
(absβ((absβπ΄) +
π΄)) β
0) |
45 | 9, 10 | cphdivcl 24690 |
. . . . . . 7
β’ ((π β βPreHil β§
(((absβπ΄) + π΄) β πΎ β§ (absβ((absβπ΄) + π΄)) β πΎ β§ (absβ((absβπ΄) + π΄)) β 0)) β (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄))) β πΎ) |
46 | 8, 26, 28, 44, 45 | syl13anc 1372 |
. . . . . 6
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
(((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄))) β πΎ) |
47 | | cnfldmul 20942 |
. . . . . . 7
β’ Β·
= (.rββfld) |
48 | 47 | subrgmcl 20367 |
. . . . . 6
β’ ((πΎ β
(SubRingββfld) β§ (ββ(absβπ΄)) β πΎ β§ (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄))) β πΎ) β ((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄)))) β πΎ) |
49 | 12, 23, 46, 48 | syl3anc 1371 |
. . . . 5
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄)))) β πΎ) |
50 | 15, 49 | sseldd 3982 |
. . . 4
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄)))) β β) |
51 | | eqid 2732 |
. . . . . . 7
β’
((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄)))) = ((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄)))) |
52 | 51 | sqreulem 15302 |
. . . . . 6
β’ ((π΄ β β β§
((absβπ΄) + π΄) β 0) β
((((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄))))β2) = π΄ β§ 0 β€
(ββ((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄))))) β§ (i Β·
((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄))))) β
β+)) |
53 | 19, 43, 52 | syl2anc 584 |
. . . . 5
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
((((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄))))β2) = π΄ β§ 0 β€
(ββ((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄))))) β§ (i Β·
((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄))))) β
β+)) |
54 | 53 | simp1d 1142 |
. . . 4
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
(((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄))))β2) = π΄) |
55 | 53 | simp2d 1143 |
. . . 4
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β 0 β€
(ββ((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄)))))) |
56 | 53 | simp3d 1144 |
. . . . 5
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β (i Β·
((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄))))) β
β+) |
57 | | df-nel 3047 |
. . . . 5
β’ ((i
Β· ((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄))))) β β+ β
Β¬ (i Β· ((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄))))) β
β+) |
58 | 56, 57 | sylib 217 |
. . . 4
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β Β¬ (i
Β· ((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄))))) β
β+) |
59 | 50, 19, 54, 55, 58 | eqsqrtd 15310 |
. . 3
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
((ββ(absβπ΄)) Β· (((absβπ΄) + π΄) / (absβ((absβπ΄) + π΄)))) = (ββπ΄)) |
60 | 59, 49 | eqeltrrd 2834 |
. 2
β’ (((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β§ π΄ β 0) β
(ββπ΄) β
πΎ) |
61 | 7, 60 | pm2.61dane 3029 |
1
β’ ((π β βPreHil β§
π΄ β πΎ β§ Β¬ -π΄ β β+) β
(ββπ΄) β
πΎ) |