Users' Mathboxes Mathbox for Jeff Madsen < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  ispridlc Structured version   Visualization version   GIF version

Theorem ispridlc 38741
Description: Obsolete theorem, use isprmidlc 21472 instead. The predicate "is a prime ideal". Alternate definition for commutative rings. (Contributed by Jeff Madsen, 19-Jun-2010.) (New usage is discouraged.) (Proof modification is discouraged.)
Hypotheses
Ref Expression
ispridlc.1 𝐺 = (1st𝑅)
ispridlc.2 𝐻 = (2nd𝑅)
ispridlc.3 𝑋 = ran 𝐺
Assertion
Ref Expression
ispridlc (𝑅 ∈ CRingOps → (𝑃 ∈ (PrIdl‘𝑅) ↔ (𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋 ∧ ∀𝑎𝑋𝑏𝑋 ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃)))))
Distinct variable groups:   𝑅,𝑎,𝑏   𝑃,𝑎,𝑏   𝑋,𝑎,𝑏   𝐻,𝑎,𝑏
Allowed substitution hints:   𝐺(𝑎,𝑏)

Proof of Theorem ispridlc
Dummy variables 𝑥 𝑦 𝑟 𝑠 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 crngorngo 38671 . . . 4 (𝑅 ∈ CRingOps → 𝑅 ∈ RingOps)
2 ispridlc.1 . . . . 5 𝐺 = (1st𝑅)
3 ispridlc.2 . . . . 5 𝐻 = (2nd𝑅)
4 ispridlc.3 . . . . 5 𝑋 = ran 𝐺
52, 3, 4ispridl 38705 . . . 4 (𝑅 ∈ RingOps → (𝑃 ∈ (PrIdl‘𝑅) ↔ (𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋 ∧ ∀𝑟 ∈ (Idl‘𝑅)∀𝑠 ∈ (Idl‘𝑅)(∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → (𝑟𝑃𝑠𝑃)))))
61, 5syl 18 . . 3 (𝑅 ∈ CRingOps → (𝑃 ∈ (PrIdl‘𝑅) ↔ (𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋 ∧ ∀𝑟 ∈ (Idl‘𝑅)∀𝑠 ∈ (Idl‘𝑅)(∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → (𝑟𝑃𝑠𝑃)))))
7 snssi 4751 . . . . . . . . . . . . 13 (𝑎𝑋 → {𝑎} ⊆ 𝑋)
82, 4igenidl 38734 . . . . . . . . . . . . 13 ((𝑅 ∈ RingOps ∧ {𝑎} ⊆ 𝑋) → (𝑅 IdlGen {𝑎}) ∈ (Idl‘𝑅))
91, 7, 8syl2an 607 . . . . . . . . . . . 12 ((𝑅 ∈ CRingOps ∧ 𝑎𝑋) → (𝑅 IdlGen {𝑎}) ∈ (Idl‘𝑅))
109adantrr 729 . . . . . . . . . . 11 ((𝑅 ∈ CRingOps ∧ (𝑎𝑋𝑏𝑋)) → (𝑅 IdlGen {𝑎}) ∈ (Idl‘𝑅))
11 snssi 4751 . . . . . . . . . . . . 13 (𝑏𝑋 → {𝑏} ⊆ 𝑋)
122, 4igenidl 38734 . . . . . . . . . . . . 13 ((𝑅 ∈ RingOps ∧ {𝑏} ⊆ 𝑋) → (𝑅 IdlGen {𝑏}) ∈ (Idl‘𝑅))
131, 11, 12syl2an 607 . . . . . . . . . . . 12 ((𝑅 ∈ CRingOps ∧ 𝑏𝑋) → (𝑅 IdlGen {𝑏}) ∈ (Idl‘𝑅))
1413adantrl 728 . . . . . . . . . . 11 ((𝑅 ∈ CRingOps ∧ (𝑎𝑋𝑏𝑋)) → (𝑅 IdlGen {𝑏}) ∈ (Idl‘𝑅))
15 raleq 3320 . . . . . . . . . . . . 13 (𝑟 = (𝑅 IdlGen {𝑎}) → (∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 ↔ ∀𝑥 ∈ (𝑅 IdlGen {𝑎})∀𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃))
16 sseq1 3962 . . . . . . . . . . . . . 14 (𝑟 = (𝑅 IdlGen {𝑎}) → (𝑟𝑃 ↔ (𝑅 IdlGen {𝑎}) ⊆ 𝑃))
1716orbi1d 929 . . . . . . . . . . . . 13 (𝑟 = (𝑅 IdlGen {𝑎}) → ((𝑟𝑃𝑠𝑃) ↔ ((𝑅 IdlGen {𝑎}) ⊆ 𝑃𝑠𝑃)))
1815, 17imbi12d 347 . . . . . . . . . . . 12 (𝑟 = (𝑅 IdlGen {𝑎}) → ((∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → (𝑟𝑃𝑠𝑃)) ↔ (∀𝑥 ∈ (𝑅 IdlGen {𝑎})∀𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → ((𝑅 IdlGen {𝑎}) ⊆ 𝑃𝑠𝑃))))
19 raleq 3320 . . . . . . . . . . . . . 14 (𝑠 = (𝑅 IdlGen {𝑏}) → (∀𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 ↔ ∀𝑦 ∈ (𝑅 IdlGen {𝑏})(𝑥𝐻𝑦) ∈ 𝑃))
2019ralbidv 3188 . . . . . . . . . . . . 13 (𝑠 = (𝑅 IdlGen {𝑏}) → (∀𝑥 ∈ (𝑅 IdlGen {𝑎})∀𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 ↔ ∀𝑥 ∈ (𝑅 IdlGen {𝑎})∀𝑦 ∈ (𝑅 IdlGen {𝑏})(𝑥𝐻𝑦) ∈ 𝑃))
21 sseq1 3962 . . . . . . . . . . . . . 14 (𝑠 = (𝑅 IdlGen {𝑏}) → (𝑠𝑃 ↔ (𝑅 IdlGen {𝑏}) ⊆ 𝑃))
2221orbi2d 928 . . . . . . . . . . . . 13 (𝑠 = (𝑅 IdlGen {𝑏}) → (((𝑅 IdlGen {𝑎}) ⊆ 𝑃𝑠𝑃) ↔ ((𝑅 IdlGen {𝑎}) ⊆ 𝑃 ∨ (𝑅 IdlGen {𝑏}) ⊆ 𝑃)))
2320, 22imbi12d 347 . . . . . . . . . . . 12 (𝑠 = (𝑅 IdlGen {𝑏}) → ((∀𝑥 ∈ (𝑅 IdlGen {𝑎})∀𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → ((𝑅 IdlGen {𝑎}) ⊆ 𝑃𝑠𝑃)) ↔ (∀𝑥 ∈ (𝑅 IdlGen {𝑎})∀𝑦 ∈ (𝑅 IdlGen {𝑏})(𝑥𝐻𝑦) ∈ 𝑃 → ((𝑅 IdlGen {𝑎}) ⊆ 𝑃 ∨ (𝑅 IdlGen {𝑏}) ⊆ 𝑃))))
2418, 23rspc2v 3592 . . . . . . . . . . 11 (((𝑅 IdlGen {𝑎}) ∈ (Idl‘𝑅) ∧ (𝑅 IdlGen {𝑏}) ∈ (Idl‘𝑅)) → (∀𝑟 ∈ (Idl‘𝑅)∀𝑠 ∈ (Idl‘𝑅)(∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → (𝑟𝑃𝑠𝑃)) → (∀𝑥 ∈ (𝑅 IdlGen {𝑎})∀𝑦 ∈ (𝑅 IdlGen {𝑏})(𝑥𝐻𝑦) ∈ 𝑃 → ((𝑅 IdlGen {𝑎}) ⊆ 𝑃 ∨ (𝑅 IdlGen {𝑏}) ⊆ 𝑃))))
2510, 14, 24syl2anc 595 . . . . . . . . . 10 ((𝑅 ∈ CRingOps ∧ (𝑎𝑋𝑏𝑋)) → (∀𝑟 ∈ (Idl‘𝑅)∀𝑠 ∈ (Idl‘𝑅)(∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → (𝑟𝑃𝑠𝑃)) → (∀𝑥 ∈ (𝑅 IdlGen {𝑎})∀𝑦 ∈ (𝑅 IdlGen {𝑏})(𝑥𝐻𝑦) ∈ 𝑃 → ((𝑅 IdlGen {𝑎}) ⊆ 𝑃 ∨ (𝑅 IdlGen {𝑏}) ⊆ 𝑃))))
2625adantlr 727 . . . . . . . . 9 (((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) → (∀𝑟 ∈ (Idl‘𝑅)∀𝑠 ∈ (Idl‘𝑅)(∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → (𝑟𝑃𝑠𝑃)) → (∀𝑥 ∈ (𝑅 IdlGen {𝑎})∀𝑦 ∈ (𝑅 IdlGen {𝑏})(𝑥𝐻𝑦) ∈ 𝑃 → ((𝑅 IdlGen {𝑎}) ⊆ 𝑃 ∨ (𝑅 IdlGen {𝑏}) ⊆ 𝑃))))
272, 3, 4prnc 38738 . . . . . . . . . . . . . . . . . . 19 ((𝑅 ∈ CRingOps ∧ 𝑎𝑋) → (𝑅 IdlGen {𝑎}) = {𝑥𝑋 ∣ ∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎)})
28 df-rab 3417 . . . . . . . . . . . . . . . . . . 19 {𝑥𝑋 ∣ ∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎)} = {𝑥 ∣ (𝑥𝑋 ∧ ∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎))}
2927, 28eqtrdi 2814 . . . . . . . . . . . . . . . . . 18 ((𝑅 ∈ CRingOps ∧ 𝑎𝑋) → (𝑅 IdlGen {𝑎}) = {𝑥 ∣ (𝑥𝑋 ∧ ∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎))})
3029eqabrd 2904 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ CRingOps ∧ 𝑎𝑋) → (𝑥 ∈ (𝑅 IdlGen {𝑎}) ↔ (𝑥𝑋 ∧ ∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎))))
3130adantrr 729 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ CRingOps ∧ (𝑎𝑋𝑏𝑋)) → (𝑥 ∈ (𝑅 IdlGen {𝑎}) ↔ (𝑥𝑋 ∧ ∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎))))
322, 3, 4prnc 38738 . . . . . . . . . . . . . . . . . . 19 ((𝑅 ∈ CRingOps ∧ 𝑏𝑋) → (𝑅 IdlGen {𝑏}) = {𝑦𝑋 ∣ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏)})
33 df-rab 3417 . . . . . . . . . . . . . . . . . . 19 {𝑦𝑋 ∣ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏)} = {𝑦 ∣ (𝑦𝑋 ∧ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏))}
3432, 33eqtrdi 2814 . . . . . . . . . . . . . . . . . 18 ((𝑅 ∈ CRingOps ∧ 𝑏𝑋) → (𝑅 IdlGen {𝑏}) = {𝑦 ∣ (𝑦𝑋 ∧ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏))})
3534eqabrd 2904 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ CRingOps ∧ 𝑏𝑋) → (𝑦 ∈ (𝑅 IdlGen {𝑏}) ↔ (𝑦𝑋 ∧ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏))))
3635adantrl 728 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ CRingOps ∧ (𝑎𝑋𝑏𝑋)) → (𝑦 ∈ (𝑅 IdlGen {𝑏}) ↔ (𝑦𝑋 ∧ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏))))
3731, 36anbi12d 643 . . . . . . . . . . . . . . 15 ((𝑅 ∈ CRingOps ∧ (𝑎𝑋𝑏𝑋)) → ((𝑥 ∈ (𝑅 IdlGen {𝑎}) ∧ 𝑦 ∈ (𝑅 IdlGen {𝑏})) ↔ ((𝑥𝑋 ∧ ∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎)) ∧ (𝑦𝑋 ∧ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏)))))
3837adantlr 727 . . . . . . . . . . . . . 14 (((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) → ((𝑥 ∈ (𝑅 IdlGen {𝑎}) ∧ 𝑦 ∈ (𝑅 IdlGen {𝑏})) ↔ ((𝑥𝑋 ∧ ∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎)) ∧ (𝑦𝑋 ∧ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏)))))
3938adantr 485 . . . . . . . . . . . . 13 ((((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) ∧ (𝑎𝐻𝑏) ∈ 𝑃) → ((𝑥 ∈ (𝑅 IdlGen {𝑎}) ∧ 𝑦 ∈ (𝑅 IdlGen {𝑏})) ↔ ((𝑥𝑋 ∧ ∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎)) ∧ (𝑦𝑋 ∧ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏)))))
40 reeanv 3237 . . . . . . . . . . . . . . . 16 (∃𝑟𝑋𝑠𝑋 (𝑥 = (𝑟𝐻𝑎) ∧ 𝑦 = (𝑠𝐻𝑏)) ↔ (∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎) ∧ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏)))
4140anbi2i 634 . . . . . . . . . . . . . . 15 (((𝑥𝑋𝑦𝑋) ∧ ∃𝑟𝑋𝑠𝑋 (𝑥 = (𝑟𝐻𝑎) ∧ 𝑦 = (𝑠𝐻𝑏))) ↔ ((𝑥𝑋𝑦𝑋) ∧ (∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎) ∧ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏))))
42 an4 668 . . . . . . . . . . . . . . 15 (((𝑥𝑋𝑦𝑋) ∧ (∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎) ∧ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏))) ↔ ((𝑥𝑋 ∧ ∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎)) ∧ (𝑦𝑋 ∧ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏))))
4341, 42bitri 278 . . . . . . . . . . . . . 14 (((𝑥𝑋𝑦𝑋) ∧ ∃𝑟𝑋𝑠𝑋 (𝑥 = (𝑟𝐻𝑎) ∧ 𝑦 = (𝑠𝐻𝑏))) ↔ ((𝑥𝑋 ∧ ∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎)) ∧ (𝑦𝑋 ∧ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏))))
442, 3, 4crngm4 38674 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑅 ∈ CRingOps ∧ (𝑟𝑋𝑠𝑋) ∧ (𝑎𝑋𝑏𝑋)) → ((𝑟𝐻𝑠)𝐻(𝑎𝐻𝑏)) = ((𝑟𝐻𝑎)𝐻(𝑠𝐻𝑏)))
45443com23 1144 . . . . . . . . . . . . . . . . . . . . 21 ((𝑅 ∈ CRingOps ∧ (𝑎𝑋𝑏𝑋) ∧ (𝑟𝑋𝑠𝑋)) → ((𝑟𝐻𝑠)𝐻(𝑎𝐻𝑏)) = ((𝑟𝐻𝑎)𝐻(𝑠𝐻𝑏)))
46453expa 1136 . . . . . . . . . . . . . . . . . . . 20 (((𝑅 ∈ CRingOps ∧ (𝑎𝑋𝑏𝑋)) ∧ (𝑟𝑋𝑠𝑋)) → ((𝑟𝐻𝑠)𝐻(𝑎𝐻𝑏)) = ((𝑟𝐻𝑎)𝐻(𝑠𝐻𝑏)))
4746adantllr 731 . . . . . . . . . . . . . . . . . . 19 ((((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) ∧ (𝑟𝑋𝑠𝑋)) → ((𝑟𝐻𝑠)𝐻(𝑎𝐻𝑏)) = ((𝑟𝐻𝑎)𝐻(𝑠𝐻𝑏)))
4847adantlr 727 . . . . . . . . . . . . . . . . . 18 (((((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) ∧ (𝑎𝐻𝑏) ∈ 𝑃) ∧ (𝑟𝑋𝑠𝑋)) → ((𝑟𝐻𝑠)𝐻(𝑎𝐻𝑏)) = ((𝑟𝐻𝑎)𝐻(𝑠𝐻𝑏)))
492, 3, 4rngocl 38572 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑅 ∈ RingOps ∧ 𝑟𝑋𝑠𝑋) → (𝑟𝐻𝑠) ∈ 𝑋)
501, 49syl3an1 1181 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑅 ∈ CRingOps ∧ 𝑟𝑋𝑠𝑋) → (𝑟𝐻𝑠) ∈ 𝑋)
51503expb 1138 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑅 ∈ CRingOps ∧ (𝑟𝑋𝑠𝑋)) → (𝑟𝐻𝑠) ∈ 𝑋)
5251adantlr 727 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑟𝑋𝑠𝑋)) → (𝑟𝐻𝑠) ∈ 𝑋)
5352adantlr 727 . . . . . . . . . . . . . . . . . . . 20 ((((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝐻𝑏) ∈ 𝑃) ∧ (𝑟𝑋𝑠𝑋)) → (𝑟𝐻𝑠) ∈ 𝑋)
542, 3, 4idllmulcl 38691 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 ∈ RingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ ((𝑎𝐻𝑏) ∈ 𝑃 ∧ (𝑟𝐻𝑠) ∈ 𝑋)) → ((𝑟𝐻𝑠)𝐻(𝑎𝐻𝑏)) ∈ 𝑃)
551, 54sylanl1 692 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ ((𝑎𝐻𝑏) ∈ 𝑃 ∧ (𝑟𝐻𝑠) ∈ 𝑋)) → ((𝑟𝐻𝑠)𝐻(𝑎𝐻𝑏)) ∈ 𝑃)
5655anassrs 472 . . . . . . . . . . . . . . . . . . . 20 ((((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝐻𝑏) ∈ 𝑃) ∧ (𝑟𝐻𝑠) ∈ 𝑋) → ((𝑟𝐻𝑠)𝐻(𝑎𝐻𝑏)) ∈ 𝑃)
5753, 56syldan 602 . . . . . . . . . . . . . . . . . . 19 ((((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝐻𝑏) ∈ 𝑃) ∧ (𝑟𝑋𝑠𝑋)) → ((𝑟𝐻𝑠)𝐻(𝑎𝐻𝑏)) ∈ 𝑃)
5857adantllr 731 . . . . . . . . . . . . . . . . . 18 (((((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) ∧ (𝑎𝐻𝑏) ∈ 𝑃) ∧ (𝑟𝑋𝑠𝑋)) → ((𝑟𝐻𝑠)𝐻(𝑎𝐻𝑏)) ∈ 𝑃)
5948, 58eqeltrrd 2864 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) ∧ (𝑎𝐻𝑏) ∈ 𝑃) ∧ (𝑟𝑋𝑠𝑋)) → ((𝑟𝐻𝑎)𝐻(𝑠𝐻𝑏)) ∈ 𝑃)
60 oveq12 7419 . . . . . . . . . . . . . . . . . 18 ((𝑥 = (𝑟𝐻𝑎) ∧ 𝑦 = (𝑠𝐻𝑏)) → (𝑥𝐻𝑦) = ((𝑟𝐻𝑎)𝐻(𝑠𝐻𝑏)))
6160eleq1d 2848 . . . . . . . . . . . . . . . . 17 ((𝑥 = (𝑟𝐻𝑎) ∧ 𝑦 = (𝑠𝐻𝑏)) → ((𝑥𝐻𝑦) ∈ 𝑃 ↔ ((𝑟𝐻𝑎)𝐻(𝑠𝐻𝑏)) ∈ 𝑃))
6259, 61syl5ibrcom 250 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) ∧ (𝑎𝐻𝑏) ∈ 𝑃) ∧ (𝑟𝑋𝑠𝑋)) → ((𝑥 = (𝑟𝐻𝑎) ∧ 𝑦 = (𝑠𝐻𝑏)) → (𝑥𝐻𝑦) ∈ 𝑃))
6362rexlimdvva 3222 . . . . . . . . . . . . . . 15 ((((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) ∧ (𝑎𝐻𝑏) ∈ 𝑃) → (∃𝑟𝑋𝑠𝑋 (𝑥 = (𝑟𝐻𝑎) ∧ 𝑦 = (𝑠𝐻𝑏)) → (𝑥𝐻𝑦) ∈ 𝑃))
6463adantld 495 . . . . . . . . . . . . . 14 ((((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) ∧ (𝑎𝐻𝑏) ∈ 𝑃) → (((𝑥𝑋𝑦𝑋) ∧ ∃𝑟𝑋𝑠𝑋 (𝑥 = (𝑟𝐻𝑎) ∧ 𝑦 = (𝑠𝐻𝑏))) → (𝑥𝐻𝑦) ∈ 𝑃))
6543, 64biimtrrid 246 . . . . . . . . . . . . 13 ((((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) ∧ (𝑎𝐻𝑏) ∈ 𝑃) → (((𝑥𝑋 ∧ ∃𝑟𝑋 𝑥 = (𝑟𝐻𝑎)) ∧ (𝑦𝑋 ∧ ∃𝑠𝑋 𝑦 = (𝑠𝐻𝑏))) → (𝑥𝐻𝑦) ∈ 𝑃))
6639, 65sylbid 243 . . . . . . . . . . . 12 ((((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) ∧ (𝑎𝐻𝑏) ∈ 𝑃) → ((𝑥 ∈ (𝑅 IdlGen {𝑎}) ∧ 𝑦 ∈ (𝑅 IdlGen {𝑏})) → (𝑥𝐻𝑦) ∈ 𝑃))
6766ralrimivv 3206 . . . . . . . . . . 11 ((((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) ∧ (𝑎𝐻𝑏) ∈ 𝑃) → ∀𝑥 ∈ (𝑅 IdlGen {𝑎})∀𝑦 ∈ (𝑅 IdlGen {𝑏})(𝑥𝐻𝑦) ∈ 𝑃)
6867ex 417 . . . . . . . . . 10 (((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) → ((𝑎𝐻𝑏) ∈ 𝑃 → ∀𝑥 ∈ (𝑅 IdlGen {𝑎})∀𝑦 ∈ (𝑅 IdlGen {𝑏})(𝑥𝐻𝑦) ∈ 𝑃))
692, 4igenss 38733 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ RingOps ∧ {𝑎} ⊆ 𝑋) → {𝑎} ⊆ (𝑅 IdlGen {𝑎}))
701, 7, 69syl2an 607 . . . . . . . . . . . . . . 15 ((𝑅 ∈ CRingOps ∧ 𝑎𝑋) → {𝑎} ⊆ (𝑅 IdlGen {𝑎}))
71 vex 3459 . . . . . . . . . . . . . . . 16 𝑎 ∈ V
7271snss 4750 . . . . . . . . . . . . . . 15 (𝑎 ∈ (𝑅 IdlGen {𝑎}) ↔ {𝑎} ⊆ (𝑅 IdlGen {𝑎}))
7370, 72sylibr 237 . . . . . . . . . . . . . 14 ((𝑅 ∈ CRingOps ∧ 𝑎𝑋) → 𝑎 ∈ (𝑅 IdlGen {𝑎}))
7473adantrr 729 . . . . . . . . . . . . 13 ((𝑅 ∈ CRingOps ∧ (𝑎𝑋𝑏𝑋)) → 𝑎 ∈ (𝑅 IdlGen {𝑎}))
75 ssel 3931 . . . . . . . . . . . . 13 ((𝑅 IdlGen {𝑎}) ⊆ 𝑃 → (𝑎 ∈ (𝑅 IdlGen {𝑎}) → 𝑎𝑃))
7674, 75syl5com 32 . . . . . . . . . . . 12 ((𝑅 ∈ CRingOps ∧ (𝑎𝑋𝑏𝑋)) → ((𝑅 IdlGen {𝑎}) ⊆ 𝑃𝑎𝑃))
772, 4igenss 38733 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ RingOps ∧ {𝑏} ⊆ 𝑋) → {𝑏} ⊆ (𝑅 IdlGen {𝑏}))
781, 11, 77syl2an 607 . . . . . . . . . . . . . . 15 ((𝑅 ∈ CRingOps ∧ 𝑏𝑋) → {𝑏} ⊆ (𝑅 IdlGen {𝑏}))
79 vex 3459 . . . . . . . . . . . . . . . 16 𝑏 ∈ V
8079snss 4750 . . . . . . . . . . . . . . 15 (𝑏 ∈ (𝑅 IdlGen {𝑏}) ↔ {𝑏} ⊆ (𝑅 IdlGen {𝑏}))
8178, 80sylibr 237 . . . . . . . . . . . . . 14 ((𝑅 ∈ CRingOps ∧ 𝑏𝑋) → 𝑏 ∈ (𝑅 IdlGen {𝑏}))
8281adantrl 728 . . . . . . . . . . . . 13 ((𝑅 ∈ CRingOps ∧ (𝑎𝑋𝑏𝑋)) → 𝑏 ∈ (𝑅 IdlGen {𝑏}))
83 ssel 3931 . . . . . . . . . . . . 13 ((𝑅 IdlGen {𝑏}) ⊆ 𝑃 → (𝑏 ∈ (𝑅 IdlGen {𝑏}) → 𝑏𝑃))
8482, 83syl5com 32 . . . . . . . . . . . 12 ((𝑅 ∈ CRingOps ∧ (𝑎𝑋𝑏𝑋)) → ((𝑅 IdlGen {𝑏}) ⊆ 𝑃𝑏𝑃))
8576, 84orim12d 979 . . . . . . . . . . 11 ((𝑅 ∈ CRingOps ∧ (𝑎𝑋𝑏𝑋)) → (((𝑅 IdlGen {𝑎}) ⊆ 𝑃 ∨ (𝑅 IdlGen {𝑏}) ⊆ 𝑃) → (𝑎𝑃𝑏𝑃)))
8685adantlr 727 . . . . . . . . . 10 (((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) → (((𝑅 IdlGen {𝑎}) ⊆ 𝑃 ∨ (𝑅 IdlGen {𝑏}) ⊆ 𝑃) → (𝑎𝑃𝑏𝑃)))
8768, 86imim12d 82 . . . . . . . . 9 (((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) → ((∀𝑥 ∈ (𝑅 IdlGen {𝑎})∀𝑦 ∈ (𝑅 IdlGen {𝑏})(𝑥𝐻𝑦) ∈ 𝑃 → ((𝑅 IdlGen {𝑎}) ⊆ 𝑃 ∨ (𝑅 IdlGen {𝑏}) ⊆ 𝑃)) → ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃))))
8826, 87syld 48 . . . . . . . 8 (((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) ∧ (𝑎𝑋𝑏𝑋)) → (∀𝑟 ∈ (Idl‘𝑅)∀𝑠 ∈ (Idl‘𝑅)(∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → (𝑟𝑃𝑠𝑃)) → ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃))))
8988ralrimdvva 3220 . . . . . . 7 ((𝑅 ∈ CRingOps ∧ 𝑃 ∈ (Idl‘𝑅)) → (∀𝑟 ∈ (Idl‘𝑅)∀𝑠 ∈ (Idl‘𝑅)(∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → (𝑟𝑃𝑠𝑃)) → ∀𝑎𝑋𝑏𝑋 ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃))))
9089ex 417 . . . . . 6 (𝑅 ∈ CRingOps → (𝑃 ∈ (Idl‘𝑅) → (∀𝑟 ∈ (Idl‘𝑅)∀𝑠 ∈ (Idl‘𝑅)(∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → (𝑟𝑃𝑠𝑃)) → ∀𝑎𝑋𝑏𝑋 ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃)))))
9190adantrd 496 . . . . 5 (𝑅 ∈ CRingOps → ((𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋) → (∀𝑟 ∈ (Idl‘𝑅)∀𝑠 ∈ (Idl‘𝑅)(∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → (𝑟𝑃𝑠𝑃)) → ∀𝑎𝑋𝑏𝑋 ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃)))))
9291imdistand 580 . . . 4 (𝑅 ∈ CRingOps → (((𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋) ∧ ∀𝑟 ∈ (Idl‘𝑅)∀𝑠 ∈ (Idl‘𝑅)(∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → (𝑟𝑃𝑠𝑃))) → ((𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋) ∧ ∀𝑎𝑋𝑏𝑋 ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃)))))
93 df-3an 1105 . . . 4 ((𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋 ∧ ∀𝑟 ∈ (Idl‘𝑅)∀𝑠 ∈ (Idl‘𝑅)(∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → (𝑟𝑃𝑠𝑃))) ↔ ((𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋) ∧ ∀𝑟 ∈ (Idl‘𝑅)∀𝑠 ∈ (Idl‘𝑅)(∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → (𝑟𝑃𝑠𝑃))))
94 df-3an 1105 . . . 4 ((𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋 ∧ ∀𝑎𝑋𝑏𝑋 ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃))) ↔ ((𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋) ∧ ∀𝑎𝑋𝑏𝑋 ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃))))
9592, 93, 943imtr4g 299 . . 3 (𝑅 ∈ CRingOps → ((𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋 ∧ ∀𝑟 ∈ (Idl‘𝑅)∀𝑠 ∈ (Idl‘𝑅)(∀𝑥𝑟𝑦𝑠 (𝑥𝐻𝑦) ∈ 𝑃 → (𝑟𝑃𝑠𝑃))) → (𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋 ∧ ∀𝑎𝑋𝑏𝑋 ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃)))))
966, 95sylbid 243 . 2 (𝑅 ∈ CRingOps → (𝑃 ∈ (PrIdl‘𝑅) → (𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋 ∧ ∀𝑎𝑋𝑏𝑋 ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃)))))
972, 3, 4ispridl2 38709 . . . 4 ((𝑅 ∈ RingOps ∧ (𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋 ∧ ∀𝑎𝑋𝑏𝑋 ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃)))) → 𝑃 ∈ (PrIdl‘𝑅))
9897ex 417 . . 3 (𝑅 ∈ RingOps → ((𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋 ∧ ∀𝑎𝑋𝑏𝑋 ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃))) → 𝑃 ∈ (PrIdl‘𝑅)))
991, 98syl 18 . 2 (𝑅 ∈ CRingOps → ((𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋 ∧ ∀𝑎𝑋𝑏𝑋 ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃))) → 𝑃 ∈ (PrIdl‘𝑅)))
10096, 99impbid 215 1 (𝑅 ∈ CRingOps → (𝑃 ∈ (PrIdl‘𝑅) ↔ (𝑃 ∈ (Idl‘𝑅) ∧ 𝑃𝑋 ∧ ∀𝑎𝑋𝑏𝑋 ((𝑎𝐻𝑏) ∈ 𝑃 → (𝑎𝑃𝑏𝑃)))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 400  wo 860  w3a 1103   = wceq 1570  wcel 2143  {cab 2741  wne 2958  wral 3079  wrex 3089  {crab 3416  wss 3905  {csn 4589  ran crn 5662  cfv 6536  (class class class)co 7410  1st c1st 7980  2nd c2nd 7981  RingOpscrngo 38565  CRingOpsccring 38664  Idlcidl 38678  PrIdlcpridl 38679   IdlGen cigen 38730
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5238  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-int 4913  df-iun 4958  df-br 5110  df-opab 5174  df-mpt 5193  df-id 5556  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-1st 7982  df-2nd 7983  df-grpo 30845  df-gid 30846  df-ginv 30847  df-ablo 30897  df-ass 38514  df-exid 38516  df-mgmOLD 38520  df-sgrOLD 38532  df-mndo 38538  df-rngo 38566  df-com2 38661  df-crngo 38665  df-idl 38681  df-pridl 38682  df-igen 38731
This theorem is referenced by:  pridlc  38742  isdmn3  38745
  Copyright terms: Public domain W3C validator