Theorem issrg 20238

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

Hypotheses

Ref	Expression
issrg.b	⊢ 𝐵 = (Base‘𝑅)
issrg.g	⊢ 𝐺 = (mulGrp‘𝑅)
issrg.p	⊢ + = (+g‘𝑅)
issrg.t	⊢ · = (.r‘𝑅)
issrg.0	⊢ 0 = (0g‘𝑅)

Assertion

Ref	Expression
issrg	⊢ (𝑅 ∈ SRing ↔ (𝑅 ∈ CMnd ∧ 𝐺 ∈ Mnd ∧ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))

Distinct variable groups:   𝑥,𝑦,𝑧, +   𝑥, 0 ,𝑦,𝑧   𝑥, · ,𝑦,𝑧   𝑥,𝐵,𝑦,𝑧   𝑥,𝑅,𝑦,𝑧

Allowed substitution hints:   𝐺(𝑥,𝑦,𝑧)

Proof of Theorem issrg

Dummy variables 𝑛 𝑏 𝑝 𝑟 𝑡 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		issrg.g	. . . . . 6 ⊢ 𝐺 = (mulGrp‘𝑅)
2	1	eleq1i 2853	. . . . 5 ⊢ (𝐺 ∈ Mnd ↔ (mulGrp‘𝑅) ∈ Mnd)
3	2	bicomi 226	. . . 4 ⊢ ((mulGrp‘𝑅) ∈ Mnd ↔ 𝐺 ∈ Mnd)
4		issrg.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝑅)
5	4	fvexi 6881	. . . . 5 ⊢ 𝐵 ∈ V
6		issrg.p	. . . . . 6 ⊢ + = (+g‘𝑅)
7	6	fvexi 6881	. . . . 5 ⊢ + ∈ V
8		issrg.t	. . . . . . . 8 ⊢ · = (.r‘𝑅)
9	8	fvexi 6881	. . . . . . 7 ⊢ · ∈ V
10	9	a1i 11	. . . . . 6 ⊢ ((𝑏 = 𝐵 ∧ 𝑝 = + ) → · ∈ V)
11		issrg.0	. . . . . . . . 9 ⊢ 0 = (0g‘𝑅)
12	11	fvexi 6881	. . . . . . . 8 ⊢ 0 ∈ V
13	12	a1i 11	. . . . . . 7 ⊢ (((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) → 0 ∈ V)
14		simplll 784	. . . . . . . 8 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑏 = 𝐵)
15		simplr 778	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑡 = · )
16		eqidd 2763	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑥 = 𝑥)
17		simpllr 785	. . . . . . . . . . . . . . 15 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑝 = + )
18	17	oveqd 7413	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑦𝑝𝑧) = (𝑦 + 𝑧))
19	15, 16, 18	oveq123d 7417	. . . . . . . . . . . . 13 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑡(𝑦𝑝𝑧)) = (𝑥 · (𝑦 + 𝑧)))
20	15	oveqd 7413	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑡𝑦) = (𝑥 · 𝑦))
21	15	oveqd 7413	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑡𝑧) = (𝑥 · 𝑧))
22	17, 20, 21	oveq123d 7417	. . . . . . . . . . . . 13 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)))
23	19, 22	eqeq12d 2778	. . . . . . . . . . . 12 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ↔ (𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧))))
24	17	oveqd 7413	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑝𝑦) = (𝑥 + 𝑦))
25		eqidd 2763	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑧 = 𝑧)
26	15, 24, 25	oveq123d 7417	. . . . . . . . . . . . 13 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥 + 𝑦) · 𝑧))
27	15	oveqd 7413	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑦𝑡𝑧) = (𝑦 · 𝑧))
28	17, 21, 27	oveq123d 7417	. . . . . . . . . . . . 13 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧)) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))
29	26, 28	eqeq12d 2778	. . . . . . . . . . . 12 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧)) ↔ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))))
30	23, 29	anbi12d 641	. . . . . . . . . . 11 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))))
31	14, 30	raleqbidv 3336	. . . . . . . . . 10 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))))
32	14, 31	raleqbidv 3336	. . . . . . . . 9 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))))
33		simpr 488	. . . . . . . . . . . 12 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑛 = 0 )
34	15, 33, 16	oveq123d 7417	. . . . . . . . . . 11 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑛𝑡𝑥) = ( 0 · 𝑥))
35	34, 33	eqeq12d 2778	. . . . . . . . . 10 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑛𝑡𝑥) = 𝑛 ↔ ( 0 · 𝑥) = 0 ))
36	15, 16, 33	oveq123d 7417	. . . . . . . . . . 11 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑡𝑛) = (𝑥 · 0 ))
37	36, 33	eqeq12d 2778	. . . . . . . . . 10 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑡𝑛) = 𝑛 ↔ (𝑥 · 0 ) = 0 ))
38	35, 37	anbi12d 641	. . . . . . . . 9 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛) ↔ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 )))
39	32, 38	anbi12d 641	. . . . . . . 8 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
40	14, 39	raleqbidv 3336	. . . . . . 7 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
41	13, 40	sbcied 3787	. . . . . 6 ⊢ (((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) → ([ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
42	10, 41	sbcied 3787	. . . . 5 ⊢ ((𝑏 = 𝐵 ∧ 𝑝 = + ) → ([ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
43	5, 7, 42	sbc2ie 3819	. . . 4 ⊢ ([𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 )))
44	3, 43	anbi12i 637	. . 3 ⊢ (((mulGrp‘𝑅) ∈ Mnd ∧ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))) ↔ (𝐺 ∈ Mnd ∧ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
45	44	anbi2i 632	. 2 ⊢ ((𝑅 ∈ CMnd ∧ ((mulGrp‘𝑅) ∈ Mnd ∧ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)))) ↔ (𝑅 ∈ CMnd ∧ (𝐺 ∈ Mnd ∧ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 )))))
46		fveq2 6867	. . . . 5 ⊢ (𝑟 = 𝑅 → (mulGrp‘𝑟) = (mulGrp‘𝑅))
47	46	eleq1d 2847	. . . 4 ⊢ (𝑟 = 𝑅 → ((mulGrp‘𝑟) ∈ Mnd ↔ (mulGrp‘𝑅) ∈ Mnd))
48		fveq2 6867	. . . . . 6 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
49	48, 4	eqtr4di 2815	. . . . 5 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = 𝐵)
50		fveq2 6867	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (+g‘𝑟) = (+g‘𝑅))
51	50, 6	eqtr4di 2815	. . . . . 6 ⊢ (𝑟 = 𝑅 → (+g‘𝑟) = + )
52		fveq2 6867	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (.r‘𝑟) = (.r‘𝑅))
53	52, 8	eqtr4di 2815	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (.r‘𝑟) = · )
54		fveq2 6867	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (0g‘𝑟) = (0g‘𝑅))
55	54, 11	eqtr4di 2815	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (0g‘𝑟) = 0 )
56	55	sbceq1d 3749	. . . . . . 7 ⊢ (𝑟 = 𝑅 → ([(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ [ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))))
57	53, 56	sbceqbid 3751	. . . . . 6 ⊢ (𝑟 = 𝑅 → ([(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ [ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))))
58	51, 57	sbceqbid 3751	. . . . 5 ⊢ (𝑟 = 𝑅 → ([(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ [ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))))
59	49, 58	sbceqbid 3751	. . . 4 ⊢ (𝑟 = 𝑅 → ([(Base‘𝑟) / 𝑏][(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))))
60	47, 59	anbi12d 641	. . 3 ⊢ (𝑟 = 𝑅 → (((mulGrp‘𝑟) ∈ Mnd ∧ [(Base‘𝑟) / 𝑏][(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))) ↔ ((mulGrp‘𝑅) ∈ Mnd ∧ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)))))
61		df-srg 20237	. . 3 ⊢ SRing = {𝑟 ∈ CMnd ∣ ((mulGrp‘𝑟) ∈ Mnd ∧ [(Base‘𝑟) / 𝑏][(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)))}
62	60, 61	elrab2 3654	. 2 ⊢ (𝑅 ∈ SRing ↔ (𝑅 ∈ CMnd ∧ ((mulGrp‘𝑅) ∈ Mnd ∧ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)))))
63		3anass 1106	. 2 ⊢ ((𝑅 ∈ CMnd ∧ 𝐺 ∈ Mnd ∧ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))) ↔ (𝑅 ∈ CMnd ∧ (𝐺 ∈ Mnd ∧ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 )))))
64	45, 62, 63	3bitr4i 305	1 ⊢ (𝑅 ∈ SRing ↔ (𝑅 ∈ CMnd ∧ 𝐺 ∈ Mnd ∧ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))

Syntax hints:   ↔ wb 208   ∧ wa 399   ∧ w3a 1098   = wceq 1560   ∈ wcel 2142  ∀wral 3076  Vcvv 3454  [wsbc 3744  ‘cfv 6521  (class class class)co 7396  Basecbs 17245  +_gcplusg 17286  ._rcmulr 17287  0_gc0g 17468  Mndcmnd 18768  CMndccmn 19820  mulGrpcmgp 20186  SRingcsrg 20236

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-ext 2734  ax-nul 5256

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-sb 2091  df-clab 2741  df-cleq 2754  df-clel 2837  df-ne 2958  df-ral 3077  df-rab 3415  df-v 3456  df-sbc 3745  df-dif 3907  df-un 3909  df-ss 3921  df-nul 4286  df-if 4481  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-br 5101  df-iota 6477  df-fv 6529  df-ov 7399  df-srg 20237

This theorem is referenced by:  srgcmn  20239  srgmgp  20241  srgdilem  20242  srgrz  20257  srglz  20258  ringsrg  20347  nn0srg  21489  rge0srg  21490