Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  mxidlprm Structured version   Visualization version   GIF version

Theorem mxidlprm 33784
Description: Every maximal ideal is prime. Statement in [Lang] p. 92. (Contributed by Thierry Arnoux, 21-Jan-2024.)
Hypothesis
Ref Expression
mxidlprm.1 × = (LSSum‘(mulGrp‘𝑅))
Assertion
Ref Expression
mxidlprm ((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) → 𝑀 ∈ (PrmIdeal‘𝑅))

Proof of Theorem mxidlprm
Dummy variables 𝑎 𝑘 𝑢 𝑏 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 crngring 20358 . . 3 (𝑅 ∈ CRing → 𝑅 ∈ Ring)
21adantr 486 . 2 ((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) → 𝑅 ∈ Ring)
3 eqid 2766 . . . 4 (Base‘𝑅) = (Base‘𝑅)
43mxidlidl 33777 . . 3 ((𝑅 ∈ Ring ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) → 𝑀 ∈ (LIdeal‘𝑅))
51, 4sylan 592 . 2 ((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) → 𝑀 ∈ (LIdeal‘𝑅))
63mxidlnr 33778 . . 3 ((𝑅 ∈ Ring ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) → 𝑀 ≠ (Base‘𝑅))
71, 6sylan 592 . 2 ((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) → 𝑀 ≠ (Base‘𝑅))
8 simpllr 788 . . . . . . . . . . . . 13 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → (1r𝑅) = (𝑢(+g𝑅)𝑘))
9 simpr 490 . . . . . . . . . . . . . 14 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → 𝑘 = (𝑎(.r𝑅)𝑥))
109oveq2d 7439 . . . . . . . . . . . . 13 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → (𝑢(+g𝑅)𝑘) = (𝑢(+g𝑅)(𝑎(.r𝑅)𝑥)))
118, 10eqtrd 2801 . . . . . . . . . . . 12 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → (1r𝑅) = (𝑢(+g𝑅)(𝑎(.r𝑅)𝑥)))
1211oveq1d 7438 . . . . . . . . . . 11 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → ((1r𝑅)(.r𝑅)𝑦) = ((𝑢(+g𝑅)(𝑎(.r𝑅)𝑥))(.r𝑅)𝑦))
132ad4antr 745 . . . . . . . . . . . . 13 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑅 ∈ Ring)
1413ad5antr 747 . . . . . . . . . . . 12 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → 𝑅 ∈ Ring)
15 simp-8r 804 . . . . . . . . . . . 12 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → 𝑦 ∈ (Base‘𝑅))
16 eqid 2766 . . . . . . . . . . . . 13 (.r𝑅) = (.r𝑅)
17 eqid 2766 . . . . . . . . . . . . 13 (1r𝑅) = (1r𝑅)
183, 16, 17ringlidm 20384 . . . . . . . . . . . 12 ((𝑅 ∈ Ring ∧ 𝑦 ∈ (Base‘𝑅)) → ((1r𝑅)(.r𝑅)𝑦) = 𝑦)
1914, 15, 18syl2anc 596 . . . . . . . . . . 11 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → ((1r𝑅)(.r𝑅)𝑦) = 𝑦)
20 eqid 2766 . . . . . . . . . . . . . . . . 17 (LIdeal‘𝑅) = (LIdeal‘𝑅)
213, 20lidlss 21373 . . . . . . . . . . . . . . . 16 (𝑀 ∈ (LIdeal‘𝑅) → 𝑀 ⊆ (Base‘𝑅))
225, 21syl 18 . . . . . . . . . . . . . . 15 ((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) → 𝑀 ⊆ (Base‘𝑅))
2322ad4antr 745 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑀 ⊆ (Base‘𝑅))
2423ad5antr 747 . . . . . . . . . . . . 13 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → 𝑀 ⊆ (Base‘𝑅))
25 simp-5r 798 . . . . . . . . . . . . 13 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → 𝑢𝑀)
2624, 25sseldd 3941 . . . . . . . . . . . 12 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → 𝑢 ∈ (Base‘𝑅))
27 simplr 781 . . . . . . . . . . . . 13 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → 𝑎 ∈ (Base‘𝑅))
28 simp-4r 796 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑥 ∈ (Base‘𝑅))
2928ad5antr 747 . . . . . . . . . . . . 13 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → 𝑥 ∈ (Base‘𝑅))
303, 16ringcl 20363 . . . . . . . . . . . . 13 ((𝑅 ∈ Ring ∧ 𝑎 ∈ (Base‘𝑅) ∧ 𝑥 ∈ (Base‘𝑅)) → (𝑎(.r𝑅)𝑥) ∈ (Base‘𝑅))
3114, 27, 29, 30syl3anc 1398 . . . . . . . . . . . 12 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → (𝑎(.r𝑅)𝑥) ∈ (Base‘𝑅))
32 eqid 2766 . . . . . . . . . . . . 13 (+g𝑅) = (+g𝑅)
333, 32, 16ringdir 20376 . . . . . . . . . . . 12 ((𝑅 ∈ Ring ∧ (𝑢 ∈ (Base‘𝑅) ∧ (𝑎(.r𝑅)𝑥) ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → ((𝑢(+g𝑅)(𝑎(.r𝑅)𝑥))(.r𝑅)𝑦) = ((𝑢(.r𝑅)𝑦)(+g𝑅)((𝑎(.r𝑅)𝑥)(.r𝑅)𝑦)))
3414, 26, 31, 15, 33syl13anc 1399 . . . . . . . . . . 11 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → ((𝑢(+g𝑅)(𝑎(.r𝑅)𝑥))(.r𝑅)𝑦) = ((𝑢(.r𝑅)𝑦)(+g𝑅)((𝑎(.r𝑅)𝑥)(.r𝑅)𝑦)))
3512, 19, 343eqtr3d 2809 . . . . . . . . . 10 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → 𝑦 = ((𝑢(.r𝑅)𝑦)(+g𝑅)((𝑎(.r𝑅)𝑥)(.r𝑅)𝑦)))
36 simp-5r 798 . . . . . . . . . . . . 13 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑀 ∈ (MaxIdeal‘𝑅))
3713, 36, 4syl2anc 596 . . . . . . . . . . . 12 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑀 ∈ (LIdeal‘𝑅))
3837ad5antr 747 . . . . . . . . . . 11 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → 𝑀 ∈ (LIdeal‘𝑅))
39 simp-10l 807 . . . . . . . . . . . . 13 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → 𝑅 ∈ CRing)
403, 16crngcom 20364 . . . . . . . . . . . . 13 ((𝑅 ∈ CRing ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑢 ∈ (Base‘𝑅)) → (𝑦(.r𝑅)𝑢) = (𝑢(.r𝑅)𝑦))
4139, 15, 26, 40syl3anc 1398 . . . . . . . . . . . 12 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → (𝑦(.r𝑅)𝑢) = (𝑢(.r𝑅)𝑦))
4220, 3, 16lidlmcl 21387 . . . . . . . . . . . . 13 (((𝑅 ∈ Ring ∧ 𝑀 ∈ (LIdeal‘𝑅)) ∧ (𝑦 ∈ (Base‘𝑅) ∧ 𝑢𝑀)) → (𝑦(.r𝑅)𝑢) ∈ 𝑀)
4314, 38, 15, 25, 42syl22anc 852 . . . . . . . . . . . 12 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → (𝑦(.r𝑅)𝑢) ∈ 𝑀)
4441, 43eqeltrrd 2867 . . . . . . . . . . 11 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → (𝑢(.r𝑅)𝑦) ∈ 𝑀)
453, 16ringass 20366 . . . . . . . . . . . . 13 ((𝑅 ∈ Ring ∧ (𝑎 ∈ (Base‘𝑅) ∧ 𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → ((𝑎(.r𝑅)𝑥)(.r𝑅)𝑦) = (𝑎(.r𝑅)(𝑥(.r𝑅)𝑦)))
4614, 27, 29, 15, 45syl13anc 1399 . . . . . . . . . . . 12 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → ((𝑎(.r𝑅)𝑥)(.r𝑅)𝑦) = (𝑎(.r𝑅)(𝑥(.r𝑅)𝑦)))
47 simp-7r 802 . . . . . . . . . . . . 13 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → (𝑥(.r𝑅)𝑦) ∈ 𝑀)
4820, 3, 16lidlmcl 21387 . . . . . . . . . . . . 13 (((𝑅 ∈ Ring ∧ 𝑀 ∈ (LIdeal‘𝑅)) ∧ (𝑎 ∈ (Base‘𝑅) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀)) → (𝑎(.r𝑅)(𝑥(.r𝑅)𝑦)) ∈ 𝑀)
4914, 38, 27, 47, 48syl22anc 852 . . . . . . . . . . . 12 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → (𝑎(.r𝑅)(𝑥(.r𝑅)𝑦)) ∈ 𝑀)
5046, 49eqeltrd 2866 . . . . . . . . . . 11 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → ((𝑎(.r𝑅)𝑥)(.r𝑅)𝑦) ∈ 𝑀)
5120, 32lidlacl 21383 . . . . . . . . . . 11 (((𝑅 ∈ Ring ∧ 𝑀 ∈ (LIdeal‘𝑅)) ∧ ((𝑢(.r𝑅)𝑦) ∈ 𝑀 ∧ ((𝑎(.r𝑅)𝑥)(.r𝑅)𝑦) ∈ 𝑀)) → ((𝑢(.r𝑅)𝑦)(+g𝑅)((𝑎(.r𝑅)𝑥)(.r𝑅)𝑦)) ∈ 𝑀)
5214, 38, 44, 50, 51syl22anc 852 . . . . . . . . . 10 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → ((𝑢(.r𝑅)𝑦)(+g𝑅)((𝑎(.r𝑅)𝑥)(.r𝑅)𝑦)) ∈ 𝑀)
5335, 52eqeltrd 2866 . . . . . . . . 9 (((((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) ∧ 𝑎 ∈ (Base‘𝑅)) ∧ 𝑘 = (𝑎(.r𝑅)𝑥)) → 𝑦𝑀)
54 simplr 781 . . . . . . . . . 10 (((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) → 𝑘 ∈ ((Base‘𝑅) × {𝑥}))
55 eqid 2766 . . . . . . . . . . . . 13 (mulGrp‘𝑅) = (mulGrp‘𝑅)
5655, 3mgpbas 20252 . . . . . . . . . . . 12 (Base‘𝑅) = (Base‘(mulGrp‘𝑅))
5755, 16mgpplusg 20251 . . . . . . . . . . . 12 (.r𝑅) = (+g‘(mulGrp‘𝑅))
58 mxidlprm.1 . . . . . . . . . . . 12 × = (LSSum‘(mulGrp‘𝑅))
59 fvexd 6903 . . . . . . . . . . . 12 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (mulGrp‘𝑅) ∈ V)
60 ssidd 3963 . . . . . . . . . . . 12 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (Base‘𝑅) ⊆ (Base‘𝑅))
6156, 57, 58, 59, 60, 28elgrplsmsn 33734 . . . . . . . . . . 11 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (𝑘 ∈ ((Base‘𝑅) × {𝑥}) ↔ ∃𝑎 ∈ (Base‘𝑅)𝑘 = (𝑎(.r𝑅)𝑥)))
6261ad3antrrr 743 . . . . . . . . . 10 (((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) → (𝑘 ∈ ((Base‘𝑅) × {𝑥}) ↔ ∃𝑎 ∈ (Base‘𝑅)𝑘 = (𝑎(.r𝑅)𝑥)))
6354, 62mpbid 235 . . . . . . . . 9 (((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) → ∃𝑎 ∈ (Base‘𝑅)𝑘 = (𝑎(.r𝑅)𝑥))
6453, 63r19.29a 3176 . . . . . . . 8 (((((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑢𝑀) ∧ 𝑘 ∈ ((Base‘𝑅) × {𝑥})) ∧ (1r𝑅) = (𝑢(+g𝑅)𝑘)) → 𝑦𝑀)
653, 17ringidcl 20380 . . . . . . . . . . 11 (𝑅 ∈ Ring → (1r𝑅) ∈ (Base‘𝑅))
6613, 65syl 18 . . . . . . . . . 10 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (1r𝑅) ∈ (Base‘𝑅))
67 eqid 2766 . . . . . . . . . . . . 13 (LSSum‘𝑅) = (LSSum‘𝑅)
68 eqid 2766 . . . . . . . . . . . . 13 (RSpan‘𝑅) = (RSpan‘𝑅)
69 eqid 2766 . . . . . . . . . . . . . . . 16 (LPIdeal‘𝑅) = (LPIdeal‘𝑅)
7069, 20lpiss 21534 . . . . . . . . . . . . . . 15 (𝑅 ∈ Ring → (LPIdeal‘𝑅) ⊆ (LIdeal‘𝑅))
7113, 70syl 18 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (LPIdeal‘𝑅) ⊆ (LIdeal‘𝑅))
723, 55, 58, 68, 13, 28lsmsnidl 33741 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → ((Base‘𝑅) × {𝑥}) ∈ (LPIdeal‘𝑅))
7371, 72sseldd 3941 . . . . . . . . . . . . 13 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → ((Base‘𝑅) × {𝑥}) ∈ (LIdeal‘𝑅))
743, 67, 68, 13, 37, 73lsmidl 21421 . . . . . . . . . . . 12 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) ∈ (LIdeal‘𝑅))
75 rlmlmod 21361 . . . . . . . . . . . . . . . 16 (𝑅 ∈ Ring → (ringLMod‘𝑅) ∈ LMod)
7613, 75syl 18 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (ringLMod‘𝑅) ∈ LMod)
77 rlmbas 21351 . . . . . . . . . . . . . . . 16 (Base‘𝑅) = (Base‘(ringLMod‘𝑅))
78 rspval 21372 . . . . . . . . . . . . . . . 16 (RSpan‘𝑅) = (LSpan‘(ringLMod‘𝑅))
7977, 78lspssid 21143 . . . . . . . . . . . . . . 15 (((ringLMod‘𝑅) ∈ LMod ∧ 𝑀 ⊆ (Base‘𝑅)) → 𝑀 ⊆ ((RSpan‘𝑅)‘𝑀))
8076, 23, 79syl2anc 596 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑀 ⊆ ((RSpan‘𝑅)‘𝑀))
8128snssd 4757 . . . . . . . . . . . . . . . . 17 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → {𝑥} ⊆ (Base‘𝑅))
823, 55, 58, 13, 60, 81ringlsmss 33737 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → ((Base‘𝑅) × {𝑥}) ⊆ (Base‘𝑅))
8323, 82unssd 4148 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (𝑀 ∪ ((Base‘𝑅) × {𝑥})) ⊆ (Base‘𝑅))
84 ssun1 4134 . . . . . . . . . . . . . . . 16 𝑀 ⊆ (𝑀 ∪ ((Base‘𝑅) × {𝑥}))
8584a1i 11 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑀 ⊆ (𝑀 ∪ ((Base‘𝑅) × {𝑥})))
8677, 78lspss 21142 . . . . . . . . . . . . . . 15 (((ringLMod‘𝑅) ∈ LMod ∧ (𝑀 ∪ ((Base‘𝑅) × {𝑥})) ⊆ (Base‘𝑅) ∧ 𝑀 ⊆ (𝑀 ∪ ((Base‘𝑅) × {𝑥}))) → ((RSpan‘𝑅)‘𝑀) ⊆ ((RSpan‘𝑅)‘(𝑀 ∪ ((Base‘𝑅) × {𝑥}))))
8776, 83, 85, 86syl3anc 1398 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → ((RSpan‘𝑅)‘𝑀) ⊆ ((RSpan‘𝑅)‘(𝑀 ∪ ((Base‘𝑅) × {𝑥}))))
8880, 87sstrd 3950 . . . . . . . . . . . . 13 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑀 ⊆ ((RSpan‘𝑅)‘(𝑀 ∪ ((Base‘𝑅) × {𝑥}))))
893, 67, 68, 13, 37, 73lsmidllsp 21420 . . . . . . . . . . . . 13 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) = ((RSpan‘𝑅)‘(𝑀 ∪ ((Base‘𝑅) × {𝑥}))))
9088, 89sseqtrrd 3977 . . . . . . . . . . . 12 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑀 ⊆ (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})))
913mxidlmax 33779 . . . . . . . . . . . 12 (((𝑅 ∈ Ring ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ ((𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) ∈ (LIdeal‘𝑅) ∧ 𝑀 ⊆ (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})))) → ((𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) = 𝑀 ∨ (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) = (Base‘𝑅)))
9213, 36, 74, 90, 91syl22anc 852 . . . . . . . . . . 11 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → ((𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) = 𝑀 ∨ (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) = (Base‘𝑅)))
93 eqid 2766 . . . . . . . . . . . . . . . . 17 (0g𝑅) = (0g𝑅)
9420, 93lidl0cl 21382 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ Ring ∧ 𝑀 ∈ (LIdeal‘𝑅)) → (0g𝑅) ∈ 𝑀)
9513, 37, 94syl2anc 596 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (0g𝑅) ∈ 𝑀)
96 oveq1 7430 . . . . . . . . . . . . . . . . . 18 (𝑎 = (0g𝑅) → (𝑎(+g𝑅)𝑏) = ((0g𝑅)(+g𝑅)𝑏))
9796eqeq2d 2777 . . . . . . . . . . . . . . . . 17 (𝑎 = (0g𝑅) → (𝑥 = (𝑎(+g𝑅)𝑏) ↔ 𝑥 = ((0g𝑅)(+g𝑅)𝑏)))
9897rexbidv 3192 . . . . . . . . . . . . . . . 16 (𝑎 = (0g𝑅) → (∃𝑏 ∈ ((Base‘𝑅) × {𝑥})𝑥 = (𝑎(+g𝑅)𝑏) ↔ ∃𝑏 ∈ ((Base‘𝑅) × {𝑥})𝑥 = ((0g𝑅)(+g𝑅)𝑏)))
9998adantl 487 . . . . . . . . . . . . . . 15 (((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑎 = (0g𝑅)) → (∃𝑏 ∈ ((Base‘𝑅) × {𝑥})𝑥 = (𝑎(+g𝑅)𝑏) ↔ ∃𝑏 ∈ ((Base‘𝑅) × {𝑥})𝑥 = ((0g𝑅)(+g𝑅)𝑏)))
100 oveq1 7430 . . . . . . . . . . . . . . . . . . . 20 (𝑎 = (1r𝑅) → (𝑎(.r𝑅)𝑥) = ((1r𝑅)(.r𝑅)𝑥))
101100eqeq2d 2777 . . . . . . . . . . . . . . . . . . 19 (𝑎 = (1r𝑅) → (𝑥 = (𝑎(.r𝑅)𝑥) ↔ 𝑥 = ((1r𝑅)(.r𝑅)𝑥)))
102101adantl 487 . . . . . . . . . . . . . . . . . 18 (((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑎 = (1r𝑅)) → (𝑥 = (𝑎(.r𝑅)𝑥) ↔ 𝑥 = ((1r𝑅)(.r𝑅)𝑥)))
1033, 16, 17ringlidm 20384 . . . . . . . . . . . . . . . . . . . 20 ((𝑅 ∈ Ring ∧ 𝑥 ∈ (Base‘𝑅)) → ((1r𝑅)(.r𝑅)𝑥) = 𝑥)
10413, 28, 103syl2anc 596 . . . . . . . . . . . . . . . . . . 19 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → ((1r𝑅)(.r𝑅)𝑥) = 𝑥)
105104eqcomd 2772 . . . . . . . . . . . . . . . . . 18 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑥 = ((1r𝑅)(.r𝑅)𝑥))
10666, 102, 105rspcedvd 3586 . . . . . . . . . . . . . . . . 17 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → ∃𝑎 ∈ (Base‘𝑅)𝑥 = (𝑎(.r𝑅)𝑥))
10756, 57, 58, 59, 60, 28elgrplsmsn 33734 . . . . . . . . . . . . . . . . 17 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (𝑥 ∈ ((Base‘𝑅) × {𝑥}) ↔ ∃𝑎 ∈ (Base‘𝑅)𝑥 = (𝑎(.r𝑅)𝑥)))
108106, 107mpbird 260 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑥 ∈ ((Base‘𝑅) × {𝑥}))
109 oveq2 7431 . . . . . . . . . . . . . . . . . 18 (𝑏 = 𝑥 → ((0g𝑅)(+g𝑅)𝑏) = ((0g𝑅)(+g𝑅)𝑥))
110109eqeq2d 2777 . . . . . . . . . . . . . . . . 17 (𝑏 = 𝑥 → (𝑥 = ((0g𝑅)(+g𝑅)𝑏) ↔ 𝑥 = ((0g𝑅)(+g𝑅)𝑥)))
111110adantl 487 . . . . . . . . . . . . . . . 16 (((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) ∧ 𝑏 = 𝑥) → (𝑥 = ((0g𝑅)(+g𝑅)𝑏) ↔ 𝑥 = ((0g𝑅)(+g𝑅)𝑥)))
112 ringgrp 20351 . . . . . . . . . . . . . . . . . . 19 (𝑅 ∈ Ring → 𝑅 ∈ Grp)
11313, 112syl 18 . . . . . . . . . . . . . . . . . 18 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑅 ∈ Grp)
1143, 32, 93grplid 19065 . . . . . . . . . . . . . . . . . 18 ((𝑅 ∈ Grp ∧ 𝑥 ∈ (Base‘𝑅)) → ((0g𝑅)(+g𝑅)𝑥) = 𝑥)
115113, 28, 114syl2anc 596 . . . . . . . . . . . . . . . . 17 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → ((0g𝑅)(+g𝑅)𝑥) = 𝑥)
116115eqcomd 2772 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑥 = ((0g𝑅)(+g𝑅)𝑥))
117108, 111, 116rspcedvd 3586 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → ∃𝑏 ∈ ((Base‘𝑅) × {𝑥})𝑥 = ((0g𝑅)(+g𝑅)𝑏))
11895, 99, 117rspcedvd 3586 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → ∃𝑎𝑀𝑏 ∈ ((Base‘𝑅) × {𝑥})𝑥 = (𝑎(+g𝑅)𝑏))
119 simp-5l 797 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑅 ∈ CRing)
1203, 32, 67lsmelvalx 19741 . . . . . . . . . . . . . . 15 ((𝑅 ∈ CRing ∧ 𝑀 ⊆ (Base‘𝑅) ∧ ((Base‘𝑅) × {𝑥}) ⊆ (Base‘𝑅)) → (𝑥 ∈ (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) ↔ ∃𝑎𝑀𝑏 ∈ ((Base‘𝑅) × {𝑥})𝑥 = (𝑎(+g𝑅)𝑏)))
121119, 23, 82, 120syl3anc 1398 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (𝑥 ∈ (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) ↔ ∃𝑎𝑀𝑏 ∈ ((Base‘𝑅) × {𝑥})𝑥 = (𝑎(+g𝑅)𝑏)))
122118, 121mpbird 260 . . . . . . . . . . . . 13 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑥 ∈ (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})))
123 simpr 490 . . . . . . . . . . . . 13 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → ¬ 𝑥𝑀)
124 nelne1 3058 . . . . . . . . . . . . 13 ((𝑥 ∈ (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) ∧ ¬ 𝑥𝑀) → (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) ≠ 𝑀)
125122, 123, 124syl2anc 596 . . . . . . . . . . . 12 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) ≠ 𝑀)
126125neneqd 2966 . . . . . . . . . . 11 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → ¬ (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) = 𝑀)
12792, 126orcnd 892 . . . . . . . . . 10 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) = (Base‘𝑅))
12866, 127eleqtrrd 2869 . . . . . . . . 9 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → (1r𝑅) ∈ (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})))
1293, 32, 67lsmelvalx 19741 . . . . . . . . . 10 ((𝑅 ∈ CRing ∧ 𝑀 ⊆ (Base‘𝑅) ∧ ((Base‘𝑅) × {𝑥}) ⊆ (Base‘𝑅)) → ((1r𝑅) ∈ (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) ↔ ∃𝑢𝑀𝑘 ∈ ((Base‘𝑅) × {𝑥})(1r𝑅) = (𝑢(+g𝑅)𝑘)))
130119, 23, 82, 129syl3anc 1398 . . . . . . . . 9 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → ((1r𝑅) ∈ (𝑀(LSSum‘𝑅)((Base‘𝑅) × {𝑥})) ↔ ∃𝑢𝑀𝑘 ∈ ((Base‘𝑅) × {𝑥})(1r𝑅) = (𝑢(+g𝑅)𝑘)))
131128, 130mpbid 235 . . . . . . . 8 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → ∃𝑢𝑀𝑘 ∈ ((Base‘𝑅) × {𝑥})(1r𝑅) = (𝑢(+g𝑅)𝑘))
13264, 131r19.29vva 3228 . . . . . . 7 ((((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) ∧ ¬ 𝑥𝑀) → 𝑦𝑀)
133132ex 418 . . . . . 6 (((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) → (¬ 𝑥𝑀𝑦𝑀))
134133orrd 877 . . . . 5 (((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑥(.r𝑅)𝑦) ∈ 𝑀) → (𝑥𝑀𝑦𝑀))
135134ex 418 . . . 4 ((((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) → ((𝑥(.r𝑅)𝑦) ∈ 𝑀 → (𝑥𝑀𝑦𝑀)))
136135anasss 472 . . 3 (((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → ((𝑥(.r𝑅)𝑦) ∈ 𝑀 → (𝑥𝑀𝑦𝑀)))
137136ralrimivva 3211 . 2 ((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) → ∀𝑥 ∈ (Base‘𝑅)∀𝑦 ∈ (Base‘𝑅)((𝑥(.r𝑅)𝑦) ∈ 𝑀 → (𝑥𝑀𝑦𝑀)))
1383, 16prmidl2 21503 . 2 (((𝑅 ∈ Ring ∧ 𝑀 ∈ (LIdeal‘𝑅)) ∧ (𝑀 ≠ (Base‘𝑅) ∧ ∀𝑥 ∈ (Base‘𝑅)∀𝑦 ∈ (Base‘𝑅)((𝑥(.r𝑅)𝑦) ∈ 𝑀 → (𝑥𝑀𝑦𝑀)))) → 𝑀 ∈ (PrmIdeal‘𝑅))
1392, 5, 7, 137, 138syl22anc 852 1 ((𝑅 ∈ CRing ∧ 𝑀 ∈ (MaxIdeal‘𝑅)) → 𝑀 ∈ (PrmIdeal‘𝑅))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401  wo 861   = wceq 1570  wcel 2146  wne 2961  wral 3082  wrex 3092  Vcvv 3458  cun 3906  wss 3908  {csn 4594  cfv 6543  (class class class)co 7423  Basecbs 17294  +gcplusg 17335  .rcmulr 17336  0gc0g 17517  Grpcgrp 19031  LSSumclsm 19735  mulGrpcmgp 20247  1rcur 20294  Ringcrg 20346  CRingccrg 20347  LModclmod 21018  ringLModcrglmod 21330  LIdealclidl 21367  RSpancrsp 21368  PrmIdealcprmidl 21497  LPIdealclpidl 21525  MaxIdealcmxidl 33773
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745  ax-cnex 11174  ax-resscn 11175  ax-1cn 11176  ax-icn 11177  ax-addcl 11178  ax-addrcl 11179  ax-mulcl 11180  ax-mulrcl 11181  ax-mulcom 11182  ax-addass 11183  ax-mulass 11184  ax-distr 11185  ax-i2m1 11186  ax-1ne0 11187  ax-1rid 11188  ax-rnegex 11189  ax-rrecex 11190  ax-cnre 11191  ax-pre-lttri 11192  ax-pre-lttrn 11193  ax-pre-ltadd 11194  ax-pre-mulgt0 11195
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-nel 3068  df-ral 3083  df-rex 3093  df-rmo 3372  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-pss 3928  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-int 4918  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-tr 5224  df-id 5561  df-eprel 5566  df-po 5574  df-so 5575  df-fr 5619  df-we 5621  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6309  df-ord 6370  df-on 6371  df-lim 6372  df-suc 6373  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7380  df-ov 7426  df-oprab 7427  df-mpo 7428  df-om 7872  df-1st 7995  df-2nd 7996  df-frecs 8287  df-wrecs 8318  df-recs 8367  df-rdg 8406  df-er 8703  df-en 8953  df-dom 8954  df-sdom 8955  df-pnf 11263  df-mnf 11264  df-xr 11265  df-ltxr 11266  df-le 11267  df-sub 11461  df-neg 11462  df-nn 12252  df-2 12321  df-3 12322  df-4 12323  df-5 12324  df-6 12325  df-7 12326  df-8 12327  df-sets 17249  df-slot 17267  df-ndx 17279  df-base 17295  df-ress 17316  df-plusg 17348  df-mulr 17349  df-sca 17351  df-vsca 17352  df-ip 17353  df-0g 17519  df-mgm 18723  df-sgrp 18806  df-mnd 18822  df-submnd 18873  df-grp 19034  df-minusg 19035  df-sbg 19036  df-subg 19220  df-cntz 19418  df-lsm 19737  df-cmn 19883  df-abl 19884  df-mgp 20248  df-rng 20262  df-ur 20295  df-ring 20348  df-cring 20349  df-subrg 20706  df-lmod 21020  df-lss 21090  df-lsp 21130  df-sra 21331  df-rgmod 21332  df-lidl 21369  df-rsp 21370  df-prmidl 21498  df-lpidl 21527  df-mxidl 33774
This theorem is used by:  rprmirredb  33853  1arithufdlem1  33865  zarcls1  34290  zarclssn  34294  zarmxt1  34301
  Copyright terms: Public domain W3C validator