Theorem mnringvald 41279

Description: Value of the monoid ring function. (Contributed by Rohan Ridenour, 14-May-2024.)

Hypotheses

Ref	Expression
mnringvald.1	⊢ 𝐹 = (𝑅 MndRing 𝑀)
mnringvald.2	⊢ · = (.r‘𝑅)
mnringvald.3	⊢ 0 = (0g‘𝑅)
mnringvald.4	⊢ 𝐴 = (Base‘𝑀)
mnringvald.5	⊢ + = (+g‘𝑀)
mnringvald.6	⊢ 𝑉 = (𝑅 freeLMod 𝐴)
mnringvald.7	⊢ 𝐵 = (Base‘𝑉)
mnringvald.8	⊢ (𝜑 → 𝑅 ∈ 𝑈)
mnringvald.9	⊢ (𝜑 → 𝑀 ∈ 𝑊)

Assertion

Ref	Expression
mnringvald	⊢ (𝜑 → 𝐹 = (𝑉 sSet ⟨(.r‘ndx), (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (𝑉 Σg (𝑎 ∈ 𝐴, 𝑏 ∈ 𝐴 ↦ (𝑖 ∈ 𝐴 ↦ if(𝑖 = (𝑎 + 𝑏), ((𝑥‘𝑎) · (𝑦‘𝑏)), 0 )))))⟩))

Distinct variable groups:   𝑅,𝑎,𝑏,𝑖,𝑥,𝑦   𝑀,𝑎,𝑏,𝑖,𝑥,𝑦

Allowed substitution hints:   𝜑(𝑥,𝑦,𝑖,𝑎,𝑏)   𝐴(𝑥,𝑦,𝑖,𝑎,𝑏)   𝐵(𝑥,𝑦,𝑖,𝑎,𝑏)   + (𝑥,𝑦,𝑖,𝑎,𝑏)   · (𝑥,𝑦,𝑖,𝑎,𝑏)   𝑈(𝑥,𝑦,𝑖,𝑎,𝑏)   𝐹(𝑥,𝑦,𝑖,𝑎,𝑏)   𝑉(𝑥,𝑦,𝑖,𝑎,𝑏)   𝑊(𝑥,𝑦,𝑖,𝑎,𝑏)   0 (𝑥,𝑦,𝑖,𝑎,𝑏)

Proof of Theorem mnringvald

