Theorem issrg 19249

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 2901	. . . . 5 ⊢ (𝐺 ∈ Mnd ↔ (mulGrp‘𝑅) ∈ Mnd)
3	2	bicomi 226	. . . 4 ⊢ ((mulGrp‘𝑅) ∈ Mnd ↔ 𝐺 ∈ Mnd)
4		issrg.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝑅)
5	4	fvexi 6677	. . . . 5 ⊢ 𝐵 ∈ V
6		issrg.p	. . . . . 6 ⊢ + = (+g‘𝑅)
7	6	fvexi 6677	. . . . 5 ⊢ + ∈ V
8		issrg.t	. . . . . . . 8 ⊢ · = (.r‘𝑅)
9	8	fvexi 6677	. . . . . . 7 ⊢ · ∈ V
10	9	a1i 11	. . . . . 6 ⊢ ((𝑏 = 𝐵 ∧ 𝑝 = + ) → · ∈ V)
11		issrg.0	. . . . . . . . 9 ⊢ 0 = (0g‘𝑅)
12	11	fvexi 6677	. . . . . . . 8 ⊢ 0 ∈ V
13	12	a1i 11	. . . . . . 7 ⊢ (((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) → 0 ∈ V)
14		simplll 773	. . . . . . . 8 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑏 = 𝐵)
15		simplr 767	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑡 = · )
16		eqidd 2820	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑥 = 𝑥)
17		simpllr 774	. . . . . . . . . . . . . . 15 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑝 = + )
18	17	oveqd 7165	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑦𝑝𝑧) = (𝑦 + 𝑧))
19	15, 16, 18	oveq123d 7169	. . . . . . . . . . . . 13 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑡(𝑦𝑝𝑧)) = (𝑥 · (𝑦 + 𝑧)))
20	15	oveqd 7165	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑡𝑦) = (𝑥 · 𝑦))
21	15	oveqd 7165	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑡𝑧) = (𝑥 · 𝑧))
22	17, 20, 21	oveq123d 7169	. . . . . . . . . . . . 13 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)))
23	19, 22	eqeq12d 2835	. . . . . . . . . . . 12 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ↔ (𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧))))
24	17	oveqd 7165	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑝𝑦) = (𝑥 + 𝑦))
25		eqidd 2820	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑧 = 𝑧)
26	15, 24, 25	oveq123d 7169	. . . . . . . . . . . . 13 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥 + 𝑦) · 𝑧))
27	15	oveqd 7165	. . . . . . . . . . . . . 14 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑦𝑡𝑧) = (𝑦 · 𝑧))
28	17, 21, 27	oveq123d 7169	. . . . . . . . . . . . 13 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧)) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))
29	26, 28	eqeq12d 2835	. . . . . . . . . . . 12 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧)) ↔ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))))
30	23, 29	anbi12d 632	. . . . . . . . . . 11 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))))
31	14, 30	raleqbidv 3400	. . . . . . . . . 10 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))))
32	14, 31	raleqbidv 3400	. . . . . . . . 9 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))))
33		simpr 487	. . . . . . . . . . . 12 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → 𝑛 = 0 )
34	15, 33, 16	oveq123d 7169	. . . . . . . . . . 11 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑛𝑡𝑥) = ( 0 · 𝑥))
35	34, 33	eqeq12d 2835	. . . . . . . . . 10 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑛𝑡𝑥) = 𝑛 ↔ ( 0 · 𝑥) = 0 ))
36	15, 16, 33	oveq123d 7169	. . . . . . . . . . 11 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (𝑥𝑡𝑛) = (𝑥 · 0 ))
37	36, 33	eqeq12d 2835	. . . . . . . . . 10 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((𝑥𝑡𝑛) = 𝑛 ↔ (𝑥 · 0 ) = 0 ))
38	35, 37	anbi12d 632	. . . . . . . . 9 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛) ↔ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 )))
39	32, 38	anbi12d 632	. . . . . . . 8 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → ((∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
40	14, 39	raleqbidv 3400	. . . . . . 7 ⊢ ((((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) ∧ 𝑛 = 0 ) → (∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
41	13, 40	sbcied 3812	. . . . . 6 ⊢ (((𝑏 = 𝐵 ∧ 𝑝 = + ) ∧ 𝑡 = · ) → ([ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
42	10, 41	sbcied 3812	. . . . 5 ⊢ ((𝑏 = 𝐵 ∧ 𝑝 = + ) → ([ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
43	5, 7, 42	sbc2ie 3848	. . . 4 ⊢ ([𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 )))
44	3, 43	anbi12i 628	. . 3 ⊢ (((mulGrp‘𝑅) ∈ Mnd ∧ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))) ↔ (𝐺 ∈ Mnd ∧ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 ))))
45	44	anbi2i 624	. 2 ⊢ ((𝑅 ∈ CMnd ∧ ((mulGrp‘𝑅) ∈ Mnd ∧ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)))) ↔ (𝑅 ∈ CMnd ∧ (𝐺 ∈ Mnd ∧ ∀𝑥 ∈ 𝐵 (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) ∧ (( 0 · 𝑥) = 0 ∧ (𝑥 · 0 ) = 0 )))))
46		fveq2 6663	. . . . 5 ⊢ (𝑟 = 𝑅 → (mulGrp‘𝑟) = (mulGrp‘𝑅))
47	46	eleq1d 2895	. . . 4 ⊢ (𝑟 = 𝑅 → ((mulGrp‘𝑟) ∈ Mnd ↔ (mulGrp‘𝑅) ∈ Mnd))
48		fveq2 6663	. . . . . 6 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
49	48, 4	syl6eqr 2872	. . . . 5 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = 𝐵)
50		fveq2 6663	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (+g‘𝑟) = (+g‘𝑅))
51	50, 6	syl6eqr 2872	. . . . . 6 ⊢ (𝑟 = 𝑅 → (+g‘𝑟) = + )
52		fveq2 6663	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (.r‘𝑟) = (.r‘𝑅))
53	52, 8	syl6eqr 2872	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (.r‘𝑟) = · )
54		fveq2 6663	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (0g‘𝑟) = (0g‘𝑅))
55	54, 11	syl6eqr 2872	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (0g‘𝑟) = 0 )
56	55	sbceq1d 3775	. . . . . . 7 ⊢ (𝑟 = 𝑅 → ([(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ [ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))))
57	53, 56	sbceqbid 3777	. . . . . 6 ⊢ (𝑟 = 𝑅 → ([(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ [ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))))
58	51, 57	sbceqbid 3777	. . . . 5 ⊢ (𝑟 = 𝑅 → ([(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ [ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))))
59	49, 58	sbceqbid 3777	. . . 4 ⊢ (𝑟 = 𝑅 → ([(Base‘𝑟) / 𝑏][(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)) ↔ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))))
60	47, 59	anbi12d 632	. . 3 ⊢ (𝑟 = 𝑅 → (((mulGrp‘𝑟) ∈ Mnd ∧ [(Base‘𝑟) / 𝑏][(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛))) ↔ ((mulGrp‘𝑅) ∈ Mnd ∧ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)))))
61		df-srg 19248	. . 3 ⊢ SRing = {𝑟 ∈ CMnd ∣ ((mulGrp‘𝑟) ∈ Mnd ∧ [(Base‘𝑟) / 𝑏][(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡][(0g‘𝑟) / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)))}
62	60, 61	elrab2 3681	. 2 ⊢ (𝑅 ∈ SRing ↔ (𝑅 ∈ CMnd ∧ ((mulGrp‘𝑅) ∈ Mnd ∧ [𝐵 / 𝑏][ + / 𝑝][ · / 𝑡][ 0 / 𝑛]∀𝑥 ∈ 𝑏 (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ∧ ((𝑛𝑡𝑥) = 𝑛 ∧ (𝑥𝑡𝑛) = 𝑛)))))
63		3anass 1090	. 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 398   ∧ w3a 1082   = wceq 1531   ∈ wcel 2108  ∀wral 3136  Vcvv 3493  [wsbc 3770  ‘cfv 6348  (class class class)co 7148  Basecbs 16475  +_gcplusg 16557  ._rcmulr 16558  0_gc0g 16705  Mndcmnd 17903  CMndccmn 18898  mulGrpcmgp 19231  SRingcsrg 19247

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1905  ax-6 1964  ax-7 2009  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2154  ax-12 2170  ax-ext 2791  ax-nul 5201

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1084  df-tru 1534  df-ex 1775  df-nf 1779  df-sb 2064  df-mo 2616  df-eu 2648  df-clab 2798  df-cleq 2812  df-clel 2891  df-nfc 2961  df-ral 3141  df-rex 3142  df-rab 3145  df-v 3495  df-sbc 3771  df-dif 3937  df-un 3939  df-in 3941  df-ss 3950  df-nul 4290  df-if 4466  df-sn 4560  df-pr 4562  df-op 4566  df-uni 4831  df-br 5058  df-iota 6307  df-fv 6356  df-ov 7151  df-srg 19248

This theorem is referenced by:  srgcmn  19250  srgmgp  19252  srgi  19253  srgrz  19268  srglz  19269  ringsrg  19331  nn0srg  20607  rge0srg  20608