Step | Hyp | Ref
| Expression |
1 | | 1cnd 7973 |
. . . . . . . 8
β’ ((π΄ β β€ β§ π΅ β β€ β§ π β β€) β 1 β
β) |
2 | | 0cnd 7950 |
. . . . . . . 8
β’ ((π΄ β β€ β§ π΅ β β€ β§ π β β€) β 0 β
β) |
3 | | zsqcl 10591 |
. . . . . . . . . 10
β’ (π΅ β β€ β (π΅β2) β
β€) |
4 | 3 | 3ad2ant2 1019 |
. . . . . . . . 9
β’ ((π΄ β β€ β§ π΅ β β€ β§ π β β€) β (π΅β2) β
β€) |
5 | | 1z 9279 |
. . . . . . . . 9
β’ 1 β
β€ |
6 | | zdceq 9328 |
. . . . . . . . 9
β’ (((π΅β2) β β€ β§ 1
β β€) β DECID (π΅β2) = 1) |
7 | 4, 5, 6 | sylancl 413 |
. . . . . . . 8
β’ ((π΄ β β€ β§ π΅ β β€ β§ π β β€) β
DECID (π΅β2) = 1) |
8 | 1, 2, 7 | ifcldcd 3571 |
. . . . . . 7
β’ ((π΄ β β€ β§ π΅ β β€ β§ π β β€) β
if((π΅β2) = 1, 1, 0)
β β) |
9 | 8 | mulid2d 7976 |
. . . . . 6
β’ ((π΄ β β€ β§ π΅ β β€ β§ π β β€) β (1
Β· if((π΅β2) = 1,
1, 0)) = if((π΅β2) = 1,
1, 0)) |
10 | 9 | ad3antrrr 492 |
. . . . 5
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ (π΄β2) = 1) β (1 Β·
if((π΅β2) = 1, 1, 0)) =
if((π΅β2) = 1, 1,
0)) |
11 | | iftrue 3540 |
. . . . . . 7
β’ ((π΄β2) = 1 β if((π΄β2) = 1, 1, 0) =
1) |
12 | 11 | adantl 277 |
. . . . . 6
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ (π΄β2) = 1) β if((π΄β2) = 1, 1, 0) =
1) |
13 | 12 | oveq1d 5890 |
. . . . 5
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ (π΄β2) = 1) β (if((π΄β2) = 1, 1, 0) Β·
if((π΅β2) = 1, 1, 0)) =
(1 Β· if((π΅β2) =
1, 1, 0))) |
14 | | simpl1 1000 |
. . . . . . . . . . 11
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β π΄ β β€) |
15 | 14 | zcnd 9376 |
. . . . . . . . . 10
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β π΄ β β) |
16 | 15 | ad2antrr 488 |
. . . . . . . . 9
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ (π΄β2) = 1) β π΄ β
β) |
17 | | simpl2 1001 |
. . . . . . . . . . 11
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β π΅ β β€) |
18 | 17 | zcnd 9376 |
. . . . . . . . . 10
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β π΅ β β) |
19 | 18 | ad2antrr 488 |
. . . . . . . . 9
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ (π΄β2) = 1) β π΅ β
β) |
20 | 16, 19 | sqmuld 10666 |
. . . . . . . 8
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ (π΄β2) = 1) β ((π΄ Β· π΅)β2) = ((π΄β2) Β· (π΅β2))) |
21 | | simpr 110 |
. . . . . . . . 9
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ (π΄β2) = 1) β (π΄β2) = 1) |
22 | 21 | oveq1d 5890 |
. . . . . . . 8
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ (π΄β2) = 1) β ((π΄β2) Β· (π΅β2)) = (1 Β· (π΅β2))) |
23 | 18 | sqcld 10652 |
. . . . . . . . . 10
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β (π΅β2) β β) |
24 | 23 | ad2antrr 488 |
. . . . . . . . 9
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ (π΄β2) = 1) β (π΅β2) β
β) |
25 | 24 | mulid2d 7976 |
. . . . . . . 8
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ (π΄β2) = 1) β (1 Β·
(π΅β2)) = (π΅β2)) |
26 | 20, 22, 25 | 3eqtrd 2214 |
. . . . . . 7
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ (π΄β2) = 1) β ((π΄ Β· π΅)β2) = (π΅β2)) |
27 | 26 | eqeq1d 2186 |
. . . . . 6
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ (π΄β2) = 1) β (((π΄ Β· π΅)β2) = 1 β (π΅β2) = 1)) |
28 | 27 | ifbid 3556 |
. . . . 5
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ (π΄β2) = 1) β if(((π΄ Β· π΅)β2) = 1, 1, 0) = if((π΅β2) = 1, 1, 0)) |
29 | 10, 13, 28 | 3eqtr4d 2220 |
. . . 4
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ (π΄β2) = 1) β (if((π΄β2) = 1, 1, 0) Β·
if((π΅β2) = 1, 1, 0)) =
if(((π΄ Β· π΅)β2) = 1, 1,
0)) |
30 | 8 | mul02d 8349 |
. . . . . 6
β’ ((π΄ β β€ β§ π΅ β β€ β§ π β β€) β (0
Β· if((π΅β2) = 1,
1, 0)) = 0) |
31 | 30 | ad3antrrr 492 |
. . . . 5
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ Β¬ (π΄β2) = 1) β (0 Β·
if((π΅β2) = 1, 1, 0)) =
0) |
32 | | iffalse 3543 |
. . . . . . 7
β’ (Β¬
(π΄β2) = 1 β
if((π΄β2) = 1, 1, 0) =
0) |
33 | 32 | adantl 277 |
. . . . . 6
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ Β¬ (π΄β2) = 1) β if((π΄β2) = 1, 1, 0) =
0) |
34 | 33 | oveq1d 5890 |
. . . . 5
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ Β¬ (π΄β2) = 1) β (if((π΄β2) = 1, 1, 0) Β·
if((π΅β2) = 1, 1, 0)) =
(0 Β· if((π΅β2) =
1, 1, 0))) |
35 | | dvdsmul1 11820 |
. . . . . . . . . . . 12
β’ ((π΄ β β€ β§ π΅ β β€) β π΄ β₯ (π΄ Β· π΅)) |
36 | 14, 17, 35 | syl2anc 411 |
. . . . . . . . . . 11
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β π΄ β₯ (π΄ Β· π΅)) |
37 | 14, 17 | zmulcld 9381 |
. . . . . . . . . . . 12
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β (π΄ Β· π΅) β β€) |
38 | | dvdssq 12032 |
. . . . . . . . . . . 12
β’ ((π΄ β β€ β§ (π΄ Β· π΅) β β€) β (π΄ β₯ (π΄ Β· π΅) β (π΄β2) β₯ ((π΄ Β· π΅)β2))) |
39 | 14, 37, 38 | syl2anc 411 |
. . . . . . . . . . 11
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β (π΄ β₯ (π΄ Β· π΅) β (π΄β2) β₯ ((π΄ Β· π΅)β2))) |
40 | 36, 39 | mpbid 147 |
. . . . . . . . . 10
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β (π΄β2) β₯ ((π΄ Β· π΅)β2)) |
41 | 40 | adantr 276 |
. . . . . . . . 9
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β (π΄β2) β₯ ((π΄ Β· π΅)β2)) |
42 | | breq2 4008 |
. . . . . . . . 9
β’ (((π΄ Β· π΅)β2) = 1 β ((π΄β2) β₯ ((π΄ Β· π΅)β2) β (π΄β2) β₯ 1)) |
43 | 41, 42 | syl5ibcom 155 |
. . . . . . . 8
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β (((π΄ Β· π΅)β2) = 1 β (π΄β2) β₯ 1)) |
44 | | simprl 529 |
. . . . . . . . . . . . . . . 16
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β π΄ β 0) |
45 | 44 | neneqd 2368 |
. . . . . . . . . . . . . . 15
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β Β¬ π΄ = 0) |
46 | | sqeq0 10583 |
. . . . . . . . . . . . . . . 16
β’ (π΄ β β β ((π΄β2) = 0 β π΄ = 0)) |
47 | 15, 46 | syl 14 |
. . . . . . . . . . . . . . 15
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β ((π΄β2) = 0 β π΄ = 0)) |
48 | 45, 47 | mtbird 673 |
. . . . . . . . . . . . . 14
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β Β¬ (π΄β2) = 0) |
49 | | zsqcl2 10598 |
. . . . . . . . . . . . . . . 16
β’ (π΄ β β€ β (π΄β2) β
β0) |
50 | 14, 49 | syl 14 |
. . . . . . . . . . . . . . 15
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β (π΄β2) β
β0) |
51 | | elnn0 9178 |
. . . . . . . . . . . . . . 15
β’ ((π΄β2) β
β0 β ((π΄β2) β β β¨ (π΄β2) = 0)) |
52 | 50, 51 | sylib 122 |
. . . . . . . . . . . . . 14
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β ((π΄β2) β β β¨ (π΄β2) = 0)) |
53 | 48, 52 | ecased 1349 |
. . . . . . . . . . . . 13
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β (π΄β2) β β) |
54 | 53 | adantr 276 |
. . . . . . . . . . . 12
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β (π΄β2) β β) |
55 | 54 | nnzd 9374 |
. . . . . . . . . . 11
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β (π΄β2) β β€) |
56 | | 1nn 8930 |
. . . . . . . . . . 11
β’ 1 β
β |
57 | | dvdsle 11850 |
. . . . . . . . . . 11
β’ (((π΄β2) β β€ β§ 1
β β) β ((π΄β2) β₯ 1 β (π΄β2) β€ 1)) |
58 | 55, 56, 57 | sylancl 413 |
. . . . . . . . . 10
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β ((π΄β2) β₯ 1 β (π΄β2) β€ 1)) |
59 | 54 | nnge1d 8962 |
. . . . . . . . . 10
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β 1 β€ (π΄β2)) |
60 | 58, 59 | jctird 317 |
. . . . . . . . 9
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β ((π΄β2) β₯ 1 β ((π΄β2) β€ 1 β§ 1 β€
(π΄β2)))) |
61 | 54 | nnred 8932 |
. . . . . . . . . 10
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β (π΄β2) β β) |
62 | | 1re 7956 |
. . . . . . . . . 10
β’ 1 β
β |
63 | | letri3 8038 |
. . . . . . . . . 10
β’ (((π΄β2) β β β§ 1
β β) β ((π΄β2) = 1 β ((π΄β2) β€ 1 β§ 1 β€ (π΄β2)))) |
64 | 61, 62, 63 | sylancl 413 |
. . . . . . . . 9
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β ((π΄β2) = 1 β ((π΄β2) β€ 1 β§ 1 β€ (π΄β2)))) |
65 | 60, 64 | sylibrd 169 |
. . . . . . . 8
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β ((π΄β2) β₯ 1 β (π΄β2) = 1)) |
66 | 43, 65 | syld 45 |
. . . . . . 7
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β (((π΄ Β· π΅)β2) = 1 β (π΄β2) = 1)) |
67 | 66 | con3dimp 635 |
. . . . . 6
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ Β¬ (π΄β2) = 1) β Β¬
((π΄ Β· π΅)β2) = 1) |
68 | 67 | iffalsed 3545 |
. . . . 5
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ Β¬ (π΄β2) = 1) β if(((π΄ Β· π΅)β2) = 1, 1, 0) = 0) |
69 | 31, 34, 68 | 3eqtr4d 2220 |
. . . 4
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π = 0) β§ Β¬ (π΄β2) = 1) β (if((π΄β2) = 1, 1, 0) Β·
if((π΅β2) = 1, 1, 0)) =
if(((π΄ Β· π΅)β2) = 1, 1,
0)) |
70 | | zdceq 9328 |
. . . . . 6
β’ (((π΄β2) β β€ β§ 1
β β€) β DECID (π΄β2) = 1) |
71 | 55, 5, 70 | sylancl 413 |
. . . . 5
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β DECID (π΄β2) = 1) |
72 | | exmiddc 836 |
. . . . 5
β’
(DECID (π΄β2) = 1 β ((π΄β2) = 1 β¨ Β¬ (π΄β2) = 1)) |
73 | 71, 72 | syl 14 |
. . . 4
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β ((π΄β2) = 1 β¨ Β¬ (π΄β2) = 1)) |
74 | 29, 69, 73 | mpjaodan 798 |
. . 3
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β (if((π΄β2) = 1, 1, 0) Β· if((π΅β2) = 1, 1, 0)) =
if(((π΄ Β· π΅)β2) = 1, 1,
0)) |
75 | | oveq2 5883 |
. . . . 5
β’ (π = 0 β (π΄ /L π) = (π΄ /L 0)) |
76 | | lgs0 14417 |
. . . . . 6
β’ (π΄ β β€ β (π΄ /L 0) =
if((π΄β2) = 1, 1,
0)) |
77 | 14, 76 | syl 14 |
. . . . 5
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β (π΄ /L 0) = if((π΄β2) = 1, 1,
0)) |
78 | 75, 77 | sylan9eqr 2232 |
. . . 4
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β (π΄ /L π) = if((π΄β2) = 1, 1, 0)) |
79 | | oveq2 5883 |
. . . . 5
β’ (π = 0 β (π΅ /L π) = (π΅ /L 0)) |
80 | | lgs0 14417 |
. . . . . 6
β’ (π΅ β β€ β (π΅ /L 0) =
if((π΅β2) = 1, 1,
0)) |
81 | 17, 80 | syl 14 |
. . . . 5
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β (π΅ /L 0) = if((π΅β2) = 1, 1,
0)) |
82 | 79, 81 | sylan9eqr 2232 |
. . . 4
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β (π΅ /L π) = if((π΅β2) = 1, 1, 0)) |
83 | 78, 82 | oveq12d 5893 |
. . 3
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β ((π΄ /L π) Β· (π΅ /L π)) = (if((π΄β2) = 1, 1, 0) Β· if((π΅β2) = 1, 1,
0))) |
84 | | oveq2 5883 |
. . . 4
β’ (π = 0 β ((π΄ Β· π΅) /L π) = ((π΄ Β· π΅) /L 0)) |
85 | | lgs0 14417 |
. . . . 5
β’ ((π΄ Β· π΅) β β€ β ((π΄ Β· π΅) /L 0) = if(((π΄ Β· π΅)β2) = 1, 1, 0)) |
86 | 37, 85 | syl 14 |
. . . 4
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β ((π΄ Β· π΅) /L 0) = if(((π΄ Β· π΅)β2) = 1, 1, 0)) |
87 | 84, 86 | sylan9eqr 2232 |
. . 3
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β ((π΄ Β· π΅) /L π) = if(((π΄ Β· π΅)β2) = 1, 1, 0)) |
88 | 74, 83, 87 | 3eqtr4rd 2221 |
. 2
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π = 0) β ((π΄ Β· π΅) /L π) = ((π΄ /L π) Β· (π΅ /L π))) |
89 | | lgsdilem 14431 |
. . . . 5
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β if((π < 0 β§ (π΄ Β· π΅) < 0), -1, 1) = (if((π < 0 β§ π΄ < 0), -1, 1) Β· if((π < 0 β§ π΅ < 0), -1, 1))) |
90 | 89 | adantr 276 |
. . . 4
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β if((π < 0 β§ (π΄ Β· π΅) < 0), -1, 1) = (if((π < 0 β§ π΄ < 0), -1, 1) Β· if((π < 0 β§ π΅ < 0), -1, 1))) |
91 | | simpl3 1002 |
. . . . . . 7
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β π β β€) |
92 | | nnabscl 11109 |
. . . . . . 7
β’ ((π β β€ β§ π β 0) β (absβπ) β
β) |
93 | 91, 92 | sylan 283 |
. . . . . 6
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β (absβπ) β β) |
94 | | nnuz 9563 |
. . . . . 6
β’ β =
(β€β₯β1) |
95 | 93, 94 | eleqtrdi 2270 |
. . . . 5
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β (absβπ) β
(β€β₯β1)) |
96 | | simpll1 1036 |
. . . . . . . 8
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β π΄ β β€) |
97 | | simpll3 1038 |
. . . . . . . 8
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β π β β€) |
98 | | simpr 110 |
. . . . . . . 8
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β π β 0) |
99 | | eqid 2177 |
. . . . . . . . 9
β’ (π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)), 1)) = (π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)), 1)) |
100 | 99 | lgsfcl3 14425 |
. . . . . . . 8
β’ ((π΄ β β€ β§ π β β€ β§ π β 0) β (π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)),
1)):ββΆβ€) |
101 | 96, 97, 98, 100 | syl3anc 1238 |
. . . . . . 7
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β (π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)),
1)):ββΆβ€) |
102 | | elnnuz 9564 |
. . . . . . . 8
β’ (π β β β π β
(β€β₯β1)) |
103 | 102 | biimpri 133 |
. . . . . . 7
β’ (π β
(β€β₯β1) β π β β) |
104 | | ffvelcdm 5650 |
. . . . . . 7
β’ (((π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)), 1)):ββΆβ€ β§ π β β) β ((π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)), 1))βπ) β β€) |
105 | 101, 103,
104 | syl2an 289 |
. . . . . 6
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β ((π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)), 1))βπ) β β€) |
106 | 105 | zcnd 9376 |
. . . . 5
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β ((π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)), 1))βπ) β β) |
107 | | simpll2 1037 |
. . . . . . . 8
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β π΅ β β€) |
108 | | eqid 2177 |
. . . . . . . . 9
β’ (π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1)) = (π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1)) |
109 | 108 | lgsfcl3 14425 |
. . . . . . . 8
β’ ((π΅ β β€ β§ π β β€ β§ π β 0) β (π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)),
1)):ββΆβ€) |
110 | 107, 97, 98, 109 | syl3anc 1238 |
. . . . . . 7
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β (π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)),
1)):ββΆβ€) |
111 | | ffvelcdm 5650 |
. . . . . . 7
β’ (((π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1)):ββΆβ€ β§ π β β) β ((π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1))βπ) β β€) |
112 | 110, 103,
111 | syl2an 289 |
. . . . . 6
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β ((π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1))βπ) β β€) |
113 | 112 | zcnd 9376 |
. . . . 5
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β ((π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1))βπ) β β) |
114 | 96 | adantr 276 |
. . . . . . . . . . . 12
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β π΄ β
β€) |
115 | 107 | adantr 276 |
. . . . . . . . . . . 12
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β π΅ β
β€) |
116 | | simpr 110 |
. . . . . . . . . . . 12
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β π β
β) |
117 | | lgsdirprm 14438 |
. . . . . . . . . . . 12
β’ ((π΄ β β€ β§ π΅ β β€ β§ π β β) β ((π΄ Β· π΅) /L π) = ((π΄ /L π) Β· (π΅ /L π))) |
118 | 114, 115,
116, 117 | syl3anc 1238 |
. . . . . . . . . . 11
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β ((π΄ Β· π΅) /L π) = ((π΄ /L π) Β· (π΅ /L π))) |
119 | 118 | oveq1d 5890 |
. . . . . . . . . 10
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β (((π΄ Β· π΅) /L π)β(π pCnt π)) = (((π΄ /L π) Β· (π΅ /L π))β(π pCnt π))) |
120 | | prmz 12111 |
. . . . . . . . . . . . 13
β’ (π β β β π β
β€) |
121 | | lgscl 14418 |
. . . . . . . . . . . . 13
β’ ((π΄ β β€ β§ π β β€) β (π΄ /L π) β
β€) |
122 | 96, 120, 121 | syl2an 289 |
. . . . . . . . . . . 12
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β (π΄ /L π) β
β€) |
123 | 122 | zcnd 9376 |
. . . . . . . . . . 11
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β (π΄ /L π) β
β) |
124 | | lgscl 14418 |
. . . . . . . . . . . . 13
β’ ((π΅ β β€ β§ π β β€) β (π΅ /L π) β
β€) |
125 | 107, 120,
124 | syl2an 289 |
. . . . . . . . . . . 12
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β (π΅ /L π) β
β€) |
126 | 125 | zcnd 9376 |
. . . . . . . . . . 11
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β (π΅ /L π) β
β) |
127 | 97 | adantr 276 |
. . . . . . . . . . . 12
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β π β
β€) |
128 | 98 | adantr 276 |
. . . . . . . . . . . 12
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β π β 0) |
129 | | pczcl 12298 |
. . . . . . . . . . . 12
β’ ((π β β β§ (π β β€ β§ π β 0)) β (π pCnt π) β
β0) |
130 | 116, 127,
128, 129 | syl12anc 1236 |
. . . . . . . . . . 11
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β (π pCnt π) β
β0) |
131 | 123, 126,
130 | mulexpd 10669 |
. . . . . . . . . 10
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β (((π΄ /L π) Β· (π΅ /L π))β(π pCnt π)) = (((π΄ /L π)β(π pCnt π)) Β· ((π΅ /L π)β(π pCnt π)))) |
132 | 119, 131 | eqtrd 2210 |
. . . . . . . . 9
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β (((π΄ Β· π΅) /L π)β(π pCnt π)) = (((π΄ /L π)β(π pCnt π)) Β· ((π΅ /L π)β(π pCnt π)))) |
133 | | iftrue 3540 |
. . . . . . . . . 10
β’ (π β β β if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1) = (((π΄ Β· π΅) /L π)β(π pCnt π))) |
134 | 133 | adantl 277 |
. . . . . . . . 9
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1) = (((π΄ Β· π΅) /L π)β(π pCnt π))) |
135 | | iftrue 3540 |
. . . . . . . . . . 11
β’ (π β β β if(π β β, ((π΄ /L π)β(π pCnt π)), 1) = ((π΄ /L π)β(π pCnt π))) |
136 | | iftrue 3540 |
. . . . . . . . . . 11
β’ (π β β β if(π β β, ((π΅ /L π)β(π pCnt π)), 1) = ((π΅ /L π)β(π pCnt π))) |
137 | 135, 136 | oveq12d 5893 |
. . . . . . . . . 10
β’ (π β β β (if(π β β, ((π΄ /L π)β(π pCnt π)), 1) Β· if(π β β, ((π΅ /L π)β(π pCnt π)), 1)) = (((π΄ /L π)β(π pCnt π)) Β· ((π΅ /L π)β(π pCnt π)))) |
138 | 137 | adantl 277 |
. . . . . . . . 9
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β
(if(π β β,
((π΄ /L
π)β(π pCnt π)), 1) Β· if(π β β, ((π΅ /L π)β(π pCnt π)), 1)) = (((π΄ /L π)β(π pCnt π)) Β· ((π΅ /L π)β(π pCnt π)))) |
139 | 132, 134,
138 | 3eqtr4d 2220 |
. . . . . . . 8
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1) = (if(π β β, ((π΄ /L π)β(π pCnt π)), 1) Β· if(π β β, ((π΅ /L π)β(π pCnt π)), 1))) |
140 | 139 | adantlr 477 |
. . . . . . 7
β’
((((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β§ π β β) β if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1) = (if(π β β, ((π΄ /L π)β(π pCnt π)), 1) Β· if(π β β, ((π΅ /L π)β(π pCnt π)), 1))) |
141 | | 1t1e1 9071 |
. . . . . . . . . 10
β’ (1
Β· 1) = 1 |
142 | 141 | eqcomi 2181 |
. . . . . . . . 9
β’ 1 = (1
Β· 1) |
143 | | iffalse 3543 |
. . . . . . . . 9
β’ (Β¬
π β β β
if(π β β,
(((π΄ Β· π΅) /L π)β(π pCnt π)), 1) = 1) |
144 | | iffalse 3543 |
. . . . . . . . . 10
β’ (Β¬
π β β β
if(π β β,
((π΄ /L
π)β(π pCnt π)), 1) = 1) |
145 | | iffalse 3543 |
. . . . . . . . . 10
β’ (Β¬
π β β β
if(π β β,
((π΅ /L
π)β(π pCnt π)), 1) = 1) |
146 | 144, 145 | oveq12d 5893 |
. . . . . . . . 9
β’ (Β¬
π β β β
(if(π β β,
((π΄ /L
π)β(π pCnt π)), 1) Β· if(π β β, ((π΅ /L π)β(π pCnt π)), 1)) = (1 Β· 1)) |
147 | 142, 143,
146 | 3eqtr4a 2236 |
. . . . . . . 8
β’ (Β¬
π β β β
if(π β β,
(((π΄ Β· π΅) /L π)β(π pCnt π)), 1) = (if(π β β, ((π΄ /L π)β(π pCnt π)), 1) Β· if(π β β, ((π΅ /L π)β(π pCnt π)), 1))) |
148 | 147 | adantl 277 |
. . . . . . 7
β’
((((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β§ Β¬ π β β) β if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1) = (if(π β β, ((π΄ /L π)β(π pCnt π)), 1) Β· if(π β β, ((π΅ /L π)β(π pCnt π)), 1))) |
149 | 103 | adantl 277 |
. . . . . . . . 9
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β π β β) |
150 | | prmdc 12130 |
. . . . . . . . 9
β’ (π β β β
DECID π
β β) |
151 | 149, 150 | syl 14 |
. . . . . . . 8
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β DECID π β
β) |
152 | | exmiddc 836 |
. . . . . . . 8
β’
(DECID π β β β (π β β β¨ Β¬ π β β)) |
153 | 151, 152 | syl 14 |
. . . . . . 7
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β (π β β β¨ Β¬ π β β)) |
154 | 140, 148,
153 | mpjaodan 798 |
. . . . . 6
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1) = (if(π β β, ((π΄ /L π)β(π pCnt π)), 1) Β· if(π β β, ((π΅ /L π)β(π pCnt π)), 1))) |
155 | | eqid 2177 |
. . . . . . 7
β’ (π β β β¦ if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1)) = (π β β β¦ if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1)) |
156 | | eleq1w 2238 |
. . . . . . . 8
β’ (π = π β (π β β β π β β)) |
157 | | oveq2 5883 |
. . . . . . . . 9
β’ (π = π β ((π΄ Β· π΅) /L π) = ((π΄ Β· π΅) /L π)) |
158 | | oveq1 5882 |
. . . . . . . . 9
β’ (π = π β (π pCnt π) = (π pCnt π)) |
159 | 157, 158 | oveq12d 5893 |
. . . . . . . 8
β’ (π = π β (((π΄ Β· π΅) /L π)β(π pCnt π)) = (((π΄ Β· π΅) /L π)β(π pCnt π))) |
160 | 156, 159 | ifbieq1d 3557 |
. . . . . . 7
β’ (π = π β if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1) = if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1)) |
161 | 37 | ad3antrrr 492 |
. . . . . . . . . 10
β’
((((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β§ π β β) β (π΄ Β· π΅) β β€) |
162 | 120 | adantl 277 |
. . . . . . . . . 10
β’
((((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β§ π β β) β π β β€) |
163 | | lgscl 14418 |
. . . . . . . . . 10
β’ (((π΄ Β· π΅) β β€ β§ π β β€) β ((π΄ Β· π΅) /L π) β β€) |
164 | 161, 162,
163 | syl2anc 411 |
. . . . . . . . 9
β’
((((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β§ π β β) β ((π΄ Β· π΅) /L π) β β€) |
165 | 130 | adantlr 477 |
. . . . . . . . 9
β’
((((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β§ π β β) β (π pCnt π) β
β0) |
166 | | zexpcl 10535 |
. . . . . . . . 9
β’ ((((π΄ Β· π΅) /L π) β β€ β§ (π pCnt π) β β0) β
(((π΄ Β· π΅) /L π)β(π pCnt π)) β β€) |
167 | 164, 165,
166 | syl2anc 411 |
. . . . . . . 8
β’
((((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β§ π β β) β (((π΄ Β· π΅) /L π)β(π pCnt π)) β β€) |
168 | | 1zzd 9280 |
. . . . . . . 8
β’
((((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β§ Β¬ π β β) β 1 β
β€) |
169 | 167, 168,
151 | ifcldadc 3564 |
. . . . . . 7
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1) β β€) |
170 | 155, 160,
149, 169 | fvmptd3 5610 |
. . . . . 6
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β ((π β β β¦ if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1))βπ) = if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1)) |
171 | | oveq2 5883 |
. . . . . . . . . 10
β’ (π = π β (π΄ /L π) = (π΄ /L π)) |
172 | 171, 158 | oveq12d 5893 |
. . . . . . . . 9
β’ (π = π β ((π΄ /L π)β(π pCnt π)) = ((π΄ /L π)β(π pCnt π))) |
173 | 156, 172 | ifbieq1d 3557 |
. . . . . . . 8
β’ (π = π β if(π β β, ((π΄ /L π)β(π pCnt π)), 1) = if(π β β, ((π΄ /L π)β(π pCnt π)), 1)) |
174 | 122 | adantlr 477 |
. . . . . . . . . 10
β’
((((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β§ π β β) β (π΄ /L π) β β€) |
175 | | zexpcl 10535 |
. . . . . . . . . 10
β’ (((π΄ /L π) β β€ β§ (π pCnt π) β β0) β ((π΄ /L π)β(π pCnt π)) β β€) |
176 | 174, 165,
175 | syl2anc 411 |
. . . . . . . . 9
β’
((((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β§ π β β) β ((π΄ /L π)β(π pCnt π)) β β€) |
177 | 176, 168,
151 | ifcldadc 3564 |
. . . . . . . 8
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β if(π β β, ((π΄ /L π)β(π pCnt π)), 1) β β€) |
178 | 99, 173, 149, 177 | fvmptd3 5610 |
. . . . . . 7
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β ((π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)), 1))βπ) = if(π β β, ((π΄ /L π)β(π pCnt π)), 1)) |
179 | | oveq2 5883 |
. . . . . . . . . 10
β’ (π = π β (π΅ /L π) = (π΅ /L π)) |
180 | 179, 158 | oveq12d 5893 |
. . . . . . . . 9
β’ (π = π β ((π΅ /L π)β(π pCnt π)) = ((π΅ /L π)β(π pCnt π))) |
181 | 156, 180 | ifbieq1d 3557 |
. . . . . . . 8
β’ (π = π β if(π β β, ((π΅ /L π)β(π pCnt π)), 1) = if(π β β, ((π΅ /L π)β(π pCnt π)), 1)) |
182 | 125 | adantlr 477 |
. . . . . . . . . 10
β’
((((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β§ π β β) β (π΅ /L π) β β€) |
183 | | zexpcl 10535 |
. . . . . . . . . 10
β’ (((π΅ /L π) β β€ β§ (π pCnt π) β β0) β ((π΅ /L π)β(π pCnt π)) β β€) |
184 | 182, 165,
183 | syl2anc 411 |
. . . . . . . . 9
β’
((((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β§ π β β) β ((π΅ /L π)β(π pCnt π)) β β€) |
185 | 184, 168,
151 | ifcldadc 3564 |
. . . . . . . 8
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β if(π β β, ((π΅ /L π)β(π pCnt π)), 1) β β€) |
186 | 108, 181,
149, 185 | fvmptd3 5610 |
. . . . . . 7
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β ((π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1))βπ) = if(π β β, ((π΅ /L π)β(π pCnt π)), 1)) |
187 | 178, 186 | oveq12d 5893 |
. . . . . 6
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β (((π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)), 1))βπ) Β· ((π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1))βπ)) = (if(π β β, ((π΄ /L π)β(π pCnt π)), 1) Β· if(π β β, ((π΅ /L π)β(π pCnt π)), 1))) |
188 | 154, 170,
187 | 3eqtr4d 2220 |
. . . . 5
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β
(β€β₯β1)) β ((π β β β¦ if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1))βπ) = (((π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)), 1))βπ) Β· ((π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1))βπ))) |
189 | 95, 106, 113, 188 | prod3fmul 11549 |
. . . 4
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β (seq1( Β· , (π β β β¦ if(π β β, (((π΄ Β· π΅) /L π)β(π pCnt π)), 1)))β(absβπ)) = ((seq1( Β· , (π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)), 1)))β(absβπ)) Β· (seq1( Β· , (π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1)))β(absβπ)))) |
190 | 90, 189 | oveq12d 5893 |
. . 3
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β (if((π < 0 β§ (π΄ Β· π΅) < 0), -1, 1) Β· (seq1( Β· ,
(π β β β¦
if(π β β,
(((π΄ Β· π΅) /L π)β(π pCnt π)), 1)))β(absβπ))) = ((if((π < 0 β§ π΄ < 0), -1, 1) Β· if((π < 0 β§ π΅ < 0), -1, 1)) Β· ((seq1( Β·
, (π β β β¦
if(π β β,
((π΄ /L
π)β(π pCnt π)), 1)))β(absβπ)) Β· (seq1( Β· , (π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1)))β(absβπ))))) |
191 | 37 | adantr 276 |
. . . 4
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β (π΄ Β· π΅) β β€) |
192 | 155 | lgsval4 14424 |
. . . 4
β’ (((π΄ Β· π΅) β β€ β§ π β β€ β§ π β 0) β ((π΄ Β· π΅) /L π) = (if((π < 0 β§ (π΄ Β· π΅) < 0), -1, 1) Β· (seq1( Β· ,
(π β β β¦
if(π β β,
(((π΄ Β· π΅) /L π)β(π pCnt π)), 1)))β(absβπ)))) |
193 | 191, 97, 98, 192 | syl3anc 1238 |
. . 3
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β ((π΄ Β· π΅) /L π) = (if((π < 0 β§ (π΄ Β· π΅) < 0), -1, 1) Β· (seq1( Β· ,
(π β β β¦
if(π β β,
(((π΄ Β· π΅) /L π)β(π pCnt π)), 1)))β(absβπ)))) |
194 | 99 | lgsval4 14424 |
. . . . . 6
β’ ((π΄ β β€ β§ π β β€ β§ π β 0) β (π΄ /L π) = (if((π < 0 β§ π΄ < 0), -1, 1) Β· (seq1( Β· ,
(π β β β¦
if(π β β,
((π΄ /L
π)β(π pCnt π)), 1)))β(absβπ)))) |
195 | 96, 97, 98, 194 | syl3anc 1238 |
. . . . 5
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β (π΄ /L π) = (if((π < 0 β§ π΄ < 0), -1, 1) Β· (seq1( Β· ,
(π β β β¦
if(π β β,
((π΄ /L
π)β(π pCnt π)), 1)))β(absβπ)))) |
196 | 108 | lgsval4 14424 |
. . . . . 6
β’ ((π΅ β β€ β§ π β β€ β§ π β 0) β (π΅ /L π) = (if((π < 0 β§ π΅ < 0), -1, 1) Β· (seq1( Β· ,
(π β β β¦
if(π β β,
((π΅ /L
π)β(π pCnt π)), 1)))β(absβπ)))) |
197 | 107, 97, 98, 196 | syl3anc 1238 |
. . . . 5
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β (π΅ /L π) = (if((π < 0 β§ π΅ < 0), -1, 1) Β· (seq1( Β· ,
(π β β β¦
if(π β β,
((π΅ /L
π)β(π pCnt π)), 1)))β(absβπ)))) |
198 | 195, 197 | oveq12d 5893 |
. . . 4
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β ((π΄ /L π) Β· (π΅ /L π)) = ((if((π < 0 β§ π΄ < 0), -1, 1) Β· (seq1( Β· ,
(π β β β¦
if(π β β,
((π΄ /L
π)β(π pCnt π)), 1)))β(absβπ))) Β· (if((π < 0 β§ π΅ < 0), -1, 1) Β· (seq1( Β· ,
(π β β β¦
if(π β β,
((π΅ /L
π)β(π pCnt π)), 1)))β(absβπ))))) |
199 | | neg1cn 9024 |
. . . . . . 7
β’ -1 β
β |
200 | 199 | a1i 9 |
. . . . . 6
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β -1 β
β) |
201 | | 1cnd 7973 |
. . . . . 6
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β 1 β
β) |
202 | | 0z 9264 |
. . . . . . . 8
β’ 0 β
β€ |
203 | | zdclt 9330 |
. . . . . . . 8
β’ ((π β β€ β§ 0 β
β€) β DECID π < 0) |
204 | 97, 202, 203 | sylancl 413 |
. . . . . . 7
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β DECID π < 0) |
205 | | zdclt 9330 |
. . . . . . . 8
β’ ((π΄ β β€ β§ 0 β
β€) β DECID π΄ < 0) |
206 | 96, 202, 205 | sylancl 413 |
. . . . . . 7
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β DECID π΄ < 0) |
207 | | dcan2 934 |
. . . . . . 7
β’
(DECID π < 0 β (DECID π΄ < 0 β
DECID (π
< 0 β§ π΄ <
0))) |
208 | 204, 206,
207 | sylc 62 |
. . . . . 6
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β DECID (π < 0 β§ π΄ < 0)) |
209 | 200, 201,
208 | ifcldcd 3571 |
. . . . 5
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β if((π < 0 β§ π΄ < 0), -1, 1) β
β) |
210 | | 1zzd 9280 |
. . . . . . . 8
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β 1 β
β€) |
211 | 101 | ffvelcdmda 5652 |
. . . . . . . 8
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β ((π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)), 1))βπ) β β€) |
212 | | zmulcl 9306 |
. . . . . . . . 9
β’ ((π β β€ β§ π£ β β€) β (π Β· π£) β β€) |
213 | 212 | adantl 277 |
. . . . . . . 8
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ (π β β€ β§ π£ β β€)) β (π Β· π£) β β€) |
214 | 94, 210, 211, 213 | seqf 10461 |
. . . . . . 7
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β seq1( Β· , (π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)),
1))):ββΆβ€) |
215 | 214, 93 | ffvelcdmd 5653 |
. . . . . 6
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β (seq1( Β· , (π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)), 1)))β(absβπ)) β β€) |
216 | 215 | zcnd 9376 |
. . . . 5
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β (seq1( Β· , (π β β β¦ if(π β β, ((π΄ /L π)β(π pCnt π)), 1)))β(absβπ)) β β) |
217 | | neg1z 9285 |
. . . . . . . 8
β’ -1 β
β€ |
218 | 217 | a1i 9 |
. . . . . . 7
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β -1 β
β€) |
219 | | zdclt 9330 |
. . . . . . . . 9
β’ ((π΅ β β€ β§ 0 β
β€) β DECID π΅ < 0) |
220 | 107, 202,
219 | sylancl 413 |
. . . . . . . 8
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β DECID π΅ < 0) |
221 | | dcan2 934 |
. . . . . . . 8
β’
(DECID π < 0 β (DECID π΅ < 0 β
DECID (π
< 0 β§ π΅ <
0))) |
222 | 204, 220,
221 | sylc 62 |
. . . . . . 7
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β DECID (π < 0 β§ π΅ < 0)) |
223 | 218, 210,
222 | ifcldcd 3571 |
. . . . . 6
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β if((π < 0 β§ π΅ < 0), -1, 1) β
β€) |
224 | 223 | zcnd 9376 |
. . . . 5
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β if((π < 0 β§ π΅ < 0), -1, 1) β
β) |
225 | 110 | ffvelcdmda 5652 |
. . . . . . . 8
β’
(((((π΄ β
β€ β§ π΅ β
β€ β§ π β
β€) β§ (π΄ β 0
β§ π΅ β 0)) β§
π β 0) β§ π β β) β ((π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1))βπ) β β€) |
226 | 94, 210, 225, 213 | seqf 10461 |
. . . . . . 7
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β seq1( Β· , (π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)),
1))):ββΆβ€) |
227 | 226, 93 | ffvelcdmd 5653 |
. . . . . 6
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β (seq1( Β· , (π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1)))β(absβπ)) β β€) |
228 | 227 | zcnd 9376 |
. . . . 5
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β (seq1( Β· , (π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1)))β(absβπ)) β β) |
229 | 209, 216,
224, 228 | mul4d 8112 |
. . . 4
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β ((if((π < 0 β§ π΄ < 0), -1, 1) Β· (seq1( Β· ,
(π β β β¦
if(π β β,
((π΄ /L
π)β(π pCnt π)), 1)))β(absβπ))) Β· (if((π < 0 β§ π΅ < 0), -1, 1) Β· (seq1( Β· ,
(π β β β¦
if(π β β,
((π΅ /L
π)β(π pCnt π)), 1)))β(absβπ)))) = ((if((π < 0 β§ π΄ < 0), -1, 1) Β· if((π < 0 β§ π΅ < 0), -1, 1)) Β· ((seq1( Β·
, (π β β β¦
if(π β β,
((π΄ /L
π)β(π pCnt π)), 1)))β(absβπ)) Β· (seq1( Β· , (π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1)))β(absβπ))))) |
230 | 198, 229 | eqtrd 2210 |
. . 3
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β ((π΄ /L π) Β· (π΅ /L π)) = ((if((π < 0 β§ π΄ < 0), -1, 1) Β· if((π < 0 β§ π΅ < 0), -1, 1)) Β· ((seq1( Β·
, (π β β β¦
if(π β β,
((π΄ /L
π)β(π pCnt π)), 1)))β(absβπ)) Β· (seq1( Β· , (π β β β¦ if(π β β, ((π΅ /L π)β(π pCnt π)), 1)))β(absβπ))))) |
231 | 190, 193,
230 | 3eqtr4d 2220 |
. 2
β’ ((((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β§ π β 0) β ((π΄ Β· π΅) /L π) = ((π΄ /L π) Β· (π΅ /L π))) |
232 | | zdceq 9328 |
. . . 4
β’ ((π β β€ β§ 0 β
β€) β DECID π = 0) |
233 | 91, 202, 232 | sylancl 413 |
. . 3
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β DECID π = 0) |
234 | | dcne 2358 |
. . 3
β’
(DECID π = 0 β (π = 0 β¨ π β 0)) |
235 | 233, 234 | sylib 122 |
. 2
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β (π = 0 β¨ π β 0)) |
236 | 88, 231, 235 | mpjaodan 798 |
1
β’ (((π΄ β β€ β§ π΅ β β€ β§ π β β€) β§ (π΄ β 0 β§ π΅ β 0)) β ((π΄ Β· π΅) /L π) = ((π΄ /L π) Β· (π΅ /L π))) |