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 33519
Description: Lemma for 1arithufd 33520. 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 2737 . . . . . . . . 9 (𝑥 = 𝑎 → (𝑥 = (𝑀 Σg 𝑓) ↔ 𝑎 = (𝑀 Σg 𝑓)))
21rexbidv 3157 . . . . . . . 8 (𝑥 = 𝑎 → (∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓) ↔ ∃𝑓 ∈ Word 𝑃𝑎 = (𝑀 Σg 𝑓)))
3 eqcom 2740 . . . . . . . . 9 (𝑎 = (𝑀 Σg 𝑓) ↔ (𝑀 Σg 𝑓) = 𝑎)
43rexbii 3080 . . . . . . . 8 (∃𝑓 ∈ Word 𝑃𝑎 = (𝑀 Σg 𝑓) ↔ ∃𝑓 ∈ Word 𝑃(𝑀 Σg 𝑓) = 𝑎)
52, 4bitrdi 287 . . . . . . 7 (𝑥 = 𝑎 → (∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓) ↔ ∃𝑓 ∈ Word 𝑃(𝑀 Σg 𝑓) = 𝑎))
6 1arithufd.b . . . . . . . 8 𝐵 = (Base‘𝑅)
7 1arithufd.p . . . . . . . 8 𝑃 = (RPrime‘𝑅)
8 1arithufd.r . . . . . . . . 9 (𝜑𝑅 ∈ UFD)
98adantr 480 . . . . . . . 8 ((𝜑𝑎𝑃) → 𝑅 ∈ UFD)
10 simpr 484 . . . . . . . 8 ((𝜑𝑎𝑃) → 𝑎𝑃)
116, 7, 9, 10rprmcl 33490 . . . . . . 7 ((𝜑𝑎𝑃) → 𝑎𝐵)
12 oveq2 7360 . . . . . . . . 9 (𝑓 = ⟨“𝑎”⟩ → (𝑀 Σg 𝑓) = (𝑀 Σg ⟨“𝑎”⟩))
1312eqeq1d 2735 . . . . . . . 8 (𝑓 = ⟨“𝑎”⟩ → ((𝑀 Σg 𝑓) = 𝑎 ↔ (𝑀 Σg ⟨“𝑎”⟩) = 𝑎))
1410s1cld 14513 . . . . . . . 8 ((𝜑𝑎𝑃) → ⟨“𝑎”⟩ ∈ Word 𝑃)
15 1arithufd.m . . . . . . . . . . 11 𝑀 = (mulGrp‘𝑅)
1615, 6mgpbas 20065 . . . . . . . . . 10 𝐵 = (Base‘𝑀)
1716gsumws1 18748 . . . . . . . . 9 (𝑎𝐵 → (𝑀 Σg ⟨“𝑎”⟩) = 𝑎)
1811, 17syl 17 . . . . . . . 8 ((𝜑𝑎𝑃) → (𝑀 Σg ⟨“𝑎”⟩) = 𝑎)
1913, 14, 18rspcedvdw 3576 . . . . . . 7 ((𝜑𝑎𝑃) → ∃𝑓 ∈ Word 𝑃(𝑀 Σg 𝑓) = 𝑎)
205, 11, 19elrabd 3645 . . . . . 6 ((𝜑𝑎𝑃) → 𝑎 ∈ {𝑥𝐵 ∣ ∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓)})
21 1arithufdlem.s . . . . . 6 𝑆 = {𝑥𝐵 ∣ ∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓)}
2220, 21eleqtrrdi 2844 . . . . 5 ((𝜑𝑎𝑃) → 𝑎𝑆)
2322ex 412 . . . 4 (𝜑 → (𝑎𝑃𝑎𝑆))
2423ssrdv 3936 . . 3 (𝜑𝑃𝑆)
2524adantr 480 . 2 ((𝜑 ∧ ¬ 𝑋𝑆) → 𝑃𝑆)
26 anass 468 . . . . . . 7 ((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ↔ ((𝜑 ∧ ¬ 𝑋𝑆) ∧ (𝑖 ∈ (LIdeal‘𝑅) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖))))
27 ineq2 4163 . . . . . . . . . . 11 (𝑝 = 𝑖 → (𝑆𝑝) = (𝑆𝑖))
2827eqeq1d 2735 . . . . . . . . . 10 (𝑝 = 𝑖 → ((𝑆𝑝) = ∅ ↔ (𝑆𝑖) = ∅))
29 sseq2 3957 . . . . . . . . . 10 (𝑝 = 𝑖 → (((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝 ↔ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖))
3028, 29anbi12d 632 . . . . . . . . 9 (𝑝 = 𝑖 → (((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝) ↔ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)))
3130elrab 3643 . . . . . . . 8 (𝑖 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ↔ (𝑖 ∈ (LIdeal‘𝑅) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)))
3231anbi2i 623 . . . . . . 7 (((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)}) ↔ ((𝜑 ∧ ¬ 𝑋𝑆) ∧ (𝑖 ∈ (LIdeal‘𝑅) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖))))
3326, 32bitr4i 278 . . . . . 6 ((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ↔ ((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)}))
3433anbi1i 624 . . . . 5 (((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ↔ (((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)}) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)))
35 incom 4158 . . . . . . 7 (𝑖𝑆) = (𝑆𝑖)
36 simpllr 775 . . . . . . . 8 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖))
3736simpld 494 . . . . . . 7 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → (𝑆𝑖) = ∅)
3835, 37eqtrid 2780 . . . . . 6 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → (𝑖𝑆) = ∅)
398ad5antr 734 . . . . . . 7 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → 𝑅 ∈ UFD)
40 simplr 768 . . . . . . . 8 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → 𝑖 ∈ (PrmIdeal‘𝑅))
4136simprd 495 . . . . . . . . . 10 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)
428ufdidom 33514 . . . . . . . . . . . . 13 (𝜑𝑅 ∈ IDomn)
4342idomringd 20645 . . . . . . . . . . . 12 (𝜑𝑅 ∈ Ring)
44 1arithufdlem.3 . . . . . . . . . . . 12 (𝜑𝑋𝐵)
45 eqid 2733 . . . . . . . . . . . . 13 (RSpan‘𝑅) = (RSpan‘𝑅)
466, 45rspsnid 33343 . . . . . . . . . . . 12 ((𝑅 ∈ Ring ∧ 𝑋𝐵) → 𝑋 ∈ ((RSpan‘𝑅)‘{𝑋}))
4743, 44, 46syl2anc 584 . . . . . . . . . . 11 (𝜑𝑋 ∈ ((RSpan‘𝑅)‘{𝑋}))
4847ad5antr 734 . . . . . . . . . 10 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → 𝑋 ∈ ((RSpan‘𝑅)‘{𝑋}))
4941, 48sseldd 3931 . . . . . . . . 9 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → 𝑋𝑖)
50 1arithufdlem.5 . . . . . . . . . . 11 (𝜑𝑋0 )
51 nelsn 4618 . . . . . . . . . . 11 (𝑋0 → ¬ 𝑋 ∈ { 0 })
5250, 51syl 17 . . . . . . . . . 10 (𝜑 → ¬ 𝑋 ∈ { 0 })
5352ad5antr 734 . . . . . . . . 9 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → ¬ 𝑋 ∈ { 0 })
54 nelne1 3026 . . . . . . . . 9 ((𝑋𝑖 ∧ ¬ 𝑋 ∈ { 0 }) → 𝑖 ≠ { 0 })
5549, 53, 54syl2anc 584 . . . . . . . 8 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → 𝑖 ≠ { 0 })
5640, 55eldifsnd 4738 . . . . . . 7 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → 𝑖 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }}))
57 ineq1 4162 . . . . . . . . 9 (𝑗 = 𝑖 → (𝑗𝑃) = (𝑖𝑃))
5857neeq1d 2988 . . . . . . . 8 (𝑗 = 𝑖 → ((𝑗𝑃) ≠ ∅ ↔ (𝑖𝑃) ≠ ∅))
59 eqid 2733 . . . . . . . . . . 11 (PrmIdeal‘𝑅) = (PrmIdeal‘𝑅)
60 1arithufd.0 . . . . . . . . . . 11 0 = (0g𝑅)
6159, 7, 60isufd 33512 . . . . . . . . . 10 (𝑅 ∈ UFD ↔ (𝑅 ∈ IDomn ∧ ∀𝑗 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }})(𝑗𝑃) ≠ ∅))
6261simprbi 496 . . . . . . . . 9 (𝑅 ∈ UFD → ∀𝑗 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }})(𝑗𝑃) ≠ ∅)
6362adantr 480 . . . . . . . 8 ((𝑅 ∈ UFD ∧ 𝑖 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }})) → ∀𝑗 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }})(𝑗𝑃) ≠ ∅)
64 simpr 484 . . . . . . . 8 ((𝑅 ∈ UFD ∧ 𝑖 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }})) → 𝑖 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }}))
6558, 63, 64rspcdva 3574 . . . . . . 7 ((𝑅 ∈ UFD ∧ 𝑖 ∈ ((PrmIdeal‘𝑅) ∖ {{ 0 }})) → (𝑖𝑃) ≠ ∅)
6639, 56, 65syl2anc 584 . . . . . 6 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → (𝑖𝑃) ≠ ∅)
67 sseq0 4352 . . . . . . . . 9 (((𝑖𝑃) ⊆ (𝑖𝑆) ∧ (𝑖𝑆) = ∅) → (𝑖𝑃) = ∅)
6867expcom 413 . . . . . . . 8 ((𝑖𝑆) = ∅ → ((𝑖𝑃) ⊆ (𝑖𝑆) → (𝑖𝑃) = ∅))
6968necon3ad 2942 . . . . . . 7 ((𝑖𝑆) = ∅ → ((𝑖𝑃) ≠ ∅ → ¬ (𝑖𝑃) ⊆ (𝑖𝑆)))
70 sslin 4192 . . . . . . . 8 (𝑃𝑆 → (𝑖𝑃) ⊆ (𝑖𝑆))
7170con3i 154 . . . . . . 7 (¬ (𝑖𝑃) ⊆ (𝑖𝑆) → ¬ 𝑃𝑆)
7269, 71syl6 35 . . . . . 6 ((𝑖𝑆) = ∅ → ((𝑖𝑃) ≠ ∅ → ¬ 𝑃𝑆))
7338, 66, 72sylc 65 . . . . 5 ((((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ (LIdeal‘𝑅)) ∧ ((𝑆𝑖) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑖)) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → ¬ 𝑃𝑆)
7434, 73sylanbr 582 . . . 4 (((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)}) ∧ 𝑖 ∈ (PrmIdeal‘𝑅)) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗) → ¬ 𝑃𝑆)
7574anasss 466 . . 3 ((((𝜑 ∧ ¬ 𝑋𝑆) ∧ 𝑖 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)}) ∧ (𝑖 ∈ (PrmIdeal‘𝑅) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗)) → ¬ 𝑃𝑆)
7642idomcringd 20644 . . . . 5 (𝜑𝑅 ∈ CRing)
7776adantr 480 . . . 4 ((𝜑 ∧ ¬ 𝑋𝑆) → 𝑅 ∈ CRing)
7843adantr 480 . . . . 5 ((𝜑 ∧ ¬ 𝑋𝑆) → 𝑅 ∈ Ring)
7944adantr 480 . . . . . 6 ((𝜑 ∧ ¬ 𝑋𝑆) → 𝑋𝐵)
8079snssd 4760 . . . . 5 ((𝜑 ∧ ¬ 𝑋𝑆) → {𝑋} ⊆ 𝐵)
81 eqid 2733 . . . . . 6 (LIdeal‘𝑅) = (LIdeal‘𝑅)
8245, 6, 81rspcl 21174 . . . . 5 ((𝑅 ∈ Ring ∧ {𝑋} ⊆ 𝐵) → ((RSpan‘𝑅)‘{𝑋}) ∈ (LIdeal‘𝑅))
8378, 80, 82syl2anc 584 . . . 4 ((𝜑 ∧ ¬ 𝑋𝑆) → ((RSpan‘𝑅)‘{𝑋}) ∈ (LIdeal‘𝑅))
8415ringmgp 20159 . . . . . . 7 (𝑅 ∈ Ring → 𝑀 ∈ Mnd)
8543, 84syl 17 . . . . . 6 (𝜑𝑀 ∈ Mnd)
8621ssrab3 4031 . . . . . . 7 𝑆𝐵
8786a1i 11 . . . . . 6 (𝜑𝑆𝐵)
88 eqeq1 2737 . . . . . . . . . 10 (𝑥 = (1r𝑅) → (𝑥 = (𝑀 Σg 𝑓) ↔ (1r𝑅) = (𝑀 Σg 𝑓)))
8988rexbidv 3157 . . . . . . . . 9 (𝑥 = (1r𝑅) → (∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓) ↔ ∃𝑓 ∈ Word 𝑃(1r𝑅) = (𝑀 Σg 𝑓)))
90 eqcom 2740 . . . . . . . . . 10 ((1r𝑅) = (𝑀 Σg 𝑓) ↔ (𝑀 Σg 𝑓) = (1r𝑅))
9190rexbii 3080 . . . . . . . . 9 (∃𝑓 ∈ Word 𝑃(1r𝑅) = (𝑀 Σg 𝑓) ↔ ∃𝑓 ∈ Word 𝑃(𝑀 Σg 𝑓) = (1r𝑅))
9289, 91bitrdi 287 . . . . . . . 8 (𝑥 = (1r𝑅) → (∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓) ↔ ∃𝑓 ∈ Word 𝑃(𝑀 Σg 𝑓) = (1r𝑅)))
93 eqid 2733 . . . . . . . . . 10 (1r𝑅) = (1r𝑅)
946, 93ringidcl 20185 . . . . . . . . 9 (𝑅 ∈ Ring → (1r𝑅) ∈ 𝐵)
9543, 94syl 17 . . . . . . . 8 (𝜑 → (1r𝑅) ∈ 𝐵)
96 oveq2 7360 . . . . . . . . . 10 (𝑓 = ∅ → (𝑀 Σg 𝑓) = (𝑀 Σg ∅))
9796eqeq1d 2735 . . . . . . . . 9 (𝑓 = ∅ → ((𝑀 Σg 𝑓) = (1r𝑅) ↔ (𝑀 Σg ∅) = (1r𝑅)))
98 wrd0 14448 . . . . . . . . . 10 ∅ ∈ Word 𝑃
9998a1i 11 . . . . . . . . 9 (𝜑 → ∅ ∈ Word 𝑃)
10015, 93ringidval 20103 . . . . . . . . . . 11 (1r𝑅) = (0g𝑀)
101100gsum0 18594 . . . . . . . . . 10 (𝑀 Σg ∅) = (1r𝑅)
102101a1i 11 . . . . . . . . 9 (𝜑 → (𝑀 Σg ∅) = (1r𝑅))
10397, 99, 102rspcedvdw 3576 . . . . . . . 8 (𝜑 → ∃𝑓 ∈ Word 𝑃(𝑀 Σg 𝑓) = (1r𝑅))
10492, 95, 103elrabd 3645 . . . . . . 7 (𝜑 → (1r𝑅) ∈ {𝑥𝐵 ∣ ∃𝑓 ∈ Word 𝑃𝑥 = (𝑀 Σg 𝑓)})
105104, 21eleqtrrdi 2844 . . . . . 6 (𝜑 → (1r𝑅) ∈ 𝑆)
106 1arithufd.u . . . . . . . . 9 𝑈 = (Unit‘𝑅)
1078ad2antrr 726 . . . . . . . . 9 (((𝜑𝑎𝑆) ∧ 𝑏𝑆) → 𝑅 ∈ UFD)
108 1arithufdlem.2 . . . . . . . . . 10 (𝜑 → ¬ 𝑅 ∈ DivRing)
109108ad2antrr 726 . . . . . . . . 9 (((𝜑𝑎𝑆) ∧ 𝑏𝑆) → ¬ 𝑅 ∈ DivRing)
110 eqid 2733 . . . . . . . . 9 (.r𝑅) = (.r𝑅)
111 simplr 768 . . . . . . . . 9 (((𝜑𝑎𝑆) ∧ 𝑏𝑆) → 𝑎𝑆)
112 simpr 484 . . . . . . . . 9 (((𝜑𝑎𝑆) ∧ 𝑏𝑆) → 𝑏𝑆)
1136, 60, 106, 7, 15, 107, 109, 21, 110, 111, 1121arithufdlem2 33517 . . . . . . . 8 (((𝜑𝑎𝑆) ∧ 𝑏𝑆) → (𝑎(.r𝑅)𝑏) ∈ 𝑆)
114113anasss 466 . . . . . . 7 ((𝜑 ∧ (𝑎𝑆𝑏𝑆)) → (𝑎(.r𝑅)𝑏) ∈ 𝑆)
115114ralrimivva 3176 . . . . . 6 (𝜑 → ∀𝑎𝑆𝑏𝑆 (𝑎(.r𝑅)𝑏) ∈ 𝑆)
11615, 110mgpplusg 20064 . . . . . . . 8 (.r𝑅) = (+g𝑀)
11716, 100, 116issubm 18713 . . . . . . 7 (𝑀 ∈ Mnd → (𝑆 ∈ (SubMnd‘𝑀) ↔ (𝑆𝐵 ∧ (1r𝑅) ∈ 𝑆 ∧ ∀𝑎𝑆𝑏𝑆 (𝑎(.r𝑅)𝑏) ∈ 𝑆)))
118117biimpar 477 . . . . . 6 ((𝑀 ∈ Mnd ∧ (𝑆𝐵 ∧ (1r𝑅) ∈ 𝑆 ∧ ∀𝑎𝑆𝑏𝑆 (𝑎(.r𝑅)𝑏) ∈ 𝑆)) → 𝑆 ∈ (SubMnd‘𝑀))
11985, 87, 105, 115, 118syl13anc 1374 . . . . 5 (𝜑𝑆 ∈ (SubMnd‘𝑀))
120119adantr 480 . . . 4 ((𝜑 ∧ ¬ 𝑋𝑆) → 𝑆 ∈ (SubMnd‘𝑀))
121 neq0 4301 . . . . . . . . 9 (¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅ ↔ ∃𝑢 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})))
122121biimpi 216 . . . . . . . 8 (¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅ → ∃𝑢 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})))
123122adantl 481 . . . . . . 7 ((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) → ∃𝑢 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})))
1248ad4antr 732 . . . . . . . . 9 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑅 ∈ UFD)
125108ad4antr 732 . . . . . . . . 9 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → ¬ 𝑅 ∈ DivRing)
12644ad4antr 732 . . . . . . . . 9 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑋𝐵)
127 1arithufdlem.4 . . . . . . . . . 10 (𝜑 → ¬ 𝑋𝑈)
128127ad4antr 732 . . . . . . . . 9 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → ¬ 𝑋𝑈)
12950ad4antr 732 . . . . . . . . 9 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑋0 )
130 simplr 768 . . . . . . . . 9 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑦𝐵)
131 simpr 484 . . . . . . . . . 10 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑢 = (𝑦(.r𝑅)𝑋))
132 simpllr 775 . . . . . . . . . . 11 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})))
133132elin1d 4153 . . . . . . . . . 10 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑢𝑆)
134131, 133eqeltrrd 2834 . . . . . . . . 9 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → (𝑦(.r𝑅)𝑋) ∈ 𝑆)
1356, 60, 106, 7, 15, 124, 125, 21, 126, 128, 129, 110, 130, 1341arithufdlem3 33518 . . . . . . . 8 (((((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) ∧ 𝑦𝐵) ∧ 𝑢 = (𝑦(.r𝑅)𝑋)) → 𝑋𝑆)
13643ad2antrr 726 . . . . . . . . 9 (((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) → 𝑅 ∈ Ring)
13744ad2antrr 726 . . . . . . . . 9 (((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) → 𝑋𝐵)
138 simpr 484 . . . . . . . . . 10 (((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) → 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})))
139138elin2d 4154 . . . . . . . . 9 (((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) → 𝑢 ∈ ((RSpan‘𝑅)‘{𝑋}))
1406, 110, 45elrspsn 21179 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑋𝐵) → (𝑢 ∈ ((RSpan‘𝑅)‘{𝑋}) ↔ ∃𝑦𝐵 𝑢 = (𝑦(.r𝑅)𝑋)))
141140biimpa 476 . . . . . . . . 9 (((𝑅 ∈ Ring ∧ 𝑋𝐵) ∧ 𝑢 ∈ ((RSpan‘𝑅)‘{𝑋})) → ∃𝑦𝐵 𝑢 = (𝑦(.r𝑅)𝑋))
142136, 137, 139, 141syl21anc 837 . . . . . . . 8 (((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) → ∃𝑦𝐵 𝑢 = (𝑦(.r𝑅)𝑋))
143135, 142r19.29a 3141 . . . . . . 7 (((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) ∧ 𝑢 ∈ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋}))) → 𝑋𝑆)
144123, 143exlimddv 1936 . . . . . 6 ((𝜑 ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) → 𝑋𝑆)
145144adantlr 715 . . . . 5 (((𝜑 ∧ ¬ 𝑋𝑆) ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) → 𝑋𝑆)
146 simplr 768 . . . . 5 (((𝜑 ∧ ¬ 𝑋𝑆) ∧ ¬ (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅) → ¬ 𝑋𝑆)
147145, 146condan 817 . . . 4 ((𝜑 ∧ ¬ 𝑋𝑆) → (𝑆 ∩ ((RSpan‘𝑅)‘{𝑋})) = ∅)
148 eqid 2733 . . . 4 {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} = {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)}
1496, 77, 83, 120, 15, 147, 148ssdifidlprm 33430 . . 3 ((𝜑 ∧ ¬ 𝑋𝑆) → ∃𝑖 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} (𝑖 ∈ (PrmIdeal‘𝑅) ∧ ∀𝑗 ∈ {𝑝 ∈ (LIdeal‘𝑅) ∣ ((𝑆𝑝) = ∅ ∧ ((RSpan‘𝑅)‘{𝑋}) ⊆ 𝑝)} ¬ 𝑖𝑗))
15075, 149r19.29a 3141 . 2 ((𝜑 ∧ ¬ 𝑋𝑆) → ¬ 𝑃𝑆)
15125, 150condan 817 1 (𝜑𝑋𝑆)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  w3a 1086   = wceq 1541  wex 1780  wcel 2113  wne 2929  wral 3048  wrex 3057  {crab 3396  cdif 3895  cin 3897  wss 3898  wpss 3899  c0 4282  {csn 4575  cfv 6486  (class class class)co 7352  Word cword 14422  ⟨“cs1 14505  Basecbs 17122  .rcmulr 17164  0gc0g 17345   Σg cgsu 17346  Mndcmnd 18644  SubMndcsubmnd 18692  mulGrpcmgp 20060  1rcur 20101  Ringcrg 20153  CRingccrg 20154  Unitcui 20275  RPrimecrpm 20352  IDomncidom 20610  DivRingcdr 20646  LIdealclidl 21145  RSpancrsp 21146  PrmIdealcprmidl 33407  UFDcufd 33510
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2705  ax-rep 5219  ax-sep 5236  ax-nul 5246  ax-pow 5305  ax-pr 5372  ax-un 7674  ax-ac2 10361  ax-cnex 11069  ax-resscn 11070  ax-1cn 11071  ax-icn 11072  ax-addcl 11073  ax-addrcl 11074  ax-mulcl 11075  ax-mulrcl 11076  ax-mulcom 11077  ax-addass 11078  ax-mulass 11079  ax-distr 11080  ax-i2m1 11081  ax-1ne0 11082  ax-1rid 11083  ax-rnegex 11084  ax-rrecex 11085  ax-cnre 11086  ax-pre-lttri 11087  ax-pre-lttrn 11088  ax-pre-ltadd 11089  ax-pre-mulgt0 11090
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2725  df-clel 2808  df-nfc 2882  df-ne 2930  df-nel 3034  df-ral 3049  df-rex 3058  df-rmo 3347  df-reu 3348  df-rab 3397  df-v 3439  df-sbc 3738  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3918  df-nul 4283  df-if 4475  df-pw 4551  df-sn 4576  df-pr 4578  df-op 4582  df-uni 4859  df-int 4898  df-iun 4943  df-br 5094  df-opab 5156  df-mpt 5175  df-tr 5201  df-id 5514  df-eprel 5519  df-po 5527  df-so 5528  df-fr 5572  df-se 5573  df-we 5574  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-pred 6253  df-ord 6314  df-on 6315  df-lim 6316  df-suc 6317  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-isom 6495  df-riota 7309  df-ov 7355  df-oprab 7356  df-mpo 7357  df-rpss 7662  df-om 7803  df-1st 7927  df-2nd 7928  df-supp 8097  df-tpos 8162  df-frecs 8217  df-wrecs 8248  df-recs 8297  df-rdg 8335  df-1o 8391  df-oadd 8395  df-er 8628  df-en 8876  df-dom 8877  df-sdom 8878  df-fin 8879  df-fsupp 9253  df-oi 9403  df-dju 9801  df-card 9839  df-ac 10014  df-pnf 11155  df-mnf 11156  df-xr 11157  df-ltxr 11158  df-le 11159  df-sub 11353  df-neg 11354  df-nn 12133  df-2 12195  df-3 12196  df-4 12197  df-5 12198  df-6 12199  df-7 12200  df-8 12201  df-n0 12389  df-xnn0 12462  df-z 12476  df-uz 12739  df-fz 13410  df-fzo 13557  df-seq 13911  df-hash 14240  df-word 14423  df-lsw 14472  df-concat 14480  df-s1 14506  df-substr 14551  df-pfx 14581  df-sets 17077  df-slot 17095  df-ndx 17107  df-base 17123  df-ress 17144  df-plusg 17176  df-mulr 17177  df-sca 17179  df-vsca 17180  df-ip 17181  df-0g 17347  df-gsum 17348  df-mgm 18550  df-sgrp 18629  df-mnd 18645  df-submnd 18694  df-grp 18851  df-minusg 18852  df-sbg 18853  df-subg 19038  df-cntz 19231  df-lsm 19550  df-cmn 19696  df-abl 19697  df-mgp 20061  df-rng 20073  df-ur 20102  df-ring 20155  df-cring 20156  df-oppr 20257  df-dvdsr 20277  df-unit 20278  df-invr 20308  df-rprm 20353  df-nzr 20430  df-subrg 20487  df-domn 20612  df-idom 20613  df-lmod 20797  df-lss 20867  df-lsp 20907  df-sra 21109  df-rgmod 21110  df-lidl 21147  df-rsp 21148  df-prmidl 33408  df-ufd 33511
This theorem is referenced by:  1arithufd  33520
  Copyright terms: Public domain W3C validator