Dummy variables 𝑚 𝑟 𝑣 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mnringvald.1	. 2 ⊢ 𝐹 = (𝑅 MndRing 𝑀)
2		mnringvald.8	. . . 4 ⊢ (𝜑 → 𝑅 ∈ 𝑈)
3	2	elexd 3429	. . 3 ⊢ (𝜑 → 𝑅 ∈ V)
4		mnringvald.9	. . . 4 ⊢ (𝜑 → 𝑀 ∈ 𝑊)
5	4	elexd 3429	. . 3 ⊢ (𝜑 → 𝑀 ∈ V)
6		nfv 1916	. . . . 5 ⊢ Ⅎ𝑣(𝑟 = 𝑅 ∧ 𝑚 = 𝑀)
7		nfcvd 2918	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) → Ⅎ𝑣(𝑉 sSet ⟨(.r‘ndx), (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (𝑉 Σg (𝑎 ∈ 𝐴, 𝑏 ∈ 𝐴 ↦ (𝑖 ∈ 𝐴 ↦ if(𝑖 = (𝑎 + 𝑏), ((𝑥‘𝑎) · (𝑦‘𝑏)), 0 )))))⟩))
8		ovexd 7178	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) → (𝑟 freeLMod (Base‘𝑚)) ∈ V)
9		simpr 489	. . . . . . . 8 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → 𝑣 = (𝑟 freeLMod (Base‘𝑚)))
10		simpll 767	. . . . . . . . 9 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → 𝑟 = 𝑅)
11		fveq2 6651	. . . . . . . . . . 11 ⊢ (𝑚 = 𝑀 → (Base‘𝑚) = (Base‘𝑀))
12		mnringvald.4	. . . . . . . . . . 11 ⊢ 𝐴 = (Base‘𝑀)
13	11, 12	eqtr4di 2812	. . . . . . . . . 10 ⊢ (𝑚 = 𝑀 → (Base‘𝑚) = 𝐴)
14	13	ad2antlr 727	. . . . . . . . 9 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → (Base‘𝑚) = 𝐴)
15	10, 14	oveq12d 7161	. . . . . . . 8 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → (𝑟 freeLMod (Base‘𝑚)) = (𝑅 freeLMod 𝐴))
16	9, 15	eqtrd 2794	. . . . . . 7 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → 𝑣 = (𝑅 freeLMod 𝐴))
17		mnringvald.6	. . . . . . 7 ⊢ 𝑉 = (𝑅 freeLMod 𝐴)
18	16, 17	eqtr4di 2812	. . . . . 6 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → 𝑣 = 𝑉)
19	18	fveq2d 6655	. . . . . . . . 9 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → (Base‘𝑣) = (Base‘𝑉))
20		mnringvald.7	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝑉)
21	19, 20	eqtr4di 2812	. . . . . . . 8 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → (Base‘𝑣) = 𝐵)
22		fveq2 6651	. . . . . . . . . . . . . . . 16 ⊢ (𝑚 = 𝑀 → (+g‘𝑚) = (+g‘𝑀))
23		mnringvald.5	. . . . . . . . . . . . . . . 16 ⊢ + = (+g‘𝑀)
24	22, 23	eqtr4di 2812	. . . . . . . . . . . . . . 15 ⊢ (𝑚 = 𝑀 → (+g‘𝑚) = + )
25	24	oveqd 7160	. . . . . . . . . . . . . 14 ⊢ (𝑚 = 𝑀 → (𝑎(+g‘𝑚)𝑏) = (𝑎 + 𝑏))
26	25	ad2antlr 727	. . . . . . . . . . . . 13 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → (𝑎(+g‘𝑚)𝑏) = (𝑎 + 𝑏))
27	26	eqeq2d 2770	. . . . . . . . . . . 12 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → (𝑖 = (𝑎(+g‘𝑚)𝑏) ↔ 𝑖 = (𝑎 + 𝑏)))
28		fveq2 6651	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = 𝑅 → (.r‘𝑟) = (.r‘𝑅))
29		mnringvald.2	. . . . . . . . . . . . . . 15 ⊢ · = (.r‘𝑅)
30	28, 29	eqtr4di 2812	. . . . . . . . . . . . . 14 ⊢ (𝑟 = 𝑅 → (.r‘𝑟) = · )
31	30	oveqd 7160	. . . . . . . . . . . . 13 ⊢ (𝑟 = 𝑅 → ((𝑥‘𝑎)(.r‘𝑟)(𝑦‘𝑏)) = ((𝑥‘𝑎) · (𝑦‘𝑏)))
32	31	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → ((𝑥‘𝑎)(.r‘𝑟)(𝑦‘𝑏)) = ((𝑥‘𝑎) · (𝑦‘𝑏)))
33		fveq2 6651	. . . . . . . . . . . . . 14 ⊢ (𝑟 = 𝑅 → (0g‘𝑟) = (0g‘𝑅))
34		mnringvald.3	. . . . . . . . . . . . . 14 ⊢ 0 = (0g‘𝑅)
35	33, 34	eqtr4di 2812	. . . . . . . . . . . . 13 ⊢ (𝑟 = 𝑅 → (0g‘𝑟) = 0 )
36	35	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → (0g‘𝑟) = 0 )
37	27, 32, 36	ifbieq12d 4441	. . . . . . . . . . 11 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → if(𝑖 = (𝑎(+g‘𝑚)𝑏), ((𝑥‘𝑎)(.r‘𝑟)(𝑦‘𝑏)), (0g‘𝑟)) = if(𝑖 = (𝑎 + 𝑏), ((𝑥‘𝑎) · (𝑦‘𝑏)), 0 ))
38	14, 37	mpteq12dv 5110	. . . . . . . . . 10 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → (𝑖 ∈ (Base‘𝑚) ↦ if(𝑖 = (𝑎(+g‘𝑚)𝑏), ((𝑥‘𝑎)(.r‘𝑟)(𝑦‘𝑏)), (0g‘𝑟))) = (𝑖 ∈ 𝐴 ↦ if(𝑖 = (𝑎 + 𝑏), ((𝑥‘𝑎) · (𝑦‘𝑏)), 0 )))
39	14, 14, 38	mpoeq123dv 7216	. . . . . . . . 9 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → (𝑎 ∈ (Base‘𝑚), 𝑏 ∈ (Base‘𝑚) ↦ (𝑖 ∈ (Base‘𝑚) ↦ if(𝑖 = (𝑎(+g‘𝑚)𝑏), ((𝑥‘𝑎)(.r‘𝑟)(𝑦‘𝑏)), (0g‘𝑟)))) = (𝑎 ∈ 𝐴, 𝑏 ∈ 𝐴 ↦ (𝑖 ∈ 𝐴 ↦ if(𝑖 = (𝑎 + 𝑏), ((𝑥‘𝑎) · (𝑦‘𝑏)), 0 ))))
40	18, 39	oveq12d 7161	. . . . . . . 8 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → (𝑣 Σg (𝑎 ∈ (Base‘𝑚), 𝑏 ∈ (Base‘𝑚) ↦ (𝑖 ∈ (Base‘𝑚) ↦ if(𝑖 = (𝑎(+g‘𝑚)𝑏), ((𝑥‘𝑎)(.r‘𝑟)(𝑦‘𝑏)), (0g‘𝑟))))) = (𝑉 Σg (𝑎 ∈ 𝐴, 𝑏 ∈ 𝐴 ↦ (𝑖 ∈ 𝐴 ↦ if(𝑖 = (𝑎 + 𝑏), ((𝑥‘𝑎) · (𝑦‘𝑏)), 0 )))))
41	21, 21, 40	mpoeq123dv 7216	. . . . . . 7 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → (𝑥 ∈ (Base‘𝑣), 𝑦 ∈ (Base‘𝑣) ↦ (𝑣 Σg (𝑎 ∈ (Base‘𝑚), 𝑏 ∈ (Base‘𝑚) ↦ (𝑖 ∈ (Base‘𝑚) ↦ if(𝑖 = (𝑎(+g‘𝑚)𝑏), ((𝑥‘𝑎)(.r‘𝑟)(𝑦‘𝑏)), (0g‘𝑟)))))) = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (𝑉 Σg (𝑎 ∈ 𝐴, 𝑏 ∈ 𝐴 ↦ (𝑖 ∈ 𝐴 ↦ if(𝑖 = (𝑎 + 𝑏), ((𝑥‘𝑎) · (𝑦‘𝑏)), 0 ))))))
42	41	opeq2d 4763	. . . . . 6 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → ⟨(.r‘ndx), (𝑥 ∈ (Base‘𝑣), 𝑦 ∈ (Base‘𝑣) ↦ (𝑣 Σg (𝑎 ∈ (Base‘𝑚), 𝑏 ∈ (Base‘𝑚) ↦ (𝑖 ∈ (Base‘𝑚) ↦ if(𝑖 = (𝑎(+g‘𝑚)𝑏), ((𝑥‘𝑎)(.r‘𝑟)(𝑦‘𝑏)), (0g‘𝑟))))))⟩ = ⟨(.r‘ndx), (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (𝑉 Σg (𝑎 ∈ 𝐴, 𝑏 ∈ 𝐴 ↦ (𝑖 ∈ 𝐴 ↦ if(𝑖 = (𝑎 + 𝑏), ((𝑥‘𝑎) · (𝑦‘𝑏)), 0 )))))⟩)
43	18, 42	oveq12d 7161	. . . . 5 ⊢ (((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) ∧ 𝑣 = (𝑟 freeLMod (Base‘𝑚))) → (𝑣 sSet ⟨(.r‘ndx), (𝑥 ∈ (Base‘𝑣), 𝑦 ∈ (Base‘𝑣) ↦ (𝑣 Σg (𝑎 ∈ (Base‘𝑚), 𝑏 ∈ (Base‘𝑚) ↦ (𝑖 ∈ (Base‘𝑚) ↦ if(𝑖 = (𝑎(+g‘𝑚)𝑏), ((𝑥‘𝑎)(.r‘𝑟)(𝑦‘𝑏)), (0g‘𝑟))))))⟩) = (𝑉 sSet ⟨(.r‘ndx), (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (𝑉 Σg (𝑎 ∈ 𝐴, 𝑏 ∈ 𝐴 ↦ (𝑖 ∈ 𝐴 ↦ if(𝑖 = (𝑎 + 𝑏), ((𝑥‘𝑎) · (𝑦‘𝑏)), 0 )))))⟩))
44	6, 7, 8, 43	csbiedf 3831	. . . 4 ⊢ ((𝑟 = 𝑅 ∧ 𝑚 = 𝑀) → ⦋(𝑟 freeLMod (Base‘𝑚)) / 𝑣⦌(𝑣 sSet ⟨(.r‘ndx), (𝑥 ∈ (Base‘𝑣), 𝑦 ∈ (Base‘𝑣) ↦ (𝑣 Σg (𝑎 ∈ (Base‘𝑚), 𝑏 ∈ (Base‘𝑚) ↦ (𝑖 ∈ (Base‘𝑚) ↦ if(𝑖 = (𝑎(+g‘𝑚)𝑏), ((𝑥‘𝑎)(.r‘𝑟)(𝑦‘𝑏)), (0g‘𝑟))))))⟩) = (𝑉 sSet ⟨(.r‘ndx), (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (𝑉 Σg (𝑎 ∈ 𝐴, 𝑏 ∈ 𝐴 ↦ (𝑖 ∈ 𝐴 ↦ if(𝑖 = (𝑎 + 𝑏), ((𝑥‘𝑎) · (𝑦‘𝑏)), 0 )))))⟩))
45		df-mnring 41278	. . . 4 ⊢ MndRing = (𝑟 ∈ V, 𝑚 ∈ V ↦ ⦋(𝑟 freeLMod (Base‘𝑚)) / 𝑣⦌(𝑣 sSet ⟨(.r‘ndx), (𝑥 ∈ (Base‘𝑣), 𝑦 ∈ (Base‘𝑣) ↦ (𝑣 Σg (𝑎 ∈ (Base‘𝑚), 𝑏 ∈ (Base‘𝑚) ↦ (𝑖 ∈ (Base‘𝑚) ↦ if(𝑖 = (𝑎(+g‘𝑚)𝑏), ((𝑥‘𝑎)(.r‘𝑟)(𝑦‘𝑏)), (0g‘𝑟))))))⟩))
46		ovex 7176	. . . 4 ⊢ (𝑉 sSet ⟨(.r‘ndx), (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (𝑉 Σg (𝑎 ∈ 𝐴, 𝑏 ∈ 𝐴 ↦ (𝑖 ∈ 𝐴 ↦ if(𝑖 = (𝑎 + 𝑏), ((𝑥‘𝑎) · (𝑦‘𝑏)), 0 )))))⟩) ∈ V
47	44, 45, 46	ovmpoa 7293	. . 3 ⊢ ((𝑅 ∈ V ∧ 𝑀 ∈ V) → (𝑅 MndRing 𝑀) = (𝑉 sSet ⟨(.r‘ndx), (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (𝑉 Σg (𝑎 ∈ 𝐴, 𝑏 ∈ 𝐴 ↦ (𝑖 ∈ 𝐴 ↦ if(𝑖 = (𝑎 + 𝑏), ((𝑥‘𝑎) · (𝑦‘𝑏)), 0 )))))⟩))
48	3, 5, 47	syl2anc 588	. 2 ⊢ (𝜑 → (𝑅 MndRing 𝑀) = (𝑉 sSet ⟨(.r‘ndx), (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (𝑉 Σg (𝑎 ∈ 𝐴, 𝑏 ∈ 𝐴 ↦ (𝑖 ∈ 𝐴 ↦ if(𝑖 = (𝑎 + 𝑏), ((𝑥‘𝑎) · (𝑦‘𝑏)), 0 )))))⟩))
49	1, 48	syl5eq 2806	1 ⊢ (𝜑 → 𝐹 = (𝑉 sSet ⟨(.r‘ndx), (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (𝑉 Σg (𝑎 ∈ 𝐴, 𝑏 ∈ 𝐴 ↦ (𝑖 ∈ 𝐴 ↦ if(𝑖 = (𝑎 + 𝑏), ((𝑥‘𝑎) · (𝑦‘𝑏)), 0 )))))⟩))

