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

Theorem 1arithufdlem4 33815
Description: Lemma for 1arithufd 33816. Nonzero ring, non-field case. Those trivial cases are handled in the final proof. (Contributed by Thierry Arnoux, 3-Jun-2025.)
Hypotheses
Ref Expression
1arithufd.b 𝐵 = (Base‘𝑅)
1arithufd.0 0 = (0g𝑅)
1arithufd.u 𝑈 = (Unit‘𝑅)
1arithufd.p 𝑃 = (RPrime‘𝑅)
1arithufd.m 𝑀 = (mulGrp‘𝑅)
1arithufd.r (𝜑𝑅 ∈ UFD)
1arithufdlem.2 (𝜑 → ¬ 𝑅 ∈ DivRing)
1arithufdlem.s 𝑆 = {𝑥𝐵 ∣ ∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓)}
1arithufdlem.3 (𝜑𝑋𝐵)
1arithufdlem.4 (𝜑 → ¬ 𝑋𝑈)
1arithufdlem.5 (𝜑𝑋0 )
Assertion
Ref Expression
1arithufdlem4 (𝜑𝑋𝑆)
Distinct variable groups:   0 ,𝑓   𝑥,𝐵   𝑓,𝑀,𝑥   𝑃,𝑓,𝑥   𝑅,𝑓   𝜑,𝑓,𝑥   𝑥,𝑋   𝑥,𝑈   𝑥,𝑅   𝑥,𝑆   𝑥, 0   𝑈,𝑓   𝐵,𝑓   𝑓,𝑋   𝑆,𝑓

