Theorem issrngd 18684

Description: Properties that determine a star ring. (Contributed by Mario Carneiro, 18-Nov-2013.) (Revised by Mario Carneiro, 6-Oct-2015.)

Hypotheses

Ref	Expression
issrngd.k	⊢ (𝜑 → 𝐾 = (Base‘𝑅))
issrngd.p	⊢ (𝜑 → + = (+g‘𝑅))
issrngd.t	⊢ (𝜑 → · = (.r‘𝑅))
issrngd.c	⊢ (𝜑 → ∗ = (*𝑟‘𝑅))
issrngd.r	⊢ (𝜑 → 𝑅 ∈ Ring)
issrngd.cl	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐾) → ( ∗ ‘𝑥) ∈ 𝐾)
issrngd.dp	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾) → ( ∗ ‘(𝑥 + 𝑦)) = (( ∗ ‘𝑥) + ( ∗ ‘𝑦)))
issrngd.dt	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾) → ( ∗ ‘(𝑥 · 𝑦)) = (( ∗ ‘𝑦) · ( ∗ ‘𝑥)))
issrngd.id	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐾) → ( ∗ ‘( ∗ ‘𝑥)) = 𝑥)

Assertion

Ref	Expression
issrngd	⊢ (𝜑 → 𝑅 ∈ *-Ring)

Distinct variable groups:   𝑥,𝑦,𝐾   𝑥,𝑅,𝑦   𝜑,𝑥,𝑦

Allowed substitution hints:   + (𝑥,𝑦)   · (𝑥,𝑦)   ∗ (𝑥,𝑦)

Proof of Theorem issrngd

