Users' Mathboxes Mathbox for Alexander van der Vekens < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  uzlidlring Structured version   Visualization version   GIF version

Theorem uzlidlring 42502
Description: Only the zero (left) ideal or the unit (left) ideal of a domain is a unital ring. (Contributed by AV, 18-Feb-2020.)
Hypotheses
Ref Expression
lidlabl.l 𝐿 = (LIdeal‘𝑅)
lidlabl.i 𝐼 = (𝑅s 𝑈)
zlidlring.b 𝐵 = (Base‘𝑅)
zlidlring.0 0 = (0g𝑅)
Assertion
Ref Expression
uzlidlring ((𝑅 ∈ Domn ∧ 𝑈𝐿) → (𝐼 ∈ Ring ↔ (𝑈 = { 0 } ∨ 𝑈 = 𝐵)))

Proof of Theorem uzlidlring
Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2817 . . 3 (Base‘𝐼) = (Base‘𝐼)
2 eqid 2817 . . 3 (.r𝐼) = (.r𝐼)
31, 2isringrng 42454 . 2 (𝐼 ∈ Ring ↔ (𝐼 ∈ Rng ∧ ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)))
4 domnring 19512 . . . . 5 (𝑅 ∈ Domn → 𝑅 ∈ Ring)
54anim1i 604 . . . 4 ((𝑅 ∈ Domn ∧ 𝑈𝐿) → (𝑅 ∈ Ring ∧ 𝑈𝐿))
6 lidlabl.l . . . . 5 𝐿 = (LIdeal‘𝑅)
7 lidlabl.i . . . . 5 𝐼 = (𝑅s 𝑈)
86, 7lidlrng 42500 . . . 4 ((𝑅 ∈ Ring ∧ 𝑈𝐿) → 𝐼 ∈ Rng)
95, 8syl 17 . . 3 ((𝑅 ∈ Domn ∧ 𝑈𝐿) → 𝐼 ∈ Rng)
10 ibar 520 . . . . . 6 (𝐼 ∈ Rng → (∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦) ↔ (𝐼 ∈ Rng ∧ ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦))))
1110bicomd 214 . . . . 5 (𝐼 ∈ Rng → ((𝐼 ∈ Rng ∧ ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)) ↔ ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)))
1211adantl 469 . . . 4 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → ((𝐼 ∈ Rng ∧ ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)) ↔ ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)))
13 eqid 2817 . . . . . . . . . . . . . . . . . . . . . 22 (.r𝑅) = (.r𝑅)
147, 13ressmulr 16224 . . . . . . . . . . . . . . . . . . . . 21 (𝑈𝐿 → (.r𝑅) = (.r𝐼))
1514eqcomd 2823 . . . . . . . . . . . . . . . . . . . 20 (𝑈𝐿 → (.r𝐼) = (.r𝑅))
1615oveqd 6898 . . . . . . . . . . . . . . . . . . 19 (𝑈𝐿 → (𝑥(.r𝐼)𝑦) = (𝑥(.r𝑅)𝑦))
1716eqeq1d 2819 . . . . . . . . . . . . . . . . . 18 (𝑈𝐿 → ((𝑥(.r𝐼)𝑦) = 𝑦 ↔ (𝑥(.r𝑅)𝑦) = 𝑦))
1815oveqd 6898 . . . . . . . . . . . . . . . . . . 19 (𝑈𝐿 → (𝑦(.r𝐼)𝑥) = (𝑦(.r𝑅)𝑥))
1918eqeq1d 2819 . . . . . . . . . . . . . . . . . 18 (𝑈𝐿 → ((𝑦(.r𝐼)𝑥) = 𝑦 ↔ (𝑦(.r𝑅)𝑥) = 𝑦))
2017, 19anbi12d 618 . . . . . . . . . . . . . . . . 17 (𝑈𝐿 → (((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦) ↔ ((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦)))
2120ad2antlr 709 . . . . . . . . . . . . . . . 16 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → (((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦) ↔ ((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦)))
2221ad2antrr 708 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) ∧ 𝑥 ∈ (Base‘𝐼)) → (((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦) ↔ ((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦)))
2322ralbidv 3185 . . . . . . . . . . . . . 14 (((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) ∧ 𝑥 ∈ (Base‘𝐼)) → (∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦) ↔ ∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦)))
24 simp-4l 792 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) ∧ 𝑥 ∈ (Base‘𝐼)) → 𝑅 ∈ Domn)
256, 7lidlbas 42496 . . . . . . . . . . . . . . . . . . . 20 (𝑈𝐿 → (Base‘𝐼) = 𝑈)
2625eleq1d 2881 . . . . . . . . . . . . . . . . . . 19 (𝑈𝐿 → ((Base‘𝐼) ∈ 𝐿𝑈𝐿))
2726ibir 259 . . . . . . . . . . . . . . . . . 18 (𝑈𝐿 → (Base‘𝐼) ∈ 𝐿)
2827ad3antlr 713 . . . . . . . . . . . . . . . . 17 ((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) → (Base‘𝐼) ∈ 𝐿)
2925ad2antlr 709 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → (Base‘𝐼) = 𝑈)
3029eqeq1d 2819 . . . . . . . . . . . . . . . . . . . 20 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → ((Base‘𝐼) = { 0 } ↔ 𝑈 = { 0 }))
3130biimpd 220 . . . . . . . . . . . . . . . . . . 19 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → ((Base‘𝐼) = { 0 } → 𝑈 = { 0 }))
3231necon3bd 3003 . . . . . . . . . . . . . . . . . 18 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → (¬ 𝑈 = { 0 } → (Base‘𝐼) ≠ { 0 }))
3332imp 395 . . . . . . . . . . . . . . . . 17 ((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) → (Base‘𝐼) ≠ { 0 })
3428, 33jca 503 . . . . . . . . . . . . . . . 16 ((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) → ((Base‘𝐼) ∈ 𝐿 ∧ (Base‘𝐼) ≠ { 0 }))
3534adantr 468 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) ∧ 𝑥 ∈ (Base‘𝐼)) → ((Base‘𝐼) ∈ 𝐿 ∧ (Base‘𝐼) ≠ { 0 }))
36 simpr 473 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) ∧ 𝑥 ∈ (Base‘𝐼)) → 𝑥 ∈ (Base‘𝐼))
37 eqid 2817 . . . . . . . . . . . . . . . 16 (1r𝑅) = (1r𝑅)
38 zlidlring.0 . . . . . . . . . . . . . . . 16 0 = (0g𝑅)
396, 13, 37, 38lidldomn1 42494 . . . . . . . . . . . . . . 15 ((𝑅 ∈ Domn ∧ ((Base‘𝐼) ∈ 𝐿 ∧ (Base‘𝐼) ≠ { 0 }) ∧ 𝑥 ∈ (Base‘𝐼)) → (∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦) → 𝑥 = (1r𝑅)))
4024, 35, 36, 39syl3anc 1483 . . . . . . . . . . . . . 14 (((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) ∧ 𝑥 ∈ (Base‘𝐼)) → (∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦) → 𝑥 = (1r𝑅)))
4123, 40sylbid 231 . . . . . . . . . . . . 13 (((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) ∧ 𝑥 ∈ (Base‘𝐼)) → (∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦) → 𝑥 = (1r𝑅)))
4241imp 395 . . . . . . . . . . . 12 ((((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) ∧ 𝑥 ∈ (Base‘𝐼)) ∧ ∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)) → 𝑥 = (1r𝑅))
4325ad3antlr 713 . . . . . . . . . . . . . . . 16 ((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) → (Base‘𝐼) = 𝑈)
4443eleq2d 2882 . . . . . . . . . . . . . . 15 ((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) → (𝑥 ∈ (Base‘𝐼) ↔ 𝑥𝑈))
4544biimpd 220 . . . . . . . . . . . . . 14 ((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) → (𝑥 ∈ (Base‘𝐼) → 𝑥𝑈))
4645imp 395 . . . . . . . . . . . . 13 (((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) ∧ 𝑥 ∈ (Base‘𝐼)) → 𝑥𝑈)
4746adantr 468 . . . . . . . . . . . 12 ((((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) ∧ 𝑥 ∈ (Base‘𝐼)) ∧ ∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)) → 𝑥𝑈)
4842, 47eqeltrrd 2897 . . . . . . . . . . 11 ((((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) ∧ 𝑥 ∈ (Base‘𝐼)) ∧ ∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)) → (1r𝑅) ∈ 𝑈)
4948ex 399 . . . . . . . . . 10 (((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) ∧ 𝑥 ∈ (Base‘𝐼)) → (∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦) → (1r𝑅) ∈ 𝑈))
5049rexlimdva 3230 . . . . . . . . 9 ((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ¬ 𝑈 = { 0 }) → (∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦) → (1r𝑅) ∈ 𝑈))
5150impancom 441 . . . . . . . 8 ((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)) → (¬ 𝑈 = { 0 } → (1r𝑅) ∈ 𝑈))
525adantr 468 . . . . . . . . . 10 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → (𝑅 ∈ Ring ∧ 𝑈𝐿))
53 zlidlring.b . . . . . . . . . . 11 𝐵 = (Base‘𝑅)
546, 53, 37lidl1el 19434 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑈𝐿) → ((1r𝑅) ∈ 𝑈𝑈 = 𝐵))
5552, 54syl 17 . . . . . . . . 9 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → ((1r𝑅) ∈ 𝑈𝑈 = 𝐵))
5655adantr 468 . . . . . . . 8 ((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)) → ((1r𝑅) ∈ 𝑈𝑈 = 𝐵))
5751, 56sylibd 230 . . . . . . 7 ((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)) → (¬ 𝑈 = { 0 } → 𝑈 = 𝐵))
5857orrd 881 . . . . . 6 ((((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)) → (𝑈 = { 0 } ∨ 𝑈 = 𝐵))
5958ex 399 . . . . 5 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → (∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦) → (𝑈 = { 0 } ∨ 𝑈 = 𝐵)))
606, 7, 53, 38zlidlring 42501 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑈 = { 0 }) → 𝐼 ∈ Ring)
613simprbi 486 . . . . . . . . . 10 (𝐼 ∈ Ring → ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦))
6260, 61syl 17 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝑈 = { 0 }) → ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦))
6362ex 399 . . . . . . . 8 (𝑅 ∈ Ring → (𝑈 = { 0 } → ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)))
644, 63syl 17 . . . . . . 7 (𝑅 ∈ Domn → (𝑈 = { 0 } → ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)))
6564ad2antrr 708 . . . . . 6 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → (𝑈 = { 0 } → ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)))
665anim1i 604 . . . . . . 7 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → ((𝑅 ∈ Ring ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng))
6753, 13ringideu 18774 . . . . . . . . . . . 12 (𝑅 ∈ Ring → ∃!𝑥𝐵𝑦𝐵 ((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦))
68 reurex 3360 . . . . . . . . . . . 12 (∃!𝑥𝐵𝑦𝐵 ((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦) → ∃𝑥𝐵𝑦𝐵 ((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦))
6967, 68syl 17 . . . . . . . . . . 11 (𝑅 ∈ Ring → ∃𝑥𝐵𝑦𝐵 ((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦))
7069adantr 468 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑈𝐿) → ∃𝑥𝐵𝑦𝐵 ((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦))
7170ad2antrr 708 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ 𝑈 = 𝐵) → ∃𝑥𝐵𝑦𝐵 ((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦))
727, 53ressbas 16148 . . . . . . . . . . . 12 (𝑈𝐿 → (𝑈𝐵) = (Base‘𝐼))
7372ad3antlr 713 . . . . . . . . . . 11 ((((𝑅 ∈ Ring ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ 𝑈 = 𝐵) → (𝑈𝐵) = (Base‘𝐼))
74 ineq1 4017 . . . . . . . . . . . . 13 (𝑈 = 𝐵 → (𝑈𝐵) = (𝐵𝐵))
75 inidm 4030 . . . . . . . . . . . . 13 (𝐵𝐵) = 𝐵
7674, 75syl6eq 2867 . . . . . . . . . . . 12 (𝑈 = 𝐵 → (𝑈𝐵) = 𝐵)
7776adantl 469 . . . . . . . . . . 11 ((((𝑅 ∈ Ring ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ 𝑈 = 𝐵) → (𝑈𝐵) = 𝐵)
7873, 77eqtr3d 2853 . . . . . . . . . 10 ((((𝑅 ∈ Ring ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ 𝑈 = 𝐵) → (Base‘𝐼) = 𝐵)
7920ad3antlr 713 . . . . . . . . . . 11 ((((𝑅 ∈ Ring ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ 𝑈 = 𝐵) → (((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦) ↔ ((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦)))
8078, 79raleqbidv 3352 . . . . . . . . . 10 ((((𝑅 ∈ Ring ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ 𝑈 = 𝐵) → (∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦) ↔ ∀𝑦𝐵 ((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦)))
8178, 80rexeqbidv 3353 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ 𝑈 = 𝐵) → (∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦) ↔ ∃𝑥𝐵𝑦𝐵 ((𝑥(.r𝑅)𝑦) = 𝑦 ∧ (𝑦(.r𝑅)𝑥) = 𝑦)))
8271, 81mpbird 248 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) ∧ 𝑈 = 𝐵) → ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦))
8382ex 399 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → (𝑈 = 𝐵 → ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)))
8466, 83syl 17 . . . . . 6 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → (𝑈 = 𝐵 → ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)))
8565, 84jaod 877 . . . . 5 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → ((𝑈 = { 0 } ∨ 𝑈 = 𝐵) → ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)))
8659, 85impbid 203 . . . 4 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → (∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦) ↔ (𝑈 = { 0 } ∨ 𝑈 = 𝐵)))
8712, 86bitrd 270 . . 3 (((𝑅 ∈ Domn ∧ 𝑈𝐿) ∧ 𝐼 ∈ Rng) → ((𝐼 ∈ Rng ∧ ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)) ↔ (𝑈 = { 0 } ∨ 𝑈 = 𝐵)))
889, 87mpdan 670 . 2 ((𝑅 ∈ Domn ∧ 𝑈𝐿) → ((𝐼 ∈ Rng ∧ ∃𝑥 ∈ (Base‘𝐼)∀𝑦 ∈ (Base‘𝐼)((𝑥(.r𝐼)𝑦) = 𝑦 ∧ (𝑦(.r𝐼)𝑥) = 𝑦)) ↔ (𝑈 = { 0 } ∨ 𝑈 = 𝐵)))
893, 88syl5bb 274 1 ((𝑅 ∈ Domn ∧ 𝑈𝐿) → (𝐼 ∈ Ring ↔ (𝑈 = { 0 } ∨ 𝑈 = 𝐵)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 197  wa 384  wo 865   = wceq 1637  wcel 2157  wne 2989  wral 3107  wrex 3108  ∃!wreu 3109  cin 3779  {csn 4381  cfv 6108  (class class class)co 6881  Basecbs 16075  s cress 16076  .rcmulr 16161  0gc0g 16312  1rcur 18710  Ringcrg 18756  LIdealclidl 19386  Domncdomn 19496  Rngcrng 42447
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1877  ax-4 1894  ax-5 2001  ax-6 2069  ax-7 2105  ax-8 2159  ax-9 2166  ax-10 2186  ax-11 2202  ax-12 2215  ax-13 2422  ax-ext 2795  ax-rep 4975  ax-sep 4986  ax-nul 4994  ax-pow 5046  ax-pr 5107  ax-un 7186  ax-cnex 10284  ax-resscn 10285  ax-1cn 10286  ax-icn 10287  ax-addcl 10288  ax-addrcl 10289  ax-mulcl 10290  ax-mulrcl 10291  ax-mulcom 10292  ax-addass 10293  ax-mulass 10294  ax-distr 10295  ax-i2m1 10296  ax-1ne0 10297  ax-1rid 10298  ax-rnegex 10299  ax-rrecex 10300  ax-cnre 10301  ax-pre-lttri 10302  ax-pre-lttrn 10303  ax-pre-ltadd 10304  ax-pre-mulgt0 10305
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 866  df-3or 1101  df-3an 1102  df-tru 1641  df-ex 1860  df-nf 1864  df-sb 2062  df-mo 2635  df-eu 2642  df-clab 2804  df-cleq 2810  df-clel 2813  df-nfc 2948  df-ne 2990  df-nel 3093  df-ral 3112  df-rex 3113  df-reu 3114  df-rmo 3115  df-rab 3116  df-v 3404  df-sbc 3645  df-csb 3740  df-dif 3783  df-un 3785  df-in 3787  df-ss 3794  df-pss 3796  df-nul 4128  df-if 4291  df-pw 4364  df-sn 4382  df-pr 4384  df-tp 4386  df-op 4388  df-uni 4642  df-iun 4725  df-br 4856  df-opab 4918  df-mpt 4935  df-tr 4958  df-id 5230  df-eprel 5235  df-po 5243  df-so 5244  df-fr 5281  df-we 5283  df-xp 5328  df-rel 5329  df-cnv 5330  df-co 5331  df-dm 5332  df-rn 5333  df-res 5334  df-ima 5335  df-pred 5904  df-ord 5950  df-on 5951  df-lim 5952  df-suc 5953  df-iota 6071  df-fun 6110  df-fn 6111  df-f 6112  df-f1 6113  df-fo 6114  df-f1o 6115  df-fv 6116  df-riota 6842  df-ov 6884  df-oprab 6885  df-mpt2 6886  df-om 7303  df-1st 7405  df-2nd 7406  df-wrecs 7649  df-recs 7711  df-rdg 7749  df-er 7986  df-en 8200  df-dom 8201  df-sdom 8202  df-pnf 10368  df-mnf 10369  df-xr 10370  df-ltxr 10371  df-le 10372  df-sub 10560  df-neg 10561  df-nn 11313  df-2 11371  df-3 11372  df-4 11373  df-5 11374  df-6 11375  df-7 11376  df-8 11377  df-ndx 16078  df-slot 16079  df-base 16081  df-sets 16082  df-ress 16083  df-plusg 16173  df-mulr 16174  df-sca 16176  df-vsca 16177  df-ip 16178  df-0g 16314  df-mgm 17454  df-sgrp 17496  df-mnd 17507  df-grp 17637  df-minusg 17638  df-sbg 17639  df-subg 17800  df-cmn 18403  df-abl 18404  df-mgp 18699  df-ur 18711  df-ring 18758  df-subrg 18989  df-lmod 19076  df-lss 19144  df-sra 19388  df-rgmod 19389  df-lidl 19390  df-nzr 19474  df-domn 19500  df-rng0 42448
This theorem is referenced by:  lidldomnnring  42503
  Copyright terms: Public domain W3C validator