Syntax hints:   → wi 4   ∧ wa 400   = wceq 1539   ∈ wcel 2112  Vcvv 3407  ⦋csb 3801  ifcif 4413  ⟨cop 4521   ↦ cmpt 5105  ‘cfv 6328  (class class class)co 7143   ∈ cmpo 7145  ndxcnx 16523   sSet csts 16524  Basecbs 16526  +_gcplusg 16608  ._rcmulr 16609  0_gc0g 16756   Σ_g cgsu 16757   freeLMod cfrlm 20496   MndRing cmnring 41277

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1912  ax-6 1971  ax-7 2016  ax-8 2114  ax-9 2122  ax-10 2143  ax-11 2159  ax-12 2176  ax-ext 2730  ax-sep 5162  ax-nul 5169  ax-pr 5291

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 846  df-3an 1087  df-tru 1542  df-ex 1783  df-nf 1787  df-sb 2071  df-mo 2558  df-eu 2589  df-clab 2737  df-cleq 2751  df-clel 2831  df-nfc 2899  df-ral 3073  df-rex 3074  df-rab 3077  df-v 3409  df-sbc 3694  df-csb 3802  df-dif 3857  df-un 3859  df-in 3861  df-ss 3871  df-nul 4222  df-if 4414  df-sn 4516  df-pr 4518  df-op 4522  df-uni 4792  df-br 5026  df-opab 5088  df-mpt 5106  df-id 5423  df-xp 5523  df-rel 5524  df-cnv 5525  df-co 5526  df-dm 5527  df-iota 6287  df-fun 6330  df-fv 6336  df-ov 7146  df-oprab 7147  df-mpo 7148  df-mnring 41278

This theorem is referenced by:  mnringnmulrd  41280  mnringmulrd  41289