Metamath Proof Explorer


Theorem lgsdirnn0

Description: Variation on lgsdir valid for all A , B but only for positive N . (The exact location of the failure of this law is for A = 0 , B < 0 , N = -u 1 in which case ( 0 /L -u 1 ) = 1 but ( B /L -u 1 ) = -u 1 .) (Contributed by Mario Carneiro, 28-Apr-2016)

Ref Expression
Assertion lgsdirnn0 ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ( ๐ด ยท ๐ต ) /L ๐‘ ) = ( ( ๐ด /L ๐‘ ) ยท ( ๐ต /L ๐‘ ) ) )

Proof

Step Hyp Ref Expression
1 oveq1 โŠข ( ๐‘ฅ = ๐ต โ†’ ( ๐‘ฅ /L ๐‘ ) = ( ๐ต /L ๐‘ ) )
2 1 oveq1d โŠข ( ๐‘ฅ = ๐ต โ†’ ( ( ๐‘ฅ /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) = ( ( ๐ต /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) )
3 2 eqeq2d โŠข ( ๐‘ฅ = ๐ต โ†’ ( ( 0 /L ๐‘ ) = ( ( ๐‘ฅ /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) โ†” ( 0 /L ๐‘ ) = ( ( ๐ต /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) ) )
4 id โŠข ( ๐‘ฅ โˆˆ โ„ค โ†’ ๐‘ฅ โˆˆ โ„ค )
5 nn0z โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ๐‘ โˆˆ โ„ค )
6 lgscl โŠข ( ( ๐‘ฅ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘ฅ /L ๐‘ ) โˆˆ โ„ค )
7 4 5 6 syl2anr โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ๐‘ฅ /L ๐‘ ) โˆˆ โ„ค )
8 7 zcnd โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ๐‘ฅ /L ๐‘ ) โˆˆ โ„‚ )
9 8 adantr โŠข ( ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โˆง ( 0 /L ๐‘ ) = 0 ) โ†’ ( ๐‘ฅ /L ๐‘ ) โˆˆ โ„‚ )
10 9 mul01d โŠข ( ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โˆง ( 0 /L ๐‘ ) = 0 ) โ†’ ( ( ๐‘ฅ /L ๐‘ ) ยท 0 ) = 0 )
11 simpr โŠข ( ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โˆง ( 0 /L ๐‘ ) = 0 ) โ†’ ( 0 /L ๐‘ ) = 0 )
12 11 oveq2d โŠข ( ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โˆง ( 0 /L ๐‘ ) = 0 ) โ†’ ( ( ๐‘ฅ /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) = ( ( ๐‘ฅ /L ๐‘ ) ยท 0 ) )
13 10 12 11 3eqtr4rd โŠข ( ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โˆง ( 0 /L ๐‘ ) = 0 ) โ†’ ( 0 /L ๐‘ ) = ( ( ๐‘ฅ /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) )
14 0z โŠข 0 โˆˆ โ„ค
15 5 adantr โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ๐‘ โˆˆ โ„ค )
16 lgsne0 โŠข ( ( 0 โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( 0 /L ๐‘ ) โ‰  0 โ†” ( 0 gcd ๐‘ ) = 1 ) )
17 14 15 16 sylancr โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ( 0 /L ๐‘ ) โ‰  0 โ†” ( 0 gcd ๐‘ ) = 1 ) )
18 gcdcom โŠข ( ( 0 โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( 0 gcd ๐‘ ) = ( ๐‘ gcd 0 ) )
19 14 15 18 sylancr โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( 0 gcd ๐‘ ) = ( ๐‘ gcd 0 ) )
20 nn0gcdid0 โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ๐‘ gcd 0 ) = ๐‘ )
21 20 adantr โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ๐‘ gcd 0 ) = ๐‘ )
22 19 21 eqtrd โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( 0 gcd ๐‘ ) = ๐‘ )
23 22 eqeq1d โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ( 0 gcd ๐‘ ) = 1 โ†” ๐‘ = 1 ) )
24 lgs1 โŠข ( ๐‘ฅ โˆˆ โ„ค โ†’ ( ๐‘ฅ /L 1 ) = 1 )
25 24 adantl โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ๐‘ฅ /L 1 ) = 1 )
26 oveq2 โŠข ( ๐‘ = 1 โ†’ ( ๐‘ฅ /L ๐‘ ) = ( ๐‘ฅ /L 1 ) )
27 26 eqeq1d โŠข ( ๐‘ = 1 โ†’ ( ( ๐‘ฅ /L ๐‘ ) = 1 โ†” ( ๐‘ฅ /L 1 ) = 1 ) )
28 25 27 syl5ibrcom โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ๐‘ = 1 โ†’ ( ๐‘ฅ /L ๐‘ ) = 1 ) )
29 23 28 sylbid โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ( 0 gcd ๐‘ ) = 1 โ†’ ( ๐‘ฅ /L ๐‘ ) = 1 ) )
30 17 29 sylbid โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ( 0 /L ๐‘ ) โ‰  0 โ†’ ( ๐‘ฅ /L ๐‘ ) = 1 ) )
31 30 imp โŠข ( ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โˆง ( 0 /L ๐‘ ) โ‰  0 ) โ†’ ( ๐‘ฅ /L ๐‘ ) = 1 )
32 31 oveq1d โŠข ( ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โˆง ( 0 /L ๐‘ ) โ‰  0 ) โ†’ ( ( ๐‘ฅ /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) = ( 1 ยท ( 0 /L ๐‘ ) ) )
33 5 ad2antrr โŠข ( ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โˆง ( 0 /L ๐‘ ) โ‰  0 ) โ†’ ๐‘ โˆˆ โ„ค )
34 lgscl โŠข ( ( 0 โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( 0 /L ๐‘ ) โˆˆ โ„ค )
35 14 33 34 sylancr โŠข ( ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โˆง ( 0 /L ๐‘ ) โ‰  0 ) โ†’ ( 0 /L ๐‘ ) โˆˆ โ„ค )
36 35 zcnd โŠข ( ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โˆง ( 0 /L ๐‘ ) โ‰  0 ) โ†’ ( 0 /L ๐‘ ) โˆˆ โ„‚ )
37 36 mullidd โŠข ( ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โˆง ( 0 /L ๐‘ ) โ‰  0 ) โ†’ ( 1 ยท ( 0 /L ๐‘ ) ) = ( 0 /L ๐‘ ) )
38 32 37 eqtr2d โŠข ( ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โˆง ( 0 /L ๐‘ ) โ‰  0 ) โ†’ ( 0 /L ๐‘ ) = ( ( ๐‘ฅ /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) )
39 13 38 pm2.61dane โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( 0 /L ๐‘ ) = ( ( ๐‘ฅ /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) )
40 39 ralrimiva โŠข ( ๐‘ โˆˆ โ„•0 โ†’ โˆ€ ๐‘ฅ โˆˆ โ„ค ( 0 /L ๐‘ ) = ( ( ๐‘ฅ /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) )
41 40 3ad2ant3 โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ โˆ€ ๐‘ฅ โˆˆ โ„ค ( 0 /L ๐‘ ) = ( ( ๐‘ฅ /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) )
42 simp2 โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ๐ต โˆˆ โ„ค )
43 3 41 42 rspcdva โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( 0 /L ๐‘ ) = ( ( ๐ต /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) )
44 43 adantr โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ด = 0 ) โ†’ ( 0 /L ๐‘ ) = ( ( ๐ต /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) )
45 5 3ad2ant3 โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ๐‘ โˆˆ โ„ค )
46 14 45 34 sylancr โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( 0 /L ๐‘ ) โˆˆ โ„ค )
47 46 zcnd โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( 0 /L ๐‘ ) โˆˆ โ„‚ )
48 47 adantr โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ด = 0 ) โ†’ ( 0 /L ๐‘ ) โˆˆ โ„‚ )
49 lgscl โŠข ( ( ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ต /L ๐‘ ) โˆˆ โ„ค )
50 42 45 49 syl2anc โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐ต /L ๐‘ ) โˆˆ โ„ค )
51 50 zcnd โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐ต /L ๐‘ ) โˆˆ โ„‚ )
52 51 adantr โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ด = 0 ) โ†’ ( ๐ต /L ๐‘ ) โˆˆ โ„‚ )
53 48 52 mulcomd โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ด = 0 ) โ†’ ( ( 0 /L ๐‘ ) ยท ( ๐ต /L ๐‘ ) ) = ( ( ๐ต /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) )
54 44 53 eqtr4d โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ด = 0 ) โ†’ ( 0 /L ๐‘ ) = ( ( 0 /L ๐‘ ) ยท ( ๐ต /L ๐‘ ) ) )
55 oveq1 โŠข ( ๐ด = 0 โ†’ ( ๐ด ยท ๐ต ) = ( 0 ยท ๐ต ) )
56 zcn โŠข ( ๐ต โˆˆ โ„ค โ†’ ๐ต โˆˆ โ„‚ )
57 56 3ad2ant2 โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ๐ต โˆˆ โ„‚ )
58 57 mul02d โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( 0 ยท ๐ต ) = 0 )
59 55 58 sylan9eqr โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ด = 0 ) โ†’ ( ๐ด ยท ๐ต ) = 0 )
60 59 oveq1d โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ด = 0 ) โ†’ ( ( ๐ด ยท ๐ต ) /L ๐‘ ) = ( 0 /L ๐‘ ) )
61 simpr โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ด = 0 ) โ†’ ๐ด = 0 )
62 61 oveq1d โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ด = 0 ) โ†’ ( ๐ด /L ๐‘ ) = ( 0 /L ๐‘ ) )
63 62 oveq1d โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ด = 0 ) โ†’ ( ( ๐ด /L ๐‘ ) ยท ( ๐ต /L ๐‘ ) ) = ( ( 0 /L ๐‘ ) ยท ( ๐ต /L ๐‘ ) ) )
64 54 60 63 3eqtr4d โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ด = 0 ) โ†’ ( ( ๐ด ยท ๐ต ) /L ๐‘ ) = ( ( ๐ด /L ๐‘ ) ยท ( ๐ต /L ๐‘ ) ) )
65 oveq1 โŠข ( ๐‘ฅ = ๐ด โ†’ ( ๐‘ฅ /L ๐‘ ) = ( ๐ด /L ๐‘ ) )
66 65 oveq1d โŠข ( ๐‘ฅ = ๐ด โ†’ ( ( ๐‘ฅ /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) = ( ( ๐ด /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) )
67 66 eqeq2d โŠข ( ๐‘ฅ = ๐ด โ†’ ( ( 0 /L ๐‘ ) = ( ( ๐‘ฅ /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) โ†” ( 0 /L ๐‘ ) = ( ( ๐ด /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) ) )
68 simp1 โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ๐ด โˆˆ โ„ค )
69 67 41 68 rspcdva โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( 0 /L ๐‘ ) = ( ( ๐ด /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) )
70 69 adantr โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ต = 0 ) โ†’ ( 0 /L ๐‘ ) = ( ( ๐ด /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) )
71 oveq2 โŠข ( ๐ต = 0 โ†’ ( ๐ด ยท ๐ต ) = ( ๐ด ยท 0 ) )
72 68 zcnd โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ๐ด โˆˆ โ„‚ )
73 72 mul01d โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐ด ยท 0 ) = 0 )
74 71 73 sylan9eqr โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ต = 0 ) โ†’ ( ๐ด ยท ๐ต ) = 0 )
75 74 oveq1d โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ต = 0 ) โ†’ ( ( ๐ด ยท ๐ต ) /L ๐‘ ) = ( 0 /L ๐‘ ) )
76 simpr โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ต = 0 ) โ†’ ๐ต = 0 )
77 76 oveq1d โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ต = 0 ) โ†’ ( ๐ต /L ๐‘ ) = ( 0 /L ๐‘ ) )
78 77 oveq2d โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ต = 0 ) โ†’ ( ( ๐ด /L ๐‘ ) ยท ( ๐ต /L ๐‘ ) ) = ( ( ๐ด /L ๐‘ ) ยท ( 0 /L ๐‘ ) ) )
79 70 75 78 3eqtr4d โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ๐ต = 0 ) โ†’ ( ( ๐ด ยท ๐ต ) /L ๐‘ ) = ( ( ๐ด /L ๐‘ ) ยท ( ๐ต /L ๐‘ ) ) )
80 lgsdir โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ( ๐ด โ‰  0 โˆง ๐ต โ‰  0 ) ) โ†’ ( ( ๐ด ยท ๐ต ) /L ๐‘ ) = ( ( ๐ด /L ๐‘ ) ยท ( ๐ต /L ๐‘ ) ) )
81 5 80 syl3anl3 โŠข ( ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โˆง ( ๐ด โ‰  0 โˆง ๐ต โ‰  0 ) ) โ†’ ( ( ๐ด ยท ๐ต ) /L ๐‘ ) = ( ( ๐ด /L ๐‘ ) ยท ( ๐ต /L ๐‘ ) ) )
82 64 79 81 pm2.61da2ne โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ( ๐ด ยท ๐ต ) /L ๐‘ ) = ( ( ๐ด /L ๐‘ ) ยท ( ๐ต /L ๐‘ ) ) )