Step	Hyp	Ref	Expression
1		eqid 2610	. . 3 ⊢ (Base‘𝑅) = (Base‘𝑅)
2		eqid 2610	. . 3 ⊢ (1r‘𝑅) = (1r‘𝑅)
3		eqid 2610	. . . 4 ⊢ (oppr‘𝑅) = (oppr‘𝑅)
4	3, 2	oppr1 18457	. . 3 ⊢ (1r‘𝑅) = (1r‘(oppr‘𝑅))
5		eqid 2610	. . 3 ⊢ (.r‘𝑅) = (.r‘𝑅)
6		eqid 2610	. . 3 ⊢ (.r‘(oppr‘𝑅)) = (.r‘(oppr‘𝑅))
7		issrngd.r	. . 3 ⊢ (𝜑 → 𝑅 ∈ Ring)
8	3	opprring 18454	. . . 4 ⊢ (𝑅 ∈ Ring → (oppr‘𝑅) ∈ Ring)
9	7, 8	syl 17	. . 3 ⊢ (𝜑 → (oppr‘𝑅) ∈ Ring)
10	1, 2	ringidcl 18391	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → (1r‘𝑅) ∈ (Base‘𝑅))
11	7, 10	syl 17	. . . . . . . 8 ⊢ (𝜑 → (1r‘𝑅) ∈ (Base‘𝑅))
12		issrngd.id	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐾) → ( ∗ ‘( ∗ ‘𝑥)) = 𝑥)
13	12	ex 449	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑥 ∈ 𝐾 → ( ∗ ‘( ∗ ‘𝑥)) = 𝑥))
14		issrngd.k	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 = (Base‘𝑅))
15	14	eleq2d 2673	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑥 ∈ 𝐾 ↔ 𝑥 ∈ (Base‘𝑅)))
16		issrngd.c	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ∗ = (*𝑟‘𝑅))
17	16	fveq1d 6105	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ( ∗ ‘𝑥) = ((*𝑟‘𝑅)‘𝑥))
18	16, 17	fveq12d 6109	. . . . . . . . . . . . 13 ⊢ (𝜑 → ( ∗ ‘( ∗ ‘𝑥)) = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥)))
19	18	eqeq1d 2612	. . . . . . . . . . . 12 ⊢ (𝜑 → (( ∗ ‘( ∗ ‘𝑥)) = 𝑥 ↔ ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥)) = 𝑥))
20	13, 15, 19	3imtr3d 281	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝑅) → ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥)) = 𝑥))
21	20	imp 444	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝑅)) → ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥)) = 𝑥)
22	21	eqcomd 2616	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝑅)) → 𝑥 = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥)))
23	22	ralrimiva 2949	. . . . . . . 8 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘𝑅)𝑥 = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥)))
24		id 22	. . . . . . . . . 10 ⊢ (𝑥 = (1r‘𝑅) → 𝑥 = (1r‘𝑅))
25		fveq2 6103	. . . . . . . . . . 11 ⊢ (𝑥 = (1r‘𝑅) → ((*𝑟‘𝑅)‘𝑥) = ((*𝑟‘𝑅)‘(1r‘𝑅)))
26	25	fveq2d 6107	. . . . . . . . . 10 ⊢ (𝑥 = (1r‘𝑅) → ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥)) = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘(1r‘𝑅))))
27	24, 26	eqeq12d 2625	. . . . . . . . 9 ⊢ (𝑥 = (1r‘𝑅) → (𝑥 = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥)) ↔ (1r‘𝑅) = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘(1r‘𝑅)))))
28	27	rspcv 3278	. . . . . . . 8 ⊢ ((1r‘𝑅) ∈ (Base‘𝑅) → (∀𝑥 ∈ (Base‘𝑅)𝑥 = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥)) → (1r‘𝑅) = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘(1r‘𝑅)))))
29	11, 23, 28	sylc 63	. . . . . . 7 ⊢ (𝜑 → (1r‘𝑅) = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘(1r‘𝑅))))
30	29	oveq1d 6564	. . . . . 6 ⊢ (𝜑 → ((1r‘𝑅)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅))) = (((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘(1r‘𝑅)))(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅))))
31		issrngd.cl	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐾) → ( ∗ ‘𝑥) ∈ 𝐾)
32	31	ex 449	. . . . . . . . . 10 ⊢ (𝜑 → (𝑥 ∈ 𝐾 → ( ∗ ‘𝑥) ∈ 𝐾))
33	17, 14	eleq12d 2682	. . . . . . . . . 10 ⊢ (𝜑 → (( ∗ ‘𝑥) ∈ 𝐾 ↔ ((*𝑟‘𝑅)‘𝑥) ∈ (Base‘𝑅)))
34	32, 15, 33	3imtr3d 281	. . . . . . . . 9 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝑅) → ((*𝑟‘𝑅)‘𝑥) ∈ (Base‘𝑅)))
35	34	ralrimiv 2948	. . . . . . . 8 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘𝑅)((*𝑟‘𝑅)‘𝑥) ∈ (Base‘𝑅))
36	25	eleq1d 2672	. . . . . . . . 9 ⊢ (𝑥 = (1r‘𝑅) → (((*𝑟‘𝑅)‘𝑥) ∈ (Base‘𝑅) ↔ ((*𝑟‘𝑅)‘(1r‘𝑅)) ∈ (Base‘𝑅)))
37	36	rspcv 3278	. . . . . . . 8 ⊢ ((1r‘𝑅) ∈ (Base‘𝑅) → (∀𝑥 ∈ (Base‘𝑅)((*𝑟‘𝑅)‘𝑥) ∈ (Base‘𝑅) → ((*𝑟‘𝑅)‘(1r‘𝑅)) ∈ (Base‘𝑅)))
38	11, 35, 37	sylc 63	. . . . . . 7 ⊢ (𝜑 → ((*𝑟‘𝑅)‘(1r‘𝑅)) ∈ (Base‘𝑅))
39		issrngd.dt	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾) → ( ∗ ‘(𝑥 · 𝑦)) = (( ∗ ‘𝑦) · ( ∗ ‘𝑥)))
40	39	3expib 1260	. . . . . . . . 9 ⊢ (𝜑 → ((𝑥 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾) → ( ∗ ‘(𝑥 · 𝑦)) = (( ∗ ‘𝑦) · ( ∗ ‘𝑥))))
41	14	eleq2d 2673	. . . . . . . . . 10 ⊢ (𝜑 → (𝑦 ∈ 𝐾 ↔ 𝑦 ∈ (Base‘𝑅)))
42	15, 41	anbi12d 743	. . . . . . . . 9 ⊢ (𝜑 → ((𝑥 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾) ↔ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))))
43		issrngd.t	. . . . . . . . . . . 12 ⊢ (𝜑 → · = (.r‘𝑅))
44	43	oveqd 6566	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑥 · 𝑦) = (𝑥(.r‘𝑅)𝑦))
45	16, 44	fveq12d 6109	. . . . . . . . . 10 ⊢ (𝜑 → ( ∗ ‘(𝑥 · 𝑦)) = ((*𝑟‘𝑅)‘(𝑥(.r‘𝑅)𝑦)))
46	16	fveq1d 6105	. . . . . . . . . . 11 ⊢ (𝜑 → ( ∗ ‘𝑦) = ((*𝑟‘𝑅)‘𝑦))
47	43, 46, 17	oveq123d 6570	. . . . . . . . . 10 ⊢ (𝜑 → (( ∗ ‘𝑦) · ( ∗ ‘𝑥)) = (((*𝑟‘𝑅)‘𝑦)(.r‘𝑅)((*𝑟‘𝑅)‘𝑥)))
48	45, 47	eqeq12d 2625	. . . . . . . . 9 ⊢ (𝜑 → (( ∗ ‘(𝑥 · 𝑦)) = (( ∗ ‘𝑦) · ( ∗ ‘𝑥)) ↔ ((*𝑟‘𝑅)‘(𝑥(.r‘𝑅)𝑦)) = (((*𝑟‘𝑅)‘𝑦)(.r‘𝑅)((*𝑟‘𝑅)‘𝑥))))
49	40, 42, 48	3imtr3d 281	. . . . . . . 8 ⊢ (𝜑 → ((𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅)) → ((*𝑟‘𝑅)‘(𝑥(.r‘𝑅)𝑦)) = (((*𝑟‘𝑅)‘𝑦)(.r‘𝑅)((*𝑟‘𝑅)‘𝑥))))
50	49	ralrimivv 2953	. . . . . . 7 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘𝑅)∀𝑦 ∈ (Base‘𝑅)((*𝑟‘𝑅)‘(𝑥(.r‘𝑅)𝑦)) = (((*𝑟‘𝑅)‘𝑦)(.r‘𝑅)((*𝑟‘𝑅)‘𝑥)))
51		oveq1 6556	. . . . . . . . . 10 ⊢ (𝑥 = (1r‘𝑅) → (𝑥(.r‘𝑅)𝑦) = ((1r‘𝑅)(.r‘𝑅)𝑦))
52	51	fveq2d 6107	. . . . . . . . 9 ⊢ (𝑥 = (1r‘𝑅) → ((*𝑟‘𝑅)‘(𝑥(.r‘𝑅)𝑦)) = ((*𝑟‘𝑅)‘((1r‘𝑅)(.r‘𝑅)𝑦)))
53	25	oveq2d 6565	. . . . . . . . 9 ⊢ (𝑥 = (1r‘𝑅) → (((*𝑟‘𝑅)‘𝑦)(.r‘𝑅)((*𝑟‘𝑅)‘𝑥)) = (((*𝑟‘𝑅)‘𝑦)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅))))
54	52, 53	eqeq12d 2625	. . . . . . . 8 ⊢ (𝑥 = (1r‘𝑅) → (((*𝑟‘𝑅)‘(𝑥(.r‘𝑅)𝑦)) = (((*𝑟‘𝑅)‘𝑦)(.r‘𝑅)((*𝑟‘𝑅)‘𝑥)) ↔ ((*𝑟‘𝑅)‘((1r‘𝑅)(.r‘𝑅)𝑦)) = (((*𝑟‘𝑅)‘𝑦)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅)))))
55		oveq2 6557	. . . . . . . . . 10 ⊢ (𝑦 = ((*𝑟‘𝑅)‘(1r‘𝑅)) → ((1r‘𝑅)(.r‘𝑅)𝑦) = ((1r‘𝑅)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅))))
56	55	fveq2d 6107	. . . . . . . . 9 ⊢ (𝑦 = ((*𝑟‘𝑅)‘(1r‘𝑅)) → ((*𝑟‘𝑅)‘((1r‘𝑅)(.r‘𝑅)𝑦)) = ((*𝑟‘𝑅)‘((1r‘𝑅)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅)))))
57		fveq2 6103	. . . . . . . . . 10 ⊢ (𝑦 = ((*𝑟‘𝑅)‘(1r‘𝑅)) → ((*𝑟‘𝑅)‘𝑦) = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘(1r‘𝑅))))
58	57	oveq1d 6564	. . . . . . . . 9 ⊢ (𝑦 = ((*𝑟‘𝑅)‘(1r‘𝑅)) → (((*𝑟‘𝑅)‘𝑦)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅))) = (((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘(1r‘𝑅)))(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅))))
59	56, 58	eqeq12d 2625	. . . . . . . 8 ⊢ (𝑦 = ((*𝑟‘𝑅)‘(1r‘𝑅)) → (((*𝑟‘𝑅)‘((1r‘𝑅)(.r‘𝑅)𝑦)) = (((*𝑟‘𝑅)‘𝑦)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅))) ↔ ((*𝑟‘𝑅)‘((1r‘𝑅)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅)))) = (((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘(1r‘𝑅)))(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅)))))
60	54, 59	rspc2va 3294	. . . . . . 7 ⊢ ((((1r‘𝑅) ∈ (Base‘𝑅) ∧ ((*𝑟‘𝑅)‘(1r‘𝑅)) ∈ (Base‘𝑅)) ∧ ∀𝑥 ∈ (Base‘𝑅)∀𝑦 ∈ (Base‘𝑅)((*𝑟‘𝑅)‘(𝑥(.r‘𝑅)𝑦)) = (((*𝑟‘𝑅)‘𝑦)(.r‘𝑅)((*𝑟‘𝑅)‘𝑥))) → ((*𝑟‘𝑅)‘((1r‘𝑅)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅)))) = (((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘(1r‘𝑅)))(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅))))
61	11, 38, 50, 60	syl21anc 1317	. . . . . 6 ⊢ (𝜑 → ((*𝑟‘𝑅)‘((1r‘𝑅)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅)))) = (((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘(1r‘𝑅)))(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅))))
62	30, 61	eqtr4d 2647	. . . . 5 ⊢ (𝜑 → ((1r‘𝑅)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅))) = ((*𝑟‘𝑅)‘((1r‘𝑅)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅)))))
63	1, 5, 2	ringlidm 18394	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ ((*𝑟‘𝑅)‘(1r‘𝑅)) ∈ (Base‘𝑅)) → ((1r‘𝑅)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅))) = ((*𝑟‘𝑅)‘(1r‘𝑅)))
64	7, 38, 63	syl2anc 691	. . . . 5 ⊢ (𝜑 → ((1r‘𝑅)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅))) = ((*𝑟‘𝑅)‘(1r‘𝑅)))
65	64	fveq2d 6107	. . . . 5 ⊢ (𝜑 → ((*𝑟‘𝑅)‘((1r‘𝑅)(.r‘𝑅)((*𝑟‘𝑅)‘(1r‘𝑅)))) = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘(1r‘𝑅))))
66	62, 64, 65	3eqtr3d 2652	. . . 4 ⊢ (𝜑 → ((*𝑟‘𝑅)‘(1r‘𝑅)) = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘(1r‘𝑅))))
67		eqid 2610	. . . . . 6 ⊢ (*𝑟‘𝑅) = (*𝑟‘𝑅)
68		eqid 2610	. . . . . 6 ⊢ (*rf‘𝑅) = (*rf‘𝑅)
69	1, 67, 68	stafval 18671	. . . . 5 ⊢ ((1r‘𝑅) ∈ (Base‘𝑅) → ((*rf‘𝑅)‘(1r‘𝑅)) = ((*𝑟‘𝑅)‘(1r‘𝑅)))
70	11, 69	syl 17	. . . 4 ⊢ (𝜑 → ((*rf‘𝑅)‘(1r‘𝑅)) = ((*𝑟‘𝑅)‘(1r‘𝑅)))
71	66, 70, 29	3eqtr4d 2654	. . 3 ⊢ (𝜑 → ((*rf‘𝑅)‘(1r‘𝑅)) = (1r‘𝑅))
72	49	imp 444	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → ((*𝑟‘𝑅)‘(𝑥(.r‘𝑅)𝑦)) = (((*𝑟‘𝑅)‘𝑦)(.r‘𝑅)((*𝑟‘𝑅)‘𝑥)))
73	1, 5, 3, 6	opprmul 18449	. . . . 5 ⊢ (((*𝑟‘𝑅)‘𝑥)(.r‘(oppr‘𝑅))((*𝑟‘𝑅)‘𝑦)) = (((*𝑟‘𝑅)‘𝑦)(.r‘𝑅)((*𝑟‘𝑅)‘𝑥))
74	72, 73	syl6eqr 2662	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → ((*𝑟‘𝑅)‘(𝑥(.r‘𝑅)𝑦)) = (((*𝑟‘𝑅)‘𝑥)(.r‘(oppr‘𝑅))((*𝑟‘𝑅)‘𝑦)))
75	1, 5	ringcl 18384	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅)) → (𝑥(.r‘𝑅)𝑦) ∈ (Base‘𝑅))
76	75	3expb 1258	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → (𝑥(.r‘𝑅)𝑦) ∈ (Base‘𝑅))
77	7, 76	sylan 487	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → (𝑥(.r‘𝑅)𝑦) ∈ (Base‘𝑅))
78	1, 67, 68	stafval 18671	. . . . 5 ⊢ ((𝑥(.r‘𝑅)𝑦) ∈ (Base‘𝑅) → ((*rf‘𝑅)‘(𝑥(.r‘𝑅)𝑦)) = ((*𝑟‘𝑅)‘(𝑥(.r‘𝑅)𝑦)))
79	77, 78	syl 17	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → ((*rf‘𝑅)‘(𝑥(.r‘𝑅)𝑦)) = ((*𝑟‘𝑅)‘(𝑥(.r‘𝑅)𝑦)))
80	1, 67, 68	stafval 18671	. . . . . 6 ⊢ (𝑥 ∈ (Base‘𝑅) → ((*rf‘𝑅)‘𝑥) = ((*𝑟‘𝑅)‘𝑥))
81	1, 67, 68	stafval 18671	. . . . . 6 ⊢ (𝑦 ∈ (Base‘𝑅) → ((*rf‘𝑅)‘𝑦) = ((*𝑟‘𝑅)‘𝑦))
82	80, 81	oveqan12d 6568	. . . . 5 ⊢ ((𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅)) → (((*rf‘𝑅)‘𝑥)(.r‘(oppr‘𝑅))((*rf‘𝑅)‘𝑦)) = (((*𝑟‘𝑅)‘𝑥)(.r‘(oppr‘𝑅))((*𝑟‘𝑅)‘𝑦)))
83	82	adantl 481	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → (((*rf‘𝑅)‘𝑥)(.r‘(oppr‘𝑅))((*rf‘𝑅)‘𝑦)) = (((*𝑟‘𝑅)‘𝑥)(.r‘(oppr‘𝑅))((*𝑟‘𝑅)‘𝑦)))
84	74, 79, 83	3eqtr4d 2654	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → ((*rf‘𝑅)‘(𝑥(.r‘𝑅)𝑦)) = (((*rf‘𝑅)‘𝑥)(.r‘(oppr‘𝑅))((*rf‘𝑅)‘𝑦)))
85	3, 1	opprbas 18452	. . 3 ⊢ (Base‘𝑅) = (Base‘(oppr‘𝑅))
86		eqid 2610	. . 3 ⊢ (+g‘𝑅) = (+g‘𝑅)
87	3, 86	oppradd 18453	. . 3 ⊢ (+g‘𝑅) = (+g‘(oppr‘𝑅))
88	34	imp 444	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝑅)) → ((*𝑟‘𝑅)‘𝑥) ∈ (Base‘𝑅))
89	1, 67, 68	staffval 18670	. . . 4 ⊢ (*rf‘𝑅) = (𝑥 ∈ (Base‘𝑅) ↦ ((*𝑟‘𝑅)‘𝑥))
90	88, 89	fmptd 6292	. . 3 ⊢ (𝜑 → (*rf‘𝑅):(Base‘𝑅)⟶(Base‘𝑅))
91		issrngd.dp	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾) → ( ∗ ‘(𝑥 + 𝑦)) = (( ∗ ‘𝑥) + ( ∗ ‘𝑦)))
92	91	3expib 1260	. . . . . 6 ⊢ (𝜑 → ((𝑥 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾) → ( ∗ ‘(𝑥 + 𝑦)) = (( ∗ ‘𝑥) + ( ∗ ‘𝑦))))
93		issrngd.p	. . . . . . . . 9 ⊢ (𝜑 → + = (+g‘𝑅))
94	93	oveqd 6566	. . . . . . . 8 ⊢ (𝜑 → (𝑥 + 𝑦) = (𝑥(+g‘𝑅)𝑦))
95	16, 94	fveq12d 6109	. . . . . . 7 ⊢ (𝜑 → ( ∗ ‘(𝑥 + 𝑦)) = ((*𝑟‘𝑅)‘(𝑥(+g‘𝑅)𝑦)))
96	93, 17, 46	oveq123d 6570	. . . . . . 7 ⊢ (𝜑 → (( ∗ ‘𝑥) + ( ∗ ‘𝑦)) = (((*𝑟‘𝑅)‘𝑥)(+g‘𝑅)((*𝑟‘𝑅)‘𝑦)))
97	95, 96	eqeq12d 2625	. . . . . 6 ⊢ (𝜑 → (( ∗ ‘(𝑥 + 𝑦)) = (( ∗ ‘𝑥) + ( ∗ ‘𝑦)) ↔ ((*𝑟‘𝑅)‘(𝑥(+g‘𝑅)𝑦)) = (((*𝑟‘𝑅)‘𝑥)(+g‘𝑅)((*𝑟‘𝑅)‘𝑦))))
98	92, 42, 97	3imtr3d 281	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅)) → ((*𝑟‘𝑅)‘(𝑥(+g‘𝑅)𝑦)) = (((*𝑟‘𝑅)‘𝑥)(+g‘𝑅)((*𝑟‘𝑅)‘𝑦))))
99	98	imp 444	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → ((*𝑟‘𝑅)‘(𝑥(+g‘𝑅)𝑦)) = (((*𝑟‘𝑅)‘𝑥)(+g‘𝑅)((*𝑟‘𝑅)‘𝑦)))
100	1, 86	ringacl 18401	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅)) → (𝑥(+g‘𝑅)𝑦) ∈ (Base‘𝑅))
101	100	3expb 1258	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → (𝑥(+g‘𝑅)𝑦) ∈ (Base‘𝑅))
102	7, 101	sylan 487	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → (𝑥(+g‘𝑅)𝑦) ∈ (Base‘𝑅))
103	1, 67, 68	stafval 18671	. . . . 5 ⊢ ((𝑥(+g‘𝑅)𝑦) ∈ (Base‘𝑅) → ((*rf‘𝑅)‘(𝑥(+g‘𝑅)𝑦)) = ((*𝑟‘𝑅)‘(𝑥(+g‘𝑅)𝑦)))
104	102, 103	syl 17	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → ((*rf‘𝑅)‘(𝑥(+g‘𝑅)𝑦)) = ((*𝑟‘𝑅)‘(𝑥(+g‘𝑅)𝑦)))
105	80, 81	oveqan12d 6568	. . . . 5 ⊢ ((𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅)) → (((*rf‘𝑅)‘𝑥)(+g‘𝑅)((*rf‘𝑅)‘𝑦)) = (((*𝑟‘𝑅)‘𝑥)(+g‘𝑅)((*𝑟‘𝑅)‘𝑦)))
106	105	adantl 481	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → (((*rf‘𝑅)‘𝑥)(+g‘𝑅)((*rf‘𝑅)‘𝑦)) = (((*𝑟‘𝑅)‘𝑥)(+g‘𝑅)((*𝑟‘𝑅)‘𝑦)))
107	99, 104, 106	3eqtr4d 2654	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → ((*rf‘𝑅)‘(𝑥(+g‘𝑅)𝑦)) = (((*rf‘𝑅)‘𝑥)(+g‘𝑅)((*rf‘𝑅)‘𝑦)))
108	1, 2, 4, 5, 6, 7, 9, 71, 84, 85, 86, 87, 90, 107	isrhmd 18552	. 2 ⊢ (𝜑 → (*rf‘𝑅) ∈ (𝑅 RingHom (oppr‘𝑅)))
109	1, 67, 68	staffval 18670	. . . . . . . 8 ⊢ (*rf‘𝑅) = (𝑦 ∈ (Base‘𝑅) ↦ ((*𝑟‘𝑅)‘𝑦))
110	109	fmpt 6289	. . . . . . 7 ⊢ (∀𝑦 ∈ (Base‘𝑅)((*𝑟‘𝑅)‘𝑦) ∈ (Base‘𝑅) ↔ (*rf‘𝑅):(Base‘𝑅)⟶(Base‘𝑅))
111	90, 110	sylibr 223	. . . . . 6 ⊢ (𝜑 → ∀𝑦 ∈ (Base‘𝑅)((*𝑟‘𝑅)‘𝑦) ∈ (Base‘𝑅))
112	111	r19.21bi 2916	. . . . 5 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝑅)) → ((*𝑟‘𝑅)‘𝑦) ∈ (Base‘𝑅))
113		id 22	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → 𝑥 = 𝑦)
114		fveq2 6103	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑦 → ((*𝑟‘𝑅)‘𝑥) = ((*𝑟‘𝑅)‘𝑦))
115	114	fveq2d 6107	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥)) = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑦)))
116	113, 115	eqeq12d 2625	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (𝑥 = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥)) ↔ 𝑦 = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑦))))
117	116	rspccva 3281	. . . . . . . . 9 ⊢ ((∀𝑥 ∈ (Base‘𝑅)𝑥 = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥)) ∧ 𝑦 ∈ (Base‘𝑅)) → 𝑦 = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑦)))
118	23, 117	sylan 487	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝑅)) → 𝑦 = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑦)))
119	118	adantrl 748	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → 𝑦 = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑦)))
120		fveq2 6103	. . . . . . . 8 ⊢ (𝑥 = ((*𝑟‘𝑅)‘𝑦) → ((*𝑟‘𝑅)‘𝑥) = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑦)))
121	120	eqeq2d 2620	. . . . . . 7 ⊢ (𝑥 = ((*𝑟‘𝑅)‘𝑦) → (𝑦 = ((*𝑟‘𝑅)‘𝑥) ↔ 𝑦 = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑦))))
122	119, 121	syl5ibrcom 236	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → (𝑥 = ((*𝑟‘𝑅)‘𝑦) → 𝑦 = ((*𝑟‘𝑅)‘𝑥)))
123	22	adantrr 749	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → 𝑥 = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥)))
124		fveq2 6103	. . . . . . . 8 ⊢ (𝑦 = ((*𝑟‘𝑅)‘𝑥) → ((*𝑟‘𝑅)‘𝑦) = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥)))
125	124	eqeq2d 2620	. . . . . . 7 ⊢ (𝑦 = ((*𝑟‘𝑅)‘𝑥) → (𝑥 = ((*𝑟‘𝑅)‘𝑦) ↔ 𝑥 = ((*𝑟‘𝑅)‘((*𝑟‘𝑅)‘𝑥))))
126	123, 125	syl5ibrcom 236	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → (𝑦 = ((*𝑟‘𝑅)‘𝑥) → 𝑥 = ((*𝑟‘𝑅)‘𝑦)))
127	122, 126	impbid 201	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → (𝑥 = ((*𝑟‘𝑅)‘𝑦) ↔ 𝑦 = ((*𝑟‘𝑅)‘𝑥)))
128	89, 88, 112, 127	f1ocnv2d 6784	. . . 4 ⊢ (𝜑 → ((*rf‘𝑅):(Base‘𝑅)–1-1-onto→(Base‘𝑅) ∧ ◡(*rf‘𝑅) = (𝑦 ∈ (Base‘𝑅) ↦ ((*𝑟‘𝑅)‘𝑦))))
129	128	simprd 478	. . 3 ⊢ (𝜑 → ◡(*rf‘𝑅) = (𝑦 ∈ (Base‘𝑅) ↦ ((*𝑟‘𝑅)‘𝑦)))
130	129, 109	syl6reqr 2663	. 2 ⊢ (𝜑 → (*rf‘𝑅) = ◡(*rf‘𝑅))
131	3, 68	issrng 18673	. 2 ⊢ (𝑅 ∈ *-Ring ↔ ((*rf‘𝑅) ∈ (𝑅 RingHom (oppr‘𝑅)) ∧ (*rf‘𝑅) = ◡(*rf‘𝑅)))
132	108, 130, 131	sylanbrc 695	1 ⊢ (𝜑 → 𝑅 ∈ *-Ring)

