Theorem issrg 19658

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 2829	. . . . 5 ⊢ (𝐺 ∈ Mnd ↔ (mulGrp‘𝑅) ∈ Mnd)
3	2	bicomi 223	. . . 4 ⊢ ((mulGrp‘𝑅) ∈ Mnd ↔ 𝐺 ∈ Mnd)
4		issrg.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝑅)
5	4	fvexi 6770	. . . . 5 ⊢ 𝐵 ∈ V
6		issrg.p	. . . . . 6 ⊢ + = (+g‘𝑅)
7	6	fvexi 6770	. . . . 5 ⊢ + ∈ V
8		issrg.t	. . . . . . . 8 ⊢ · = (.r‘𝑅)
9	8	fvexi 6770	. . . . . . 7 ⊢ · ∈ V
10	9	a1i 11	. . . . . 6 ⊢ ((𝑏 = 𝐵 ∧ 𝑝 = + ) → · ∈ V)
11		issrg.0	. . . . . . . . 9 ⊢ 0 = (0g‘𝑅)
12	11	fvexi 6770	. . . . . . . 8 ⊢ 0 ∈ V
13	12	a1i 11	. . . . . . 7 ⊢ (((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) → 0 ∈ V)
14		simplll 771	. . . . . . . 8 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑏 = 𝐵)
15		simplr 765	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑡 = · )
16		eqidd 2739	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑥 = 𝑥)
17		simpllr 772	. . . . . . . . . . . . . . 15 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑝 = + )
18	17	oveqd 7272	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑦𝑝𝑧) = (𝑦 + 𝑧))
19	15, 16, 18	oveq123d 7276	. . . . . . . . . . . . 13 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑡(𝑦𝑝𝑧)) = (𝑥 · (𝑦 + 𝑧)))
20	15	oveqd 7272	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑡𝑦) = (𝑥 · 𝑦))
21	15	oveqd 7272	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑡𝑧) = (𝑥 · 𝑧))
22	17, 20, 21	oveq123d 7276	. . . . . . . . . . . . 13 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)))
23	19, 22	eqeq12d 2754	. . . . . . . . . . . 12 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ↔ (𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧))))
24	17	oveqd 7272	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑝𝑦) = (𝑥 + 𝑦))
25		eqidd 2739	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑧 = 𝑧)
26	15, 24, 25	oveq123d 7276	. . . . . . . . . . . . 13 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥 + 𝑦) · 𝑧))
27	15	oveqd 7272	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑦𝑡𝑧) = (𝑦 · 𝑧))
28	17, 21, 27	oveq123d 7276	. . . . . . . . . . . . 13 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧)) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))
29	26, 28	eqeq12d 2754	. . . . . . . . . . . 12 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧)) ↔ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))))
30	23, 29	anbi12d 630	. . . . . . . . . . 11 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))))
31	14, 30	raleqbidv 3327	. . . . . . . . . 10 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))))
32	14, 31	raleqbidv 3327	. . . . . . . . 9 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))))
33		simpr 484	. . . . . . . . . . . 12 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑛 = 0 )
34	15, 33, 16	oveq123d 7276	. . . . . . . . . . 11 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑛𝑡𝑥) = ( 0 · 𝑥))
35	34, 33	eqeq12d 2754	. . . . . . . . . 10 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑛𝑡𝑥) = 𝑛 ↔ ( 0 · 𝑥) = 0 ))
36	15, 16, 33	oveq123d 7276	. . . . . . . . . . 11 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑡𝑛) = (𝑥 · 0 ))
37	36, 33	eqeq12d 2754	. . . . . . . . . 10 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑡𝑛) = 𝑛 ↔ (𝑥 · 0 ) = 0 ))
38	35, 37	anbi12d 630	. . . . . . . . 9 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛) ↔ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 )))
39	32, 38	anbi12d 630	. . . . . . . 8 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
40	14, 39	raleqbidv 3327	. . . . . . 7 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
41	13, 40	sbcied 3756	. . . . . 6 ⊢ (((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) → ([ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
42	10, 41	sbcied 3756	. . . . 5 ⊢ ((𝑏 = 𝐵 ∧ 𝑝 = + ) → ([ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
43	5, 7, 42	sbc2ie 3795	. . . 4 ⊢ ([𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 )))
44	3, 43	anbi12i 626	. . 3 ⊢ (((mulGrp‘𝑅) ∈ Mnd ∧ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))) ↔ (𝐺 ∈ Mnd ∧ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
45	44	anbi2i 622	. 2 ⊢ ((𝑅 ∈ CMnd ∧ ((mulGrp‘𝑅) ∈ Mnd ∧ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)))) ↔ (𝑅 ∈ CMnd ∧ (𝐺 ∈ Mnd ∧ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 )))))
46		fveq2 6756	. . . . 5 ⊢ (𝑟 = 𝑅 → (mulGrp‘𝑟) = (mulGrp‘𝑅))
47	46	eleq1d 2823	. . . 4 ⊢ (𝑟 = 𝑅 → ((mulGrp‘𝑟) ∈ Mnd ↔ (mulGrp‘𝑅) ∈ Mnd))
48		fveq2 6756	. . . . . 6 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
49	48, 4	eqtr4di 2797	. . . . 5 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = 𝐵)
50		fveq2 6756	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (+g‘𝑟) = (+g‘𝑅))
51	50, 6	eqtr4di 2797	. . . . . 6 ⊢ (𝑟 = 𝑅 → (+g‘𝑟) = + )
52		fveq2 6756	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (.r‘𝑟) = (.r‘𝑅))
53	52, 8	eqtr4di 2797	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (.r‘𝑟) = · )
54		fveq2 6756	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (0g‘𝑟) = (0g‘𝑅))
55	54, 11	eqtr4di 2797	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (0g‘𝑟) = 0 )
56	55	sbceq1d 3716	. . . . . . 7 ⊢ (𝑟 = 𝑅 → ([(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ [ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))))
57	53, 56	sbceqbid 3718	. . . . . 6 ⊢ (𝑟 = 𝑅 → ([(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ [ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))))
58	51, 57	sbceqbid 3718	. . . . 5 ⊢ (𝑟 = 𝑅 → ([(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ [ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))))
59	49, 58	sbceqbid 3718	. . . 4 ⊢ (𝑟 = 𝑅 → ([(Base‘𝑟) / 𝑏][(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))))
60	47, 59	anbi12d 630	. . 3 ⊢ (𝑟 = 𝑅 → (((mulGrp‘𝑟) ∈ Mnd ∧ [(Base‘𝑟) / 𝑏][(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))) ↔ ((mulGrp‘𝑅) ∈ Mnd ∧ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)))))
61		df-srg 19657	. . 3 ⊢ SRing = {𝑟 ∈ CMnd ∣ ((mulGrp‘𝑟) ∈ Mnd ∧ [(Base‘𝑟) / 𝑏][(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)))}
62	60, 61	elrab2 3620	. 2 ⊢ (𝑅 ∈ SRing ↔ (𝑅 ∈ CMnd ∧ ((mulGrp‘𝑅) ∈ Mnd ∧ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)))))
63		3anass 1093	. 2 ⊢ ((𝑅 ∈ CMnd ∧ 𝐺 ∈ Mnd ∧ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))) ↔ (𝑅 ∈ CMnd ∧ (𝐺 ∈ Mnd ∧ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 )))))
64	45, 62, 63	3bitr4i 302	1 ⊢ (𝑅 ∈ SRing ↔ (𝑅 ∈ CMnd ∧ 𝐺 ∈ Mnd ∧ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))

Syntax hints:   ↔ wb 205   ∧ wa 395   ∧ w3a 1085   = wceq 1539   ∈ wcel 2108  ∀wral 3063  Vcvv 3422  [wsbc 3711  ‘cfv 6418  (class class class)co 7255  Basecbs 16840  +_gcplusg 16888  ._rcmulr 16889  0_gc0g 17067  Mndcmnd 18300  CMndccmn 19301  mulGrpcmgp 19635  SRingcsrg 19656

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-nul 5225

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-ral 3068  df-rex 3069  df-rab 3072  df-v 3424  df-sbc 3712  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4254  df-if 4457  df-sn 4559  df-pr 4561  df-op 4565  df-uni 4837  df-br 5071  df-iota 6376  df-fv 6426  df-ov 7258  df-srg 19657

This theorem is referenced by:  srgcmn  19659  srgmgp  19661  srgi  19662  srgrz  19677  srglz  19678  ringsrg  19743  nn0srg  20580  rge0srg  20581