Theorem rprmval 33487

Description: The prime elements of a ring 𝑅. (Contributed by Thierry Arnoux, 1-Jul-2024.)

Hypotheses

Ref	Expression
rprmval.b	⊢ 𝐵 = (Base‘𝑅)
rprmval.u	⊢ 𝑈 = (Unit‘𝑅)
rprmval.1	⊢ 0 = (0g‘𝑅)
rprmval.m	⊢ · = (.r‘𝑅)
rprmval.d	⊢ ∥ = (∥r‘𝑅)

Assertion

Ref	Expression
rprmval	⊢ (𝑅 ∈ 𝑉 → (RPrime‘𝑅) = {𝑝 ∈ (𝐵 ∖ (𝑈 ∪ { 0 })) ∣ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑝 ∥ (𝑥 · 𝑦) → (𝑝 ∥ 𝑥 ∨ 𝑝 ∥ 𝑦))})

Distinct variable groups:   0 ,𝑝   𝐵,𝑝   𝑅,𝑝,𝑥,𝑦   𝑈,𝑝

Allowed substitution hints:   𝐵(𝑥,𝑦)   ∥ (𝑥,𝑦,𝑝)   · (𝑥,𝑦,𝑝)   𝑈(𝑥,𝑦)   𝑉(𝑥,𝑦,𝑝)   0 (𝑥,𝑦)

Proof of Theorem rprmval