Syntax hints:   → wi 4   ∧ wa 383   ∧ w3a 1031   = wceq 1475   ∈ wcel 1977  ∀wral 2896   ↦ cmpt 4643  ^◡ccnv 5037  ⟶wf 5800  –1-1-onto→wf1o 5803  ‘cfv 5804  (class class class)co 6549  Basecbs 15695  +_gcplusg 15768  ._rcmulr 15769  *_𝑟cstv 15770  1_rcur 18324  Ringcrg 18370  opp_rcoppr 18445   RingHom crh 18535  *_rfcstf 18666  *-Ringcsr 18667

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-cnex 9871  ax-resscn 9872  ax-1cn 9873  ax-icn 9874  ax-addcl 9875  ax-addrcl 9876  ax-mulcl 9877  ax-mulrcl 9878  ax-mulcom 9879  ax-addass 9880  ax-mulass 9881  ax-distr 9882  ax-i2m1 9883  ax-1ne0 9884  ax-1rid 9885  ax-rnegex 9886  ax-rrecex 9887  ax-cnre 9888  ax-pre-lttri 9889  ax-pre-lttrn 9890  ax-pre-ltadd 9891  ax-pre-mulgt0 9892

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-om 6958  df-tpos 7239  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-er 7629  df-map 7746  df-en 7842  df-dom 7843  df-sdom 7844  df-pnf 9955  df-mnf 9956  df-xr 9957  df-ltxr 9958  df-le 9959  df-sub 10147  df-neg 10148  df-nn 10898  df-2 10956  df-3 10957  df-ndx 15698  df-slot 15699  df-base 15700  df-sets 15701  df-plusg 15781  df-mulr 15782  df-0g 15925  df-mgm 17065  df-sgrp 17107  df-mnd 17118  df-mhm 17158  df-grp 17248  df-ghm 17481  df-mgp 18313  df-ur 18325  df-ring 18372  df-oppr 18446  df-rnghom 18538  df-staf 18668  df-srng 18669

This theorem is referenced by:  idsrngd  18685  cnsrng  19599  hlhilsrnglem  36263