Metamath Proof Explorer


Theorem issrg

Description: The predicate "is a semiring". (Contributed by Thierry Arnoux, 21-Mar-2018)

Ref Expression
Hypotheses issrg.b B=BaseR
issrg.g G=mulGrpR
issrg.p +˙=+R
issrg.t ·˙=R
issrg.0 0˙=0R
Assertion issrg RSRingRCMndGMndxByBzBx·˙y+˙z=x·˙y+˙x·˙zx+˙y·˙z=x·˙z+˙y·˙z0˙·˙x=0˙x·˙0˙=0˙

Proof

Step Hyp Ref Expression
1 issrg.b B=BaseR
2 issrg.g G=mulGrpR
3 issrg.p +˙=+R
4 issrg.t ·˙=R
5 issrg.0 0˙=0R
6 2 eleq1i GMndmulGrpRMnd
7 6 bicomi mulGrpRMndGMnd
8 1 fvexi BV
9 3 fvexi +˙V
10 4 fvexi ·˙V
11 10 a1i b=Bp=+˙·˙V
12 5 fvexi 0˙V
13 12 a1i b=Bp=+˙t=·˙0˙V
14 simplll b=Bp=+˙t=·˙n=0˙b=B
15 simplr b=Bp=+˙t=·˙n=0˙t=·˙
16 eqidd b=Bp=+˙t=·˙n=0˙x=x
17 simpllr b=Bp=+˙t=·˙n=0˙p=+˙
18 17 oveqd b=Bp=+˙t=·˙n=0˙ypz=y+˙z
19 15 16 18 oveq123d b=Bp=+˙t=·˙n=0˙xtypz=x·˙y+˙z
20 15 oveqd b=Bp=+˙t=·˙n=0˙xty=x·˙y
21 15 oveqd b=Bp=+˙t=·˙n=0˙xtz=x·˙z
22 17 20 21 oveq123d b=Bp=+˙t=·˙n=0˙xtypxtz=x·˙y+˙x·˙z
23 19 22 eqeq12d b=Bp=+˙t=·˙n=0˙xtypz=xtypxtzx·˙y+˙z=x·˙y+˙x·˙z
24 17 oveqd b=Bp=+˙t=·˙n=0˙xpy=x+˙y
25 eqidd b=Bp=+˙t=·˙n=0˙z=z
26 15 24 25 oveq123d b=Bp=+˙t=·˙n=0˙xpytz=x+˙y·˙z
27 15 oveqd b=Bp=+˙t=·˙n=0˙ytz=y·˙z
28 17 21 27 oveq123d b=Bp=+˙t=·˙n=0˙xtzpytz=x·˙z+˙y·˙z
29 26 28 eqeq12d b=Bp=+˙t=·˙n=0˙xpytz=xtzpytzx+˙y·˙z=x·˙z+˙y·˙z
30 23 29 anbi12d b=Bp=+˙t=·˙n=0˙xtypz=xtypxtzxpytz=xtzpytzx·˙y+˙z=x·˙y+˙x·˙zx+˙y·˙z=x·˙z+˙y·˙z
31 14 30 raleqbidv b=Bp=+˙t=·˙n=0˙zbxtypz=xtypxtzxpytz=xtzpytzzBx·˙y+˙z=x·˙y+˙x·˙zx+˙y·˙z=x·˙z+˙y·˙z
32 14 31 raleqbidv b=Bp=+˙t=·˙n=0˙ybzbxtypz=xtypxtzxpytz=xtzpytzyBzBx·˙y+˙z=x·˙y+˙x·˙zx+˙y·˙z=x·˙z+˙y·˙z
33 simpr b=Bp=+˙t=·˙n=0˙n=0˙
34 15 33 16 oveq123d b=Bp=+˙t=·˙n=0˙ntx=0˙·˙x
35 34 33 eqeq12d b=Bp=+˙t=·˙n=0˙ntx=n0˙·˙x=0˙
36 15 16 33 oveq123d b=Bp=+˙t=·˙n=0˙xtn=x·˙0˙
37 36 33 eqeq12d b=Bp=+˙t=·˙n=0˙xtn=nx·˙0˙=0˙
38 35 37 anbi12d b=Bp=+˙t=·˙n=0˙ntx=nxtn=n0˙·˙x=0˙x·˙0˙=0˙
39 32 38 anbi12d b=Bp=+˙t=·˙n=0˙ybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=nyBzBx·˙y+˙z=x·˙y+˙x·˙zx+˙y·˙z=x·˙z+˙y·˙z0˙·˙x=0˙x·˙0˙=0˙
40 14 39 raleqbidv b=Bp=+˙t=·˙n=0˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=nxByBzBx·˙y+˙z=x·˙y+˙x·˙zx+˙y·˙z=x·˙z+˙y·˙z0˙·˙x=0˙x·˙0˙=0˙
41 13 40 sbcied b=Bp=+˙t=·˙[˙0˙/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=nxByBzBx·˙y+˙z=x·˙y+˙x·˙zx+˙y·˙z=x·˙z+˙y·˙z0˙·˙x=0˙x·˙0˙=0˙
42 11 41 sbcied b=Bp=+˙[˙·˙/t]˙[˙0˙/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=nxByBzBx·˙y+˙z=x·˙y+˙x·˙zx+˙y·˙z=x·˙z+˙y·˙z0˙·˙x=0˙x·˙0˙=0˙
43 8 9 42 sbc2ie [˙B/b]˙[˙+˙/p]˙[˙·˙/t]˙[˙0˙/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=nxByBzBx·˙y+˙z=x·˙y+˙x·˙zx+˙y·˙z=x·˙z+˙y·˙z0˙·˙x=0˙x·˙0˙=0˙
44 7 43 anbi12i mulGrpRMnd[˙B/b]˙[˙+˙/p]˙[˙·˙/t]˙[˙0˙/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=nGMndxByBzBx·˙y+˙z=x·˙y+˙x·˙zx+˙y·˙z=x·˙z+˙y·˙z0˙·˙x=0˙x·˙0˙=0˙
45 44 anbi2i RCMndmulGrpRMnd[˙B/b]˙[˙+˙/p]˙[˙·˙/t]˙[˙0˙/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=nRCMndGMndxByBzBx·˙y+˙z=x·˙y+˙x·˙zx+˙y·˙z=x·˙z+˙y·˙z0˙·˙x=0˙x·˙0˙=0˙
46 fveq2 r=RmulGrpr=mulGrpR
47 46 eleq1d r=RmulGrprMndmulGrpRMnd
48 fveq2 r=RBaser=BaseR
49 48 1 eqtr4di r=RBaser=B
50 fveq2 r=R+r=+R
51 50 3 eqtr4di r=R+r=+˙
52 fveq2 r=Rr=R
53 52 4 eqtr4di r=Rr=·˙
54 fveq2 r=R0r=0R
55 54 5 eqtr4di r=R0r=0˙
56 55 sbceq1d r=R[˙0r/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=n[˙0˙/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=n
57 53 56 sbceqbid r=R[˙r/t]˙[˙0r/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=n[˙·˙/t]˙[˙0˙/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=n
58 51 57 sbceqbid r=R[˙+r/p]˙[˙r/t]˙[˙0r/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=n[˙+˙/p]˙[˙·˙/t]˙[˙0˙/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=n
59 49 58 sbceqbid r=R[˙Baser/b]˙[˙+r/p]˙[˙r/t]˙[˙0r/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=n[˙B/b]˙[˙+˙/p]˙[˙·˙/t]˙[˙0˙/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=n
60 47 59 anbi12d r=RmulGrprMnd[˙Baser/b]˙[˙+r/p]˙[˙r/t]˙[˙0r/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=nmulGrpRMnd[˙B/b]˙[˙+˙/p]˙[˙·˙/t]˙[˙0˙/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=n
61 df-srg SRing=rCMnd|mulGrprMnd[˙Baser/b]˙[˙+r/p]˙[˙r/t]˙[˙0r/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=n
62 60 61 elrab2 RSRingRCMndmulGrpRMnd[˙B/b]˙[˙+˙/p]˙[˙·˙/t]˙[˙0˙/n]˙xbybzbxtypz=xtypxtzxpytz=xtzpytzntx=nxtn=n
63 3anass RCMndGMndxByBzBx·˙y+˙z=x·˙y+˙x·˙zx+˙y·˙z=x·˙z+˙y·˙z0˙·˙x=0˙x·˙0˙=0˙RCMndGMndxByBzBx·˙y+˙z=x·˙y+˙x·˙zx+˙y·˙z=x·˙z+˙y·˙z0˙·˙x=0˙x·˙0˙=0˙
64 45 62 63 3bitr4i RSRingRCMndGMndxByBzBx·˙y+˙z=x·˙y+˙x·˙zx+˙y·˙z=x·˙z+˙y·˙z0˙·˙x=0˙x·˙0˙=0˙