Dummy variables 𝑏 𝑟 𝑑 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-rprm 20342	. 2 ⊢ RPrime = (𝑟 ∈ V ↦ ⦋(Base‘𝑟) / 𝑏⦌{𝑝 ∈ (𝑏 ∖ ((Unit‘𝑟) ∪ {(0g‘𝑟)})) ∣ ∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 [(∥r‘𝑟) / 𝑑](𝑝𝑑(𝑥(.r‘𝑟)𝑦) → (𝑝𝑑𝑥 ∨ 𝑝𝑑𝑦))})
2		fvexd 6873	. . 3 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) ∈ V)
3		simpr 484	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → 𝑏 = (Base‘𝑟))
4		fveq2 6858	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
5	4	adantr 480	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (Base‘𝑟) = (Base‘𝑅))
6	3, 5	eqtrd 2764	. . . . . 6 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → 𝑏 = (Base‘𝑅))
7		rprmval.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝑅)
8	6, 7	eqtr4di 2782	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → 𝑏 = 𝐵)
9		fveq2 6858	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (Unit‘𝑟) = (Unit‘𝑅))
10		rprmval.u	. . . . . . . 8 ⊢ 𝑈 = (Unit‘𝑅)
11	9, 10	eqtr4di 2782	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (Unit‘𝑟) = 𝑈)
12		fveq2 6858	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (0g‘𝑟) = (0g‘𝑅))
13		rprmval.1	. . . . . . . . 9 ⊢ 0 = (0g‘𝑅)
14	12, 13	eqtr4di 2782	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (0g‘𝑟) = 0 )
15	14	sneqd 4601	. . . . . . 7 ⊢ (𝑟 = 𝑅 → {(0g‘𝑟)} = { 0 })
16	11, 15	uneq12d 4132	. . . . . 6 ⊢ (𝑟 = 𝑅 → ((Unit‘𝑟) ∪ {(0g‘𝑟)}) = (𝑈 ∪ { 0 }))
17	16	adantr 480	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → ((Unit‘𝑟) ∪ {(0g‘𝑟)}) = (𝑈 ∪ { 0 }))
18	8, 17	difeq12d 4090	. . . 4 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑏 ∖ ((Unit‘𝑟) ∪ {(0g‘𝑟)})) = (𝐵 ∖ (𝑈 ∪ { 0 })))
19		fvexd 6873	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (∥r‘𝑟) ∈ V)
20		eqidd 2730	. . . . . . . . 9 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) ∧ 𝑑 = (∥r‘𝑟)) → 𝑝 = 𝑝)
21		simpr 484	. . . . . . . . . . 11 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) ∧ 𝑑 = (∥r‘𝑟)) → 𝑑 = (∥r‘𝑟))
22		fveq2 6858	. . . . . . . . . . . 12 ⊢ (𝑟 = 𝑅 → (∥r‘𝑟) = (∥r‘𝑅))
23	22	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) ∧ 𝑑 = (∥r‘𝑟)) → (∥r‘𝑟) = (∥r‘𝑅))
24	21, 23	eqtrd 2764	. . . . . . . . . 10 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) ∧ 𝑑 = (∥r‘𝑟)) → 𝑑 = (∥r‘𝑅))
25		rprmval.d	. . . . . . . . . 10 ⊢ ∥ = (∥r‘𝑅)
26	24, 25	eqtr4di 2782	. . . . . . . . 9 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) ∧ 𝑑 = (∥r‘𝑟)) → 𝑑 = ∥ )
27		fveq2 6858	. . . . . . . . . . . 12 ⊢ (𝑟 = 𝑅 → (.r‘𝑟) = (.r‘𝑅))
28		rprmval.m	. . . . . . . . . . . 12 ⊢ · = (.r‘𝑅)
29	27, 28	eqtr4di 2782	. . . . . . . . . . 11 ⊢ (𝑟 = 𝑅 → (.r‘𝑟) = · )
30	29	ad2antrr 726	. . . . . . . . . 10 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) ∧ 𝑑 = (∥r‘𝑟)) → (.r‘𝑟) = · )
31	30	oveqd 7404	. . . . . . . . 9 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) ∧ 𝑑 = (∥r‘𝑟)) → (𝑥(.r‘𝑟)𝑦) = (𝑥 · 𝑦))
32	20, 26, 31	breq123d 5121	. . . . . . . 8 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) ∧ 𝑑 = (∥r‘𝑟)) → (𝑝𝑑(𝑥(.r‘𝑟)𝑦) ↔ 𝑝 ∥ (𝑥 · 𝑦)))
33	26	breqd 5118	. . . . . . . . 9 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) ∧ 𝑑 = (∥r‘𝑟)) → (𝑝𝑑𝑥 ↔ 𝑝 ∥ 𝑥))
34	26	breqd 5118	. . . . . . . . 9 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) ∧ 𝑑 = (∥r‘𝑟)) → (𝑝𝑑𝑦 ↔ 𝑝 ∥ 𝑦))
35	33, 34	orbi12d 918	. . . . . . . 8 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) ∧ 𝑑 = (∥r‘𝑟)) → ((𝑝𝑑𝑥 ∨ 𝑝𝑑𝑦) ↔ (𝑝 ∥ 𝑥 ∨ 𝑝 ∥ 𝑦)))
36	32, 35	imbi12d 344	. . . . . . 7 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) ∧ 𝑑 = (∥r‘𝑟)) → ((𝑝𝑑(𝑥(.r‘𝑟)𝑦) → (𝑝𝑑𝑥 ∨ 𝑝𝑑𝑦)) ↔ (𝑝 ∥ (𝑥 · 𝑦) → (𝑝 ∥ 𝑥 ∨ 𝑝 ∥ 𝑦))))
37	19, 36	sbcied 3797	. . . . . 6 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → ([(∥r‘𝑟) / 𝑑](𝑝𝑑(𝑥(.r‘𝑟)𝑦) → (𝑝𝑑𝑥 ∨ 𝑝𝑑𝑦)) ↔ (𝑝 ∥ (𝑥 · 𝑦) → (𝑝 ∥ 𝑥 ∨ 𝑝 ∥ 𝑦))))
38	8, 37	raleqbidv 3319	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (∀𝑦 ∈ 𝑏 [(∥r‘𝑟) / 𝑑](𝑝𝑑(𝑥(.r‘𝑟)𝑦) → (𝑝𝑑𝑥 ∨ 𝑝𝑑𝑦)) ↔ ∀𝑦 ∈ 𝐵 (𝑝 ∥ (𝑥 · 𝑦) → (𝑝 ∥ 𝑥 ∨ 𝑝 ∥ 𝑦))))
39	8, 38	raleqbidv 3319	. . . 4 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 [(∥r‘𝑟) / 𝑑](𝑝𝑑(𝑥(.r‘𝑟)𝑦) → (𝑝𝑑𝑥 ∨ 𝑝𝑑𝑦)) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑝 ∥ (𝑥 · 𝑦) → (𝑝 ∥ 𝑥 ∨ 𝑝 ∥ 𝑦))))
40	18, 39	rabeqbidv 3424	. . 3 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → {𝑝 ∈ (𝑏 ∖ ((Unit‘𝑟) ∪ {(0g‘𝑟)})) ∣ ∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 [(∥r‘𝑟) / 𝑑](𝑝𝑑(𝑥(.r‘𝑟)𝑦) → (𝑝𝑑𝑥 ∨ 𝑝𝑑𝑦))} = {𝑝 ∈ (𝐵 ∖ (𝑈 ∪ { 0 })) ∣ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑝 ∥ (𝑥 · 𝑦) → (𝑝 ∥ 𝑥 ∨ 𝑝 ∥ 𝑦))})
41	2, 40	csbied 3898	. 2 ⊢ (𝑟 = 𝑅 → ⦋(Base‘𝑟) / 𝑏⦌{𝑝 ∈ (𝑏 ∖ ((Unit‘𝑟) ∪ {(0g‘𝑟)})) ∣ ∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 [(∥r‘𝑟) / 𝑑](𝑝𝑑(𝑥(.r‘𝑟)𝑦) → (𝑝𝑑𝑥 ∨ 𝑝𝑑𝑦))} = {𝑝 ∈ (𝐵 ∖ (𝑈 ∪ { 0 })) ∣ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑝 ∥ (𝑥 · 𝑦) → (𝑝 ∥ 𝑥 ∨ 𝑝 ∥ 𝑦))})
42		elex 3468	. 2 ⊢ (𝑅 ∈ 𝑉 → 𝑅 ∈ V)
43	7	fvexi 6872	. . . . 5 ⊢ 𝐵 ∈ V
44	43	difexi 5285	. . . 4 ⊢ (𝐵 ∖ (𝑈 ∪ { 0 })) ∈ V
45	44	rabex 5294	. . 3 ⊢ {𝑝 ∈ (𝐵 ∖ (𝑈 ∪ { 0 })) ∣ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑝 ∥ (𝑥 · 𝑦) → (𝑝 ∥ 𝑥 ∨ 𝑝 ∥ 𝑦))} ∈ V
46	45	a1i 11	. 2 ⊢ (𝑅 ∈ 𝑉 → {𝑝 ∈ (𝐵 ∖ (𝑈 ∪ { 0 })) ∣ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑝 ∥ (𝑥 · 𝑦) → (𝑝 ∥ 𝑥 ∨ 𝑝 ∥ 𝑦))} ∈ V)
47	1, 41, 42, 46	fvmptd3 6991	1 ⊢ (𝑅 ∈ 𝑉 → (RPrime‘𝑅) = {𝑝 ∈ (𝐵 ∖ (𝑈 ∪ { 0 })) ∣ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑝 ∥ (𝑥 · 𝑦) → (𝑝 ∥ 𝑥 ∨ 𝑝 ∥ 𝑦))})

Syntax hints:   → wi 4   ∧ wa 395   ∨ wo 847   = wceq 1540   ∈ wcel 2109  ∀wral 3044  {crab 3405  Vcvv 3447  [wsbc 3753  ⦋csb 3862   ∖ cdif 3911   ∪ cun 3912  {csn 4589   class class class wbr 5107  ‘cfv 6511  (class class class)co 7387  Basecbs 17179  ._rcmulr 17221  0_gc0g 17402  ∥_rcdsr 20263  Unitcui 20264  RPrimecrpm 20341

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-sep 5251  ax-nul 5261  ax-pr 5387

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-rab 3406  df-v 3449  df-sbc 3754  df-csb 3863  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-nul 4297  df-if 4489  df-pw 4565  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4872  df-br 5108  df-opab 5170  df-mpt 5189  df-id 5533  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-iota 6464  df-fun 6513  df-fv 6519  df-ov 7390  df-rprm 20342

This theorem is referenced by:  isrprm  33488