Metamath Proof Explorer


Theorem rnglz

Description: The zero of a non-unital ring is a left-absorbing element. (Contributed by AV, 17-Apr-2020)

Ref Expression
Hypotheses rngcl.b โŠข ๐ต = ( Base โ€˜ ๐‘… )
rngcl.t โŠข ยท = ( .r โ€˜ ๐‘… )
rnglz.z โŠข 0 = ( 0g โ€˜ ๐‘… )
Assertion rnglz ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( 0 ยท ๐‘‹ ) = 0 )

Proof

Step Hyp Ref Expression
1 rngcl.b โŠข ๐ต = ( Base โ€˜ ๐‘… )
2 rngcl.t โŠข ยท = ( .r โ€˜ ๐‘… )
3 rnglz.z โŠข 0 = ( 0g โ€˜ ๐‘… )
4 rngabl โŠข ( ๐‘… โˆˆ Rng โ†’ ๐‘… โˆˆ Abel )
5 ablgrp โŠข ( ๐‘… โˆˆ Abel โ†’ ๐‘… โˆˆ Grp )
6 4 5 syl โŠข ( ๐‘… โˆˆ Rng โ†’ ๐‘… โˆˆ Grp )
7 1 3 grpidcl โŠข ( ๐‘… โˆˆ Grp โ†’ 0 โˆˆ ๐ต )
8 eqid โŠข ( +g โ€˜ ๐‘… ) = ( +g โ€˜ ๐‘… )
9 1 8 3 grplid โŠข ( ( ๐‘… โˆˆ Grp โˆง 0 โˆˆ ๐ต ) โ†’ ( 0 ( +g โ€˜ ๐‘… ) 0 ) = 0 )
10 6 7 9 syl2anc2 โŠข ( ๐‘… โˆˆ Rng โ†’ ( 0 ( +g โ€˜ ๐‘… ) 0 ) = 0 )
11 10 adantr โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( 0 ( +g โ€˜ ๐‘… ) 0 ) = 0 )
12 11 oveq1d โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( ( 0 ( +g โ€˜ ๐‘… ) 0 ) ยท ๐‘‹ ) = ( 0 ยท ๐‘‹ ) )
13 simpl โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ๐‘… โˆˆ Rng )
14 6 7 syl โŠข ( ๐‘… โˆˆ Rng โ†’ 0 โˆˆ ๐ต )
15 14 14 jca โŠข ( ๐‘… โˆˆ Rng โ†’ ( 0 โˆˆ ๐ต โˆง 0 โˆˆ ๐ต ) )
16 15 anim1i โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( ( 0 โˆˆ ๐ต โˆง 0 โˆˆ ๐ต ) โˆง ๐‘‹ โˆˆ ๐ต ) )
17 df-3an โŠข ( ( 0 โˆˆ ๐ต โˆง 0 โˆˆ ๐ต โˆง ๐‘‹ โˆˆ ๐ต ) โ†” ( ( 0 โˆˆ ๐ต โˆง 0 โˆˆ ๐ต ) โˆง ๐‘‹ โˆˆ ๐ต ) )
18 16 17 sylibr โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( 0 โˆˆ ๐ต โˆง 0 โˆˆ ๐ต โˆง ๐‘‹ โˆˆ ๐ต ) )
19 1 8 2 rngdir โŠข ( ( ๐‘… โˆˆ Rng โˆง ( 0 โˆˆ ๐ต โˆง 0 โˆˆ ๐ต โˆง ๐‘‹ โˆˆ ๐ต ) ) โ†’ ( ( 0 ( +g โ€˜ ๐‘… ) 0 ) ยท ๐‘‹ ) = ( ( 0 ยท ๐‘‹ ) ( +g โ€˜ ๐‘… ) ( 0 ยท ๐‘‹ ) ) )
20 13 18 19 syl2anc โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( ( 0 ( +g โ€˜ ๐‘… ) 0 ) ยท ๐‘‹ ) = ( ( 0 ยท ๐‘‹ ) ( +g โ€˜ ๐‘… ) ( 0 ยท ๐‘‹ ) ) )
21 6 adantr โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ๐‘… โˆˆ Grp )
22 14 adantr โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ 0 โˆˆ ๐ต )
23 simpr โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ๐‘‹ โˆˆ ๐ต )
24 1 2 rngcl โŠข ( ( ๐‘… โˆˆ Rng โˆง 0 โˆˆ ๐ต โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( 0 ยท ๐‘‹ ) โˆˆ ๐ต )
25 13 22 23 24 syl3anc โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( 0 ยท ๐‘‹ ) โˆˆ ๐ต )
26 1 8 3 grprid โŠข ( ( ๐‘… โˆˆ Grp โˆง ( 0 ยท ๐‘‹ ) โˆˆ ๐ต ) โ†’ ( ( 0 ยท ๐‘‹ ) ( +g โ€˜ ๐‘… ) 0 ) = ( 0 ยท ๐‘‹ ) )
27 26 eqcomd โŠข ( ( ๐‘… โˆˆ Grp โˆง ( 0 ยท ๐‘‹ ) โˆˆ ๐ต ) โ†’ ( 0 ยท ๐‘‹ ) = ( ( 0 ยท ๐‘‹ ) ( +g โ€˜ ๐‘… ) 0 ) )
28 21 25 27 syl2anc โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( 0 ยท ๐‘‹ ) = ( ( 0 ยท ๐‘‹ ) ( +g โ€˜ ๐‘… ) 0 ) )
29 12 20 28 3eqtr3d โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( ( 0 ยท ๐‘‹ ) ( +g โ€˜ ๐‘… ) ( 0 ยท ๐‘‹ ) ) = ( ( 0 ยท ๐‘‹ ) ( +g โ€˜ ๐‘… ) 0 ) )
30 1 8 grplcan โŠข ( ( ๐‘… โˆˆ Grp โˆง ( ( 0 ยท ๐‘‹ ) โˆˆ ๐ต โˆง 0 โˆˆ ๐ต โˆง ( 0 ยท ๐‘‹ ) โˆˆ ๐ต ) ) โ†’ ( ( ( 0 ยท ๐‘‹ ) ( +g โ€˜ ๐‘… ) ( 0 ยท ๐‘‹ ) ) = ( ( 0 ยท ๐‘‹ ) ( +g โ€˜ ๐‘… ) 0 ) โ†” ( 0 ยท ๐‘‹ ) = 0 ) )
31 21 25 22 25 30 syl13anc โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( ( ( 0 ยท ๐‘‹ ) ( +g โ€˜ ๐‘… ) ( 0 ยท ๐‘‹ ) ) = ( ( 0 ยท ๐‘‹ ) ( +g โ€˜ ๐‘… ) 0 ) โ†” ( 0 ยท ๐‘‹ ) = 0 ) )
32 29 31 mpbid โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐‘‹ โˆˆ ๐ต ) โ†’ ( 0 ยท ๐‘‹ ) = 0 )