MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  isirred Structured version   Visualization version   GIF version

Theorem isirred 18897
Description: An irreducible element of a ring is a non-unit that is not the product of two non-units. (Contributed by Mario Carneiro, 4-Dec-2014.)
Hypotheses
Ref Expression
irred.1 𝐵 = (Base‘𝑅)
irred.2 𝑈 = (Unit‘𝑅)
irred.3 𝐼 = (Irred‘𝑅)
irred.4 𝑁 = (𝐵𝑈)
irred.5 · = (.r𝑅)
Assertion
Ref Expression
isirred (𝑋𝐼 ↔ (𝑋𝑁 ∧ ∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑋))
Distinct variable groups:   𝑥,𝑦,𝑁   𝑥,𝑅,𝑦   𝑥,𝑋,𝑦
Allowed substitution hints:   𝐵(𝑥,𝑦)   · (𝑥,𝑦)   𝑈(𝑥,𝑦)   𝐼(𝑥,𝑦)

Proof of Theorem isirred
Dummy variables 𝑟 𝑏 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elfvdm 6379 . . . 4 (𝑋 ∈ (Irred‘𝑅) → 𝑅 ∈ dom Irred)
2 irred.3 . . . 4 𝐼 = (Irred‘𝑅)
31, 2eleq2s 2855 . . 3 (𝑋𝐼𝑅 ∈ dom Irred)
4 elex 3350 . . 3 (𝑅 ∈ dom Irred → 𝑅 ∈ V)
53, 4syl 17 . 2 (𝑋𝐼𝑅 ∈ V)
6 eldifi 3873 . . . . . 6 (𝑋 ∈ (𝐵𝑈) → 𝑋𝐵)
7 irred.4 . . . . . 6 𝑁 = (𝐵𝑈)
86, 7eleq2s 2855 . . . . 5 (𝑋𝑁𝑋𝐵)
9 irred.1 . . . . 5 𝐵 = (Base‘𝑅)
108, 9syl6eleq 2847 . . . 4 (𝑋𝑁𝑋 ∈ (Base‘𝑅))
1110elfvexd 6381 . . 3 (𝑋𝑁𝑅 ∈ V)
1211adantr 472 . 2 ((𝑋𝑁 ∧ ∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑋) → 𝑅 ∈ V)
13 fvex 6360 . . . . . . . 8 (Base‘𝑟) ∈ V
14 difexg 4958 . . . . . . . 8 ((Base‘𝑟) ∈ V → ((Base‘𝑟) ∖ (Unit‘𝑟)) ∈ V)
1513, 14mp1i 13 . . . . . . 7 (𝑟 = 𝑅 → ((Base‘𝑟) ∖ (Unit‘𝑟)) ∈ V)
16 simpr 479 . . . . . . . . 9 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → 𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟)))
17 simpl 474 . . . . . . . . . . . . 13 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → 𝑟 = 𝑅)
1817fveq2d 6354 . . . . . . . . . . . 12 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → (Base‘𝑟) = (Base‘𝑅))
1918, 9syl6eqr 2810 . . . . . . . . . . 11 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → (Base‘𝑟) = 𝐵)
2017fveq2d 6354 . . . . . . . . . . . 12 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → (Unit‘𝑟) = (Unit‘𝑅))
21 irred.2 . . . . . . . . . . . 12 𝑈 = (Unit‘𝑅)
2220, 21syl6eqr 2810 . . . . . . . . . . 11 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → (Unit‘𝑟) = 𝑈)
2319, 22difeq12d 3870 . . . . . . . . . 10 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → ((Base‘𝑟) ∖ (Unit‘𝑟)) = (𝐵𝑈))
2423, 7syl6eqr 2810 . . . . . . . . 9 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → ((Base‘𝑟) ∖ (Unit‘𝑟)) = 𝑁)
2516, 24eqtrd 2792 . . . . . . . 8 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → 𝑏 = 𝑁)
2617fveq2d 6354 . . . . . . . . . . . . 13 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → (.r𝑟) = (.r𝑅))
27 irred.5 . . . . . . . . . . . . 13 · = (.r𝑅)
2826, 27syl6eqr 2810 . . . . . . . . . . . 12 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → (.r𝑟) = · )
2928oveqd 6828 . . . . . . . . . . 11 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → (𝑥(.r𝑟)𝑦) = (𝑥 · 𝑦))
3029neeq1d 2989 . . . . . . . . . 10 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → ((𝑥(.r𝑟)𝑦) ≠ 𝑧 ↔ (𝑥 · 𝑦) ≠ 𝑧))
3125, 30raleqbidv 3289 . . . . . . . . 9 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → (∀𝑦𝑏 (𝑥(.r𝑟)𝑦) ≠ 𝑧 ↔ ∀𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑧))
3225, 31raleqbidv 3289 . . . . . . . 8 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → (∀𝑥𝑏𝑦𝑏 (𝑥(.r𝑟)𝑦) ≠ 𝑧 ↔ ∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑧))
3325, 32rabeqbidv 3333 . . . . . . 7 ((𝑟 = 𝑅𝑏 = ((Base‘𝑟) ∖ (Unit‘𝑟))) → {𝑧𝑏 ∣ ∀𝑥𝑏𝑦𝑏 (𝑥(.r𝑟)𝑦) ≠ 𝑧} = {𝑧𝑁 ∣ ∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑧})
3415, 33csbied 3699 . . . . . 6 (𝑟 = 𝑅((Base‘𝑟) ∖ (Unit‘𝑟)) / 𝑏{𝑧𝑏 ∣ ∀𝑥𝑏𝑦𝑏 (𝑥(.r𝑟)𝑦) ≠ 𝑧} = {𝑧𝑁 ∣ ∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑧})
35 df-irred 18841 . . . . . 6 Irred = (𝑟 ∈ V ↦ ((Base‘𝑟) ∖ (Unit‘𝑟)) / 𝑏{𝑧𝑏 ∣ ∀𝑥𝑏𝑦𝑏 (𝑥(.r𝑟)𝑦) ≠ 𝑧})
36 fvex 6360 . . . . . . . . . 10 (Base‘𝑅) ∈ V
379, 36eqeltri 2833 . . . . . . . . 9 𝐵 ∈ V
38 difexg 4958 . . . . . . . . 9 (𝐵 ∈ V → (𝐵𝑈) ∈ V)
3937, 38ax-mp 5 . . . . . . . 8 (𝐵𝑈) ∈ V
407, 39eqeltri 2833 . . . . . . 7 𝑁 ∈ V
4140rabex 4962 . . . . . 6 {𝑧𝑁 ∣ ∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑧} ∈ V
4234, 35, 41fvmpt 6442 . . . . 5 (𝑅 ∈ V → (Irred‘𝑅) = {𝑧𝑁 ∣ ∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑧})
432, 42syl5eq 2804 . . . 4 (𝑅 ∈ V → 𝐼 = {𝑧𝑁 ∣ ∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑧})
4443eleq2d 2823 . . 3 (𝑅 ∈ V → (𝑋𝐼𝑋 ∈ {𝑧𝑁 ∣ ∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑧}))
45 neeq2 2993 . . . . 5 (𝑧 = 𝑋 → ((𝑥 · 𝑦) ≠ 𝑧 ↔ (𝑥 · 𝑦) ≠ 𝑋))
46452ralbidv 3125 . . . 4 (𝑧 = 𝑋 → (∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑧 ↔ ∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑋))
4746elrab 3502 . . 3 (𝑋 ∈ {𝑧𝑁 ∣ ∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑧} ↔ (𝑋𝑁 ∧ ∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑋))
4844, 47syl6bb 276 . 2 (𝑅 ∈ V → (𝑋𝐼 ↔ (𝑋𝑁 ∧ ∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑋)))
495, 12, 48pm5.21nii 367 1 (𝑋𝐼 ↔ (𝑋𝑁 ∧ ∀𝑥𝑁𝑦𝑁 (𝑥 · 𝑦) ≠ 𝑋))
Colors of variables: wff setvar class
Syntax hints:  wb 196  wa 383   = wceq 1630  wcel 2137  wne 2930  wral 3048  {crab 3052  Vcvv 3338  csb 3672  cdif 3710  dom cdm 5264  cfv 6047  (class class class)co 6811  Basecbs 16057  .rcmulr 16142  Unitcui 18837  Irredcir 18838
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1869  ax-4 1884  ax-5 1986  ax-6 2052  ax-7 2088  ax-8 2139  ax-9 2146  ax-10 2166  ax-11 2181  ax-12 2194  ax-13 2389  ax-ext 2738  ax-sep 4931  ax-nul 4939  ax-pow 4990  ax-pr 5053
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3an 1074  df-tru 1633  df-ex 1852  df-nf 1857  df-sb 2045  df-eu 2609  df-mo 2610  df-clab 2745  df-cleq 2751  df-clel 2754  df-nfc 2889  df-ne 2931  df-ral 3053  df-rex 3054  df-rab 3057  df-v 3340  df-sbc 3575  df-csb 3673  df-dif 3716  df-un 3718  df-in 3720  df-ss 3727  df-nul 4057  df-if 4229  df-sn 4320  df-pr 4322  df-op 4326  df-uni 4587  df-br 4803  df-opab 4863  df-mpt 4880  df-id 5172  df-xp 5270  df-rel 5271  df-cnv 5272  df-co 5273  df-dm 5274  df-iota 6010  df-fun 6049  df-fv 6055  df-ov 6814  df-irred 18841
This theorem is referenced by:  isnirred  18898  isirred2  18899  opprirred  18900
  Copyright terms: Public domain W3C validator