Description: Define the monoid ring function. This takes a monoid M and a ring R and produces a free left module over R with a product extending the monoid function on M . (Contributed by Rohan Ridenour, 13-May-2024)
Ref | Expression | ||
---|---|---|---|
Assertion | df-mnring | Could not format assertion : No typesetting found for |- MndRing = ( r e. _V , m e. _V |-> [_ ( r freeLMod ( Base ` m ) ) / v ]_ ( v sSet <. ( .r ` ndx ) , ( x e. ( Base ` v ) , y e. ( Base ` v ) |-> ( v gsum ( a e. ( Base ` m ) , b e. ( Base ` m ) |-> ( i e. ( Base ` m ) |-> if ( i = ( a ( +g ` m ) b ) , ( ( x ` a ) ( .r ` r ) ( y ` b ) ) , ( 0g ` r ) ) ) ) ) ) >. ) ) with typecode |- |
Step | Hyp | Ref | Expression |
---|---|---|---|
0 | cmnring | Could not format MndRing : No typesetting found for class MndRing with typecode class | |
1 | vr | |
|
2 | cvv | |
|
3 | vm | |
|
4 | 1 | cv | |
5 | cfrlm | |
|
6 | cbs | |
|
7 | 3 | cv | |
8 | 7 6 | cfv | |
9 | 4 8 5 | co | |
10 | vv | |
|
11 | 10 | cv | |
12 | csts | |
|
13 | cmulr | |
|
14 | cnx | |
|
15 | 14 13 | cfv | |
16 | vx | |
|
17 | 11 6 | cfv | |
18 | vy | |
|
19 | cgsu | |
|
20 | va | |
|
21 | vb | |
|
22 | vi | |
|
23 | 22 | cv | |
24 | 20 | cv | |
25 | cplusg | |
|
26 | 7 25 | cfv | |
27 | 21 | cv | |
28 | 24 27 26 | co | |
29 | 23 28 | wceq | |
30 | 16 | cv | |
31 | 24 30 | cfv | |
32 | 4 13 | cfv | |
33 | 18 | cv | |
34 | 27 33 | cfv | |
35 | 31 34 32 | co | |
36 | c0g | |
|
37 | 4 36 | cfv | |
38 | 29 35 37 | cif | |
39 | 22 8 38 | cmpt | |
40 | 20 21 8 8 39 | cmpo | |
41 | 11 40 19 | co | |
42 | 16 18 17 17 41 | cmpo | |
43 | 15 42 | cop | |
44 | 11 43 12 | co | |
45 | 10 9 44 | csb | |
46 | 1 3 2 2 45 | cmpo | |
47 | 0 46 | wceq | Could not format MndRing = ( r e. _V , m e. _V |-> [_ ( r freeLMod ( Base ` m ) ) / v ]_ ( v sSet <. ( .r ` ndx ) , ( x e. ( Base ` v ) , y e. ( Base ` v ) |-> ( v gsum ( a e. ( Base ` m ) , b e. ( Base ` m ) |-> ( i e. ( Base ` m ) |-> if ( i = ( a ( +g ` m ) b ) , ( ( x ` a ) ( .r ` r ) ( y ` b ) ) , ( 0g ` r ) ) ) ) ) ) >. ) ) : No typesetting found for wff MndRing = ( r e. _V , m e. _V |-> [_ ( r freeLMod ( Base ` m ) ) / v ]_ ( v sSet <. ( .r ` ndx ) , ( x e. ( Base ` v ) , y e. ( Base ` v ) |-> ( v gsum ( a e. ( Base ` m ) , b e. ( Base ` m ) |-> ( i e. ( Base ` m ) |-> if ( i = ( a ( +g ` m ) b ) , ( ( x ` a ) ( .r ` r ) ( y ` b ) ) , ( 0g ` r ) ) ) ) ) ) >. ) ) with typecode wff |