Proof of Theorem 1arithufdlem4
Dummy variables 𝑝 𝑖 𝑗 𝑢 𝑎 𝑏 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqeq1 2767 . . . . . . . . 9 (𝑥 = 𝑎 → (𝑥 = (𝑀 Σg 𝑓) ↔ 𝑎 = (𝑀 Σg 𝑓)))
21rexbidv 3189 . . . . . . . 8 (𝑥 = 𝑎 → (∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓) ↔ ∃𝑓 ∈ Word 𝑃𝑎 = (𝑀 Σg 𝑓)))
3 eqcom 2770 . . . . . . . . 9 (𝑎 = (𝑀 Σg 𝑓) ↔ (𝑀 Σg 𝑓) = 𝑎)
43rexbii 3112 . . . . . . . 8 (∃𝑓 ∈ Word 𝑃𝑎 = (𝑀 Σg 𝑓) ↔ ∃𝑓 ∈ Word 𝑃(𝑀 Σg 𝑓) = 𝑎)
52, 4bitrdi 290 . . . . . . 7 (𝑥 = 𝑎 → (∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓) ↔ ∃𝑓 ∈ Word 𝑃(𝑀 Σg 𝑓) = 𝑎))
6 1arithufd.b . . . . . . . 8 𝐵 = (Base‘𝑅)
7 1arithufd.p . . . . . . . 8 𝑃 = (RPrime‘𝑅)
8 1arithufd.r . . . . . . . . 9 (𝜑𝑅 ∈ UFD)
98adantr 485 . . . . . . . 8 ((𝜑𝑎𝑃) → 𝑅 ∈ UFD)
10 simpr 489 . . . . . . . 8 ((𝜑𝑎𝑃) → 𝑎𝑃)
116, 7, 9, 10rprmcl 33786 . . . . . . 7 ((𝜑𝑎𝑃) → 𝑎𝐵)
12 oveq2 7420 . . . . . . . . 9 (𝑓 = ⟨“𝑎”⟩ → (𝑀 Σg 𝑓) = (𝑀 Σg ⟨“𝑎”⟩))
1312eqeq1d 2765 . . . . . . . 8 (𝑓 = ⟨“𝑎”⟩ → ((𝑀 Σg 𝑓) = 𝑎 ↔ (𝑀 Σg ⟨“𝑎”⟩) = 𝑎))
1410s1cld 14643 . . . . . . . 8 ((𝜑𝑎𝑃) → ⟨“𝑎”⟩ ∈ Word 𝑃)
15 1arithufd.m . . . . . . . . . . 11 𝑀 = (mulGrp‘𝑅)
1615, 6mgpbas 20222 . . . . . . . . . 10 𝐵 = (Base‘𝑀)
1716gsumws1 18898 . . . . . . . . 9 (𝑎𝐵 → (𝑀 Σg ⟨“𝑎”⟩) = 𝑎)
1811, 17syl 18 . . . . . . . 8 ((𝜑𝑎𝑃) → (𝑀 Σg ⟨“𝑎”⟩) = 𝑎)
1913, 14, 18rspcedvdw 3585 . . . . . . 7 ((𝜑𝑎𝑃) → ∃𝑓 ∈ Word 𝑃(𝑀 Σg 𝑓) = 𝑎)
205, 11, 19elrabd 3653 . . . . . 6 ((𝜑𝑎𝑃) → 𝑎 ∈ {𝑥𝐵 ∣ ∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓)})
21 1arithufdlem.s . . . . . 6 𝑆 = {𝑥𝐵 ∣ ∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓)}
2220, 21eleqtrrdi 2874 . . . . 5 ((𝜑𝑎𝑃) → 𝑎𝑆)
2322ex 417 . . . 4 (𝜑 → (𝑎𝑃𝑎𝑆))
2423ssrdv 3944 . . 3 (𝜑𝑃𝑆)
2524adantr 485 . 2 ((𝜑 ∧ ¬ 𝑋𝑆) → 𝑃𝑆)
26 anass 473 . . . . . . 7 ((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ↔ ((𝜑 ∧ ¬ 𝑋𝑆) ∧ (𝑖 ∈ (LIdeal‘𝑅) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖))))
27 ineq2 4168 . . . . . . . . . . 11 (𝑝 = 𝑖 → (𝑆𝑝) = (𝑆𝑖))
2827eqeq1d 2765 . . . . . . . . . 10 (𝑝 = 𝑖 → ((𝑆𝑝) = ∅ ↔ (𝑆𝑖) = ∅))
29 sseq2 3964 . . . . . . . . . 10 (𝑝 = 𝑖 → (((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝 ↔ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖))
3028, 29anbi12d 643 . . . . . . . . 9 (𝑝 = 𝑖 → (((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝) ↔ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)))
3130elrab 3651 . . . . . . . 8 (𝑖 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ↔ (𝑖 ∈ (LIdeal‘𝑅) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)))
3231anbi2i 634 . . . . . . 7 (((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)}) ↔ ((𝜑 ∧ ¬ 𝑋𝑆) ∧ (𝑖 ∈ (LIdeal‘𝑅) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖))))
3326, 32bitr4i 281 . . . . . 6 ((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ↔ ((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)}))
3433anbi1i 635 . . . . 5 (((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ↔ (((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)}) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)))
35 incom 4163 . . . . . . 7 (𝑖𝑆) = (𝑆𝑖)
36 simpllr 787 . . . . . . . 8 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖))
3736simpld 499 . . . . . . 7 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → (𝑆𝑖) = ∅)
3835, 37eqtrid 2810 . . . . . 6 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → (𝑖𝑆) = ∅)
398ad5antr 746 . . . . . . 7 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → 𝑅 ∈ UFD)
40 simplr 780 . . . . . . . 8 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → 𝑖 ∈ (PrmIdeal‘𝑅))
4136simprd 500 . . . . . . . . . 10 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)
428ufdidom 33810 . . . . . . . . . . . . 13 (𝜑𝑅 ∈ IDomn)
4342idomringd 20813 . . . . . . . . . . . 12 (𝜑𝑅 ∈ Ring)
44 1arithufdlem.3 . . . . . . . . . . . 12 (𝜑𝑋𝐵)
45 eqid 2763 . . . . . . . . . . . . 13 (RSpan‘𝑅) = (RSpan‘𝑅)
466, 45rspsnid 21354 . . . . . . . . . . . 12 ((𝑅 ∈ Ring ∧ 𝑋𝐵) → 𝑋 ∈ ((RSpan‘𝑅)‘{𝑋}))
4743, 44, 46syl2anc 595 . . . . . . . . . . 11 (𝜑𝑋 ∈ ((RSpan‘𝑅)‘{𝑋}))
4847ad5antr 746 . . . . . . . . . 10 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → 𝑋 ∈ ((RSpan‘𝑅)‘{𝑋}))
4941, 48sseldd 3939 . . . . . . . . 9 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → 𝑋𝑖)
50 1arithufdlem.5 . . . . . . . . . . 11 (𝜑𝑋0 )
51 nelsn 4633 . . . . . . . . . . 11 (𝑋0 → ¬ 𝑋 ∈ { 0 })
5250, 51syl 18 . . . . . . . . . 10 (𝜑 → ¬ 𝑋 ∈ { 0 })
5352ad5antr 746 . . . . . . . . 9 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → ¬ 𝑋 ∈ { 0 })
54 nelne1 3055 . . . . . . . . 9 ((𝑋𝑖 ∧ ¬ 𝑋 ∈ { 0 }) → 𝑖 ≠ { 0 })
5549, 53, 54syl2anc 595 . . . . . . . 8 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → 𝑖 ≠ { 0 })
5640, 55eldifsnd 4756 . . . . . . 7 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → 𝑖 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }}))
57 ineq1 4167 . . . . . . . . 9 (𝑗 = 𝑖 → (𝑗𝑃) = (𝑖𝑃))
5857neeq1d 3017 . . . . . . . 8 (𝑗 = 𝑖 → ((𝑗𝑃) ≠ ∅ ↔ (𝑖𝑃) ≠ ∅))
59 eqid 2763 . . . . . . . . . . 11 (PrmIdeal‘𝑅) = (PrmIdeal‘𝑅)
60 1arithufd.0 . . . . . . . . . . 11 0 = (0g𝑅)
6159, 7, 60isufd 33808 . . . . . . . . . 10 (𝑅 ∈ UFD ↔ (𝑅 ∈ IDomn ∧ ∀𝑗 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }})(𝑗𝑃) ≠ ∅))
6261simprbi 502 . . . . . . . . 9 (𝑅 ∈ UFD → ∀𝑗 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }})(𝑗𝑃) ≠ ∅)
6362adantr 485 . . . . . . . 8 ((𝑅 ∈ UFD ∧ 𝑖 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }})) → ∀𝑗 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }})(𝑗𝑃) ≠ ∅)
64 simpr 489 . . . . . . . 8 ((𝑅 ∈ UFD ∧ 𝑖 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }})) → 𝑖 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }}))
6558, 63, 64rspcdva 3583 . . . . . . 7 ((𝑅 ∈ UFD ∧ 𝑖 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }})) → (𝑖𝑃) ≠ ∅)
6639, 56, 65syl2anc 595 . . . . . 6 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → (𝑖𝑃) ≠ ∅)
67 sseq0 4362 . . . . . . . . 9 (((𝑖𝑃) ⊆ (𝑖𝑆) ∧ (𝑖𝑆) = ∅) → (𝑖𝑃) = ∅)
6867expcom 418 . . . . . . . 8 ((𝑖𝑆) = ∅ → ((𝑖𝑃) ⊆ (𝑖𝑆) → (𝑖𝑃) = ∅))
6968necon3ad 2971 . . . . . . 7 ((𝑖𝑆) = ∅ → ((𝑖𝑃) ≠ ∅ → ¬ (𝑖𝑃) ⊆ (𝑖𝑆)))
70 sslin 4196 . . . . . . . 8 (𝑃𝑆 → (𝑖𝑃) ⊆ (𝑖𝑆))
7170con3i 155 . . . . . . 7 (¬ (𝑖𝑃) ⊆ (𝑖𝑆) → ¬ 𝑃𝑆)
7269, 71syl6 36 . . . . . 6 ((𝑖𝑆) = ∅ → ((𝑖𝑃) ≠ ∅ → ¬ 𝑃𝑆))
7338, 66, 72sylc 66 . . . . 5 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → ¬ 𝑃𝑆)
7434, 73sylanbr 593 . . . 4 (((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)}) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → ¬ 𝑃𝑆)
7574anasss 471 . . 3 ((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)}) ∧ (𝑖 ∈ (PrmIdeal‘𝑅) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗)) → ¬ 𝑃𝑆)
7642idomcringd 20812 . . . . 5 (𝜑𝑅 ∈ CRing)
7776adantr 485 . . . 4 ((𝜑 ∧ ¬ 𝑋𝑆) → 𝑅 ∈ CRing)
7843adantr 485 . . . . 5 ((𝜑 ∧ ¬ 𝑋𝑆) → 𝑅 ∈ Ring)
7944adantr 485 . . . . . 6 ((𝜑 ∧ ¬ 𝑋𝑆) → 𝑋𝐵)
8079snssd 4753 . . . . 5 ((𝜑 ∧ ¬ 𝑋𝑆) → {𝑋} ⊆ 𝐵)
81 eqid 2763 . . . . . 6 (LIdeal‘𝑅) = (LIdeal‘𝑅)
8245, 6, 81rspcl 21345 . . . . 5 ((𝑅 ∈ Ring ∧ {𝑋} ⊆ 𝐵) → ((RSpan‘𝑅)‘{𝑋}) ∈ (LIdeal‘𝑅))
8378, 80, 82syl2anc 595 . . . 4 ((𝜑 ∧ ¬ 𝑋𝑆) → ((RSpan‘𝑅)‘{𝑋}) ∈ (LIdeal‘𝑅))
8415ringmgp 20322 . . . . . . 7 (𝑅 ∈ Ring → 𝑀 ∈ Mnd)
8543, 84syl 18 . . . . . 6 (𝜑𝑀 ∈ Mnd)
8621ssrab3 4037 . . . . . . 7 𝑆𝐵
8786a1i 11 . . . . . 6 (𝜑𝑆𝐵)
88 eqeq1 2767 . . . . . . . . . 10 (𝑥 = (1r𝑅) → (𝑥 = (𝑀 Σg 𝑓) ↔ (1r𝑅) = (𝑀 Σg 𝑓)))
8988rexbidv 3189 . . . . . . . . 9 (𝑥 = (1r𝑅) → (∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓) ↔ ∃𝑓 ∈ Word 𝑃(1r𝑅) = (𝑀 Σg 𝑓)))
90 eqcom 2770 . . . . . . . . . 10 ((1r𝑅) = (𝑀 Σg 𝑓) ↔ (𝑀 Σg 𝑓) = (1r𝑅))
9190rexbii 3112 . . . . . . . . 9 (∃𝑓 ∈ Word 𝑃(1r𝑅) = (𝑀 Σg 𝑓) ↔ ∃𝑓 ∈ Word 𝑃(𝑀 Σg 𝑓) = (1r𝑅))
9289, 91bitrdi 290 . . . . . . . 8 (𝑥 = (1r𝑅) → (∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓) ↔ ∃𝑓 ∈ Word 𝑃(𝑀 Σg 𝑓) = (1r𝑅)))
93 eqid 2763 . . . . . . . . . 10 (1r𝑅) = (1r𝑅)
946, 93ringidcl 20349 . . . . . . . . 9 (𝑅 ∈ Ring → (1r𝑅) ∈ 𝐵)
9543, 94syl 18 . . . . . . . 8 (𝜑 → (1r𝑅) ∈ 𝐵)
96 oveq2 7420 . . . . . . . . . 10 (𝑓 = ∅ → (𝑀 Σg 𝑓) = (𝑀 Σg ∅))
9796eqeq1d 2765 . . . . . . . . 9 (𝑓 = ∅ → ((𝑀 Σg 𝑓) = (1r𝑅) ↔ (𝑀 Σg ∅) = (1r𝑅)))
98 wrd0 14578 . . . . . . . . . 10 ∅ ∈ Word 𝑃
9998a1i 11 . . . . . . . . 9 (𝜑 → ∅ ∈ Word 𝑃)
10015, 93ringidval 20266 . . . . . . . . . . 11 (1r𝑅) = (0g𝑀)
101100gsum0 18743 . . . . . . . . . 10 (𝑀 Σg ∅) = (1r𝑅)
102101a1i 11 . . . . . . . . 9 (𝜑 → (𝑀 Σg ∅) = (1r𝑅))
10397, 99, 102rspcedvdw 3585 . . . . . . . 8 (𝜑 → ∃𝑓 ∈ Word 𝑃(𝑀 Σg 𝑓) = (1r𝑅))
10492, 95, 103elrabd 3653 . . . . . . 7 (𝜑 → (1r𝑅) ∈ {𝑥𝐵 ∣ ∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓)})
105104, 21eleqtrrdi 2874 . . . . . 6 (𝜑 → (1r𝑅) ∈ 𝑆)
106 1arithufd.u . . . . . . . . 9 𝑈 = (Unit‘𝑅)
1078ad2antrr 738 . . . . . . . . 9 (((𝜑𝑎𝑆) ∧ 𝑏𝑆) → 𝑅 ∈ UFD)
108 1arithufdlem.2 . . . . . . . . . 10 (𝜑 → ¬ 𝑅 ∈ DivRing)
109108ad2antrr 738 . . . . . . . . 9 (((𝜑𝑎𝑆) ∧ 𝑏𝑆) → ¬ 𝑅 ∈ DivRing)
110 eqid 2763 . . . . . . . . 9 (.r𝑅) = (.r𝑅)
111 simplr 780 . . . . . . . . 9 (((𝜑𝑎𝑆) ∧ 𝑏𝑆) → 𝑎𝑆)
112 simpr 489 . . . . . . . . 9 (((𝜑𝑎𝑆) ∧ 𝑏𝑆) → 𝑏𝑆)
1136, 60, 106, 7, 15, 107, 109, 21, 110, 111, 1121arithufdlem2 33813 . . . . . . . 8 (((𝜑𝑎𝑆) ∧ 𝑏𝑆) → (𝑎(.r𝑅)𝑏) ∈ 𝑆)
114113anasss 471 . . . . . . 7 ((𝜑 ∧ (𝑎𝑆𝑏𝑆)) → (𝑎(.r𝑅)𝑏) ∈ 𝑆)
115114ralrimivva 3208 . . . . . 6 (𝜑 → ∀𝑎𝑆𝑏𝑆 (𝑎(.r𝑅)𝑏) ∈ 𝑆)
11615, 110mgpplusg 20221 . . . . . . . 8 (.r𝑅) = (+g𝑀)
11716, 100, 116issubm 18862 . . . . . . 7 (𝑀 ∈ Mnd → (𝑆 ∈ (SubMnd‘𝑀) ↔ (𝑆𝐵 ∧ (1r𝑅) ∈ 𝑆 ∧ ∀𝑎𝑆𝑏𝑆 (𝑎(.r𝑅)𝑏) ∈ 𝑆)))
118117biimpar 482 . . . . . 6 ((𝑀 ∈ Mnd ∧ (𝑆𝐵 ∧ (1r𝑅) ∈ 𝑆 ∧ ∀𝑎𝑆𝑏𝑆 (𝑎(.r𝑅)𝑏) ∈ 𝑆)) → 𝑆 ∈ (SubMnd‘𝑀))
11985, 87, 105, 115, 118syl13anc 1399 . . . . 5 (𝜑𝑆 ∈ (SubMnd‘𝑀))
120119adantr 485 . . . 4 ((𝜑 ∧ ¬ 𝑋𝑆) → 𝑆 ∈ (SubMnd‘𝑀))
121 neq0 4307 . . . . . . . 8 (¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅ ↔ ∃𝑢 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})))
122121bilani 509 . . . . . . 7 ((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) → ∃𝑢 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})))
1238ad4antr 744 . . . . . . . . 9 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑅 ∈ UFD)
124108ad4antr 744 . . . . . . . . 9 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → ¬ 𝑅 ∈ DivRing)
12544ad4antr 744 . . . . . . . . 9 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑋𝐵)
126 1arithufdlem.4 . . . . . . . . . 10 (𝜑 → ¬ 𝑋𝑈)
127126ad4antr 744 . . . . . . . . 9 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → ¬ 𝑋𝑈)
12850ad4antr 744 . . . . . . . . 9 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑋0 )
129 simplr 780 . . . . . . . . 9 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑦𝐵)
130 simpr 489 . . . . . . . . . 10 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑢 = (𝑦(.r𝑅)𝑋))
131 simpllr 787 . . . . . . . . . . 11 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})))
132131elin1d 4158 . . . . . . . . . 10 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑢𝑆)
133130, 132eqeltrrd 2864 . . . . . . . . 9 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → (𝑦(.r𝑅)𝑋) ∈ 𝑆)
1346, 60, 106, 7, 15, 123, 124, 21, 125, 127, 128, 110, 129, 1331arithufdlem3 33814 . . . . . . . 8 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑋𝑆)
13543ad2antrr 738 . . . . . . . . 9 (((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) → 𝑅 ∈ Ring)
13644ad2antrr 738 . . . . . . . . 9 (((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) → 𝑋𝐵)
137 simpr 489 . . . . . . . . . 10 (((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) → 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})))
138137elin2d 4159 . . . . . . . . 9 (((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) → 𝑢 ∈ ((RSpan‘𝑅)‘{𝑋}))
1396, 110, 45elrspsn 21352 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑋𝐵) → (𝑢 ∈ ((RSpan‘𝑅)‘{𝑋}) ↔ ∃𝑦𝐵 𝑢 = (𝑦(.r𝑅)𝑋)))
140139biimpa 481 . . . . . . . . 9 (((𝑅 ∈ Ring ∧ 𝑋𝐵) ∧ 𝑢 ∈ ((RSpan‘𝑅)‘{𝑋})) → ∃𝑦𝐵 𝑢 = (𝑦(.r𝑅)𝑋))
141135, 136, 138, 140syl21anc 850 . . . . . . . 8 (((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) → ∃𝑦𝐵 𝑢 = (𝑦(.r𝑅)𝑋))
142134, 141r19.29a 3173 . . . . . . 7 (((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) → 𝑋𝑆)
143122, 142exlimddv 1965 . . . . . 6 ((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) → 𝑋𝑆)
144143adantlr 727 . . . . 5 (((𝜑 ∧ ¬ 𝑋𝑆) ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) → 𝑋𝑆)
145 simplr 780 . . . . 5 (((𝜑 ∧ ¬ 𝑋𝑆) ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) → ¬ 𝑋𝑆)
146144, 145condan 829 . . . 4 ((𝜑 ∧ ¬ 𝑋𝑆) → (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅)
147 eqid 2763 . . . 4 {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} = {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)}
1486, 77, 83, 120, 15, 146, 147ssdifidlprm 21467 . . 3 ((𝜑 ∧ ¬ 𝑋𝑆) → ∃𝑖 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} (𝑖 ∈ (PrmIdeal‘𝑅) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗))
14975, 148r19.29a 3173 . 2 ((𝜑 ∧ ¬ 𝑋𝑆) → ¬ 𝑃𝑆)
15025, 149condan 829 1 (𝜑𝑋𝑆)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 400  w3a 1103   = wceq 1570  wex 1809  wcel 2143  wne 2958  wral 3079  wrex 3089  {crab 3416  cdif 3903  cin 3905  wss 3906  wpss 3907  c0 4287  {csn 4590  cfv 6538  (class class class)co 7412  Word cword 14552  ⟨“cs1 14635  Basecbs 17270  .rcmulr 17312  0gc0g 17493   Σg cgsu 17494  Mndcmnd 18793  SubMndcsubmnd 18841  mulGrpcmgp 20217  1rcur 20264  Ringcrg 20316  CRingccrg 20317  Unitcui 20438  RPrimecrpm 20515  IDomncidom 20779  DivRingcdr 20814  LIdealclidl 21311  RSpancrsp 21312  PrmIdealcprmidl 21441  UFDcufd 33806
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 5239  ax-sep 5258  ax-nul 5270  ax-pow 5338  ax-pr 5406  ax-un 7734  ax-ac2 10448  ax-cnex 11157  ax-resscn 11158  ax-1cn 11159  ax-icn 11160  ax-addcl 11161  ax-addrcl 11162  ax-mulcl 11163  ax-mulrcl 11164  ax-mulcom 11165  ax-addass 11166  ax-mulass 11167  ax-distr 11168  ax-i2m1 11169  ax-1ne0 11170  ax-1rid 11171  ax-rnegex 11172  ax-rrecex 11173  ax-cnre 11174  ax-pre-lttri 11175  ax-pre-lttrn 11176  ax-pre-ltadd 11177  ax-pre-mulgt0 11178
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  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-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-op 4597  df-uni 4874  df-int 4914  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-tr 5220  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-se 5617  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-isom 6547  df-riota 7369  df-ov 7415  df-oprab 7416  df-mpo 7417  df-rpss 7722  df-om 7864  df-1st 7987  df-2nd 7988  df-supp 8158  df-tpos 8223  df-frecs 8279  df-wrecs 8310  df-recs 8359  df-rdg 8398  df-1o 8454  df-oadd 8458  df-er 8695  df-en 8945  df-dom 8946  df-sdom 8947  df-fin 8948  df-fsupp 9323  df-oi 9473  df-dju 9888  df-card 9926  df-ac 10101  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11444  df-neg 11445  df-nn 12235  df-2 12304  df-3 12305  df-4 12306  df-5 12307  df-6 12308  df-7 12309  df-8 12310  df-n0 12506  df-xnn0 12579  df-z 12593  df-uz 12864  df-fz 13537  df-fzo 13685  df-seq 14040  df-hash 14369  df-word 14553  df-lsw 14602  df-concat 14610  df-s1 14636  df-substr 14681  df-pfx 14711  df-sets 17225  df-slot 17243  df-ndx 17255  df-base 17271  df-ress 17292  df-plusg 17324  df-mulr 17325  df-sca 17327  df-vsca 17328  df-ip 17329  df-0g 17495  df-gsum 17496  df-mgm 18699  df-sgrp 18778  df-mnd 18794  df-submnd 18843  df-grp 19004  df-minusg 19005  df-sbg 19006  df-subg 19190  df-cntz 19388  df-lsm 19707  df-cmn 19853  df-abl 19854  df-mgp 20218  df-rng 20232  df-ur 20265  df-ring 20318  df-cring 20319  df-oppr 20420  df-dvdsr 20440  df-unit 20441  df-invr 20471  df-rprm 20516  df-nzr 20597  df-subrg 20656  df-domn 20781  df-idom 20782  df-lmod 20964  df-lss 21034  df-lsp 21074  df-sra 21275  df-rgmod 21276  df-lidl 21313  df-rsp 21314  df-prmidl 21442  df-ufd 33807
This theorem is referenced by:  1arithufd  33816
  Copyright terms: Public domain W3C validator