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

Theorem ig1peu 24471
Description: There is a unique monic polynomial of minimal degree in any nonzero ideal. (Contributed by Stefan O'Rear, 29-Mar-2015.) (Revised by AV, 25-Sep-2020.)
Hypotheses
Ref Expression
ig1peu.p 𝑃 = (Poly1𝑅)
ig1peu.u 𝑈 = (LIdeal‘𝑃)
ig1peu.z 0 = (0g𝑃)
ig1peu.m 𝑀 = (Monic1p𝑅)
ig1peu.d 𝐷 = ( deg1𝑅)
Assertion
Ref Expression
ig1peu ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → ∃!𝑔 ∈ (𝐼𝑀)(𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ))
Distinct variable groups:   𝐷,𝑔   𝑔,𝐼   𝑔,𝑀   𝑃,𝑔   𝑅,𝑔   𝑈,𝑔   0 ,𝑔

Proof of Theorem ig1peu
Dummy variable is distinct from all other variables.
StepHypRef Expression
1 eqid 2778 . . . . . . . . . . 11 (Base‘𝑃) = (Base‘𝑃)
2 ig1peu.u . . . . . . . . . . 11 𝑈 = (LIdeal‘𝑃)
31, 2lidlss 19707 . . . . . . . . . 10 (𝐼𝑈𝐼 ⊆ (Base‘𝑃))
433ad2ant2 1114 . . . . . . . . 9 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → 𝐼 ⊆ (Base‘𝑃))
54ssdifd 4009 . . . . . . . 8 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → (𝐼 ∖ { 0 }) ⊆ ((Base‘𝑃) ∖ { 0 }))
6 imass2 5807 . . . . . . . 8 ((𝐼 ∖ { 0 }) ⊆ ((Base‘𝑃) ∖ { 0 }) → (𝐷 “ (𝐼 ∖ { 0 })) ⊆ (𝐷 “ ((Base‘𝑃) ∖ { 0 })))
75, 6syl 17 . . . . . . 7 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → (𝐷 “ (𝐼 ∖ { 0 })) ⊆ (𝐷 “ ((Base‘𝑃) ∖ { 0 })))
8 drngring 19235 . . . . . . . . 9 (𝑅 ∈ DivRing → 𝑅 ∈ Ring)
983ad2ant1 1113 . . . . . . . 8 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → 𝑅 ∈ Ring)
10 ig1peu.d . . . . . . . . 9 𝐷 = ( deg1𝑅)
11 ig1peu.p . . . . . . . . 9 𝑃 = (Poly1𝑅)
12 ig1peu.z . . . . . . . . 9 0 = (0g𝑃)
1310, 11, 12, 1deg1n0ima 24389 . . . . . . . 8 (𝑅 ∈ Ring → (𝐷 “ ((Base‘𝑃) ∖ { 0 })) ⊆ ℕ0)
149, 13syl 17 . . . . . . 7 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → (𝐷 “ ((Base‘𝑃) ∖ { 0 })) ⊆ ℕ0)
157, 14sstrd 3870 . . . . . 6 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → (𝐷 “ (𝐼 ∖ { 0 })) ⊆ ℕ0)
16 nn0uz 12097 . . . . . 6 0 = (ℤ‘0)
1715, 16syl6sseq 3909 . . . . 5 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → (𝐷 “ (𝐼 ∖ { 0 })) ⊆ (ℤ‘0))
1811ply1ring 20122 . . . . . . . . . 10 (𝑅 ∈ Ring → 𝑃 ∈ Ring)
199, 18syl 17 . . . . . . . . 9 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → 𝑃 ∈ Ring)
20 simp2 1117 . . . . . . . . 9 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → 𝐼𝑈)
212, 12lidl0cl 19709 . . . . . . . . 9 ((𝑃 ∈ Ring ∧ 𝐼𝑈) → 0𝐼)
2219, 20, 21syl2anc 576 . . . . . . . 8 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → 0𝐼)
2322snssd 4617 . . . . . . 7 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → { 0 } ⊆ 𝐼)
24 simp3 1118 . . . . . . . 8 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → 𝐼 ≠ { 0 })
2524necomd 3022 . . . . . . 7 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → { 0 } ≠ 𝐼)
26 pssdifn0 4213 . . . . . . 7 (({ 0 } ⊆ 𝐼 ∧ { 0 } ≠ 𝐼) → (𝐼 ∖ { 0 }) ≠ ∅)
2723, 25, 26syl2anc 576 . . . . . 6 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → (𝐼 ∖ { 0 }) ≠ ∅)
2810, 11, 1deg1xrf 24381 . . . . . . . . . 10 𝐷:(Base‘𝑃)⟶ℝ*
29 ffn 6346 . . . . . . . . . 10 (𝐷:(Base‘𝑃)⟶ℝ*𝐷 Fn (Base‘𝑃))
3028, 29ax-mp 5 . . . . . . . . 9 𝐷 Fn (Base‘𝑃)
3130a1i 11 . . . . . . . 8 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → 𝐷 Fn (Base‘𝑃))
324ssdifssd 4011 . . . . . . . 8 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → (𝐼 ∖ { 0 }) ⊆ (Base‘𝑃))
33 fnimaeq0 6313 . . . . . . . 8 ((𝐷 Fn (Base‘𝑃) ∧ (𝐼 ∖ { 0 }) ⊆ (Base‘𝑃)) → ((𝐷 “ (𝐼 ∖ { 0 })) = ∅ ↔ (𝐼 ∖ { 0 }) = ∅))
3431, 32, 33syl2anc 576 . . . . . . 7 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → ((𝐷 “ (𝐼 ∖ { 0 })) = ∅ ↔ (𝐼 ∖ { 0 }) = ∅))
3534necon3bid 3011 . . . . . 6 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → ((𝐷 “ (𝐼 ∖ { 0 })) ≠ ∅ ↔ (𝐼 ∖ { 0 }) ≠ ∅))
3627, 35mpbird 249 . . . . 5 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → (𝐷 “ (𝐼 ∖ { 0 })) ≠ ∅)
37 infssuzcl 12149 . . . . 5 (((𝐷 “ (𝐼 ∖ { 0 })) ⊆ (ℤ‘0) ∧ (𝐷 “ (𝐼 ∖ { 0 })) ≠ ∅) → inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∈ (𝐷 “ (𝐼 ∖ { 0 })))
3817, 36, 37syl2anc 576 . . . 4 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∈ (𝐷 “ (𝐼 ∖ { 0 })))
3931, 32fvelimabd 6569 . . . 4 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → (inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∈ (𝐷 “ (𝐼 ∖ { 0 })) ↔ ∃ ∈ (𝐼 ∖ { 0 })(𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < )))
4038, 39mpbid 224 . . 3 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → ∃ ∈ (𝐼 ∖ { 0 })(𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ))
4119adantr 473 . . . . . . . 8 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → 𝑃 ∈ Ring)
42 simpl2 1172 . . . . . . . 8 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → 𝐼𝑈)
439adantr 473 . . . . . . . . . 10 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → 𝑅 ∈ Ring)
44 eqid 2778 . . . . . . . . . . 11 (algSc‘𝑃) = (algSc‘𝑃)
45 eqid 2778 . . . . . . . . . . 11 (Base‘𝑅) = (Base‘𝑅)
4611, 44, 45, 1ply1sclf 20159 . . . . . . . . . 10 (𝑅 ∈ Ring → (algSc‘𝑃):(Base‘𝑅)⟶(Base‘𝑃))
4743, 46syl 17 . . . . . . . . 9 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → (algSc‘𝑃):(Base‘𝑅)⟶(Base‘𝑃))
48 simpl1 1171 . . . . . . . . . . . . 13 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → 𝑅 ∈ DivRing)
4932sselda 3860 . . . . . . . . . . . . 13 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → ∈ (Base‘𝑃))
50 eldifsni 4597 . . . . . . . . . . . . . 14 ( ∈ (𝐼 ∖ { 0 }) → 0 )
5150adantl 474 . . . . . . . . . . . . 13 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → 0 )
52 eqid 2778 . . . . . . . . . . . . . 14 (Unic1p𝑅) = (Unic1p𝑅)
5311, 1, 12, 52drnguc1p 24470 . . . . . . . . . . . . 13 ((𝑅 ∈ DivRing ∧ ∈ (Base‘𝑃) ∧ 0 ) → ∈ (Unic1p𝑅))
5448, 49, 51, 53syl3anc 1351 . . . . . . . . . . . 12 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → ∈ (Unic1p𝑅))
55 eqid 2778 . . . . . . . . . . . . 13 (Unit‘𝑅) = (Unit‘𝑅)
5610, 55, 52uc1pldg 24448 . . . . . . . . . . . 12 ( ∈ (Unic1p𝑅) → ((coe1)‘(𝐷)) ∈ (Unit‘𝑅))
5754, 56syl 17 . . . . . . . . . . 11 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → ((coe1)‘(𝐷)) ∈ (Unit‘𝑅))
58 eqid 2778 . . . . . . . . . . . 12 (invr𝑅) = (invr𝑅)
5955, 58unitinvcl 19150 . . . . . . . . . . 11 ((𝑅 ∈ Ring ∧ ((coe1)‘(𝐷)) ∈ (Unit‘𝑅)) → ((invr𝑅)‘((coe1)‘(𝐷))) ∈ (Unit‘𝑅))
6043, 57, 59syl2anc 576 . . . . . . . . . 10 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → ((invr𝑅)‘((coe1)‘(𝐷))) ∈ (Unit‘𝑅))
6145, 55unitcl 19135 . . . . . . . . . 10 (((invr𝑅)‘((coe1)‘(𝐷))) ∈ (Unit‘𝑅) → ((invr𝑅)‘((coe1)‘(𝐷))) ∈ (Base‘𝑅))
6260, 61syl 17 . . . . . . . . 9 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → ((invr𝑅)‘((coe1)‘(𝐷))) ∈ (Base‘𝑅))
6347, 62ffvelrnd 6679 . . . . . . . 8 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → ((algSc‘𝑃)‘((invr𝑅)‘((coe1)‘(𝐷)))) ∈ (Base‘𝑃))
64 eldifi 3995 . . . . . . . . 9 ( ∈ (𝐼 ∖ { 0 }) → 𝐼)
6564adantl 474 . . . . . . . 8 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → 𝐼)
66 eqid 2778 . . . . . . . . 9 (.r𝑃) = (.r𝑃)
672, 1, 66lidlmcl 19714 . . . . . . . 8 (((𝑃 ∈ Ring ∧ 𝐼𝑈) ∧ (((algSc‘𝑃)‘((invr𝑅)‘((coe1)‘(𝐷)))) ∈ (Base‘𝑃) ∧ 𝐼)) → (((algSc‘𝑃)‘((invr𝑅)‘((coe1)‘(𝐷))))(.r𝑃)) ∈ 𝐼)
6841, 42, 63, 65, 67syl22anc 826 . . . . . . 7 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → (((algSc‘𝑃)‘((invr𝑅)‘((coe1)‘(𝐷))))(.r𝑃)) ∈ 𝐼)
69 ig1peu.m . . . . . . . . 9 𝑀 = (Monic1p𝑅)
7052, 69, 11, 66, 44, 10, 58uc1pmon1p 24451 . . . . . . . 8 ((𝑅 ∈ Ring ∧ ∈ (Unic1p𝑅)) → (((algSc‘𝑃)‘((invr𝑅)‘((coe1)‘(𝐷))))(.r𝑃)) ∈ 𝑀)
7143, 54, 70syl2anc 576 . . . . . . 7 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → (((algSc‘𝑃)‘((invr𝑅)‘((coe1)‘(𝐷))))(.r𝑃)) ∈ 𝑀)
7268, 71elind 4061 . . . . . 6 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → (((algSc‘𝑃)‘((invr𝑅)‘((coe1)‘(𝐷))))(.r𝑃)) ∈ (𝐼𝑀))
73 eqid 2778 . . . . . . . . . 10 (RLReg‘𝑅) = (RLReg‘𝑅)
7473, 55unitrrg 19790 . . . . . . . . 9 (𝑅 ∈ Ring → (Unit‘𝑅) ⊆ (RLReg‘𝑅))
7543, 74syl 17 . . . . . . . 8 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → (Unit‘𝑅) ⊆ (RLReg‘𝑅))
7675, 60sseldd 3861 . . . . . . 7 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → ((invr𝑅)‘((coe1)‘(𝐷))) ∈ (RLReg‘𝑅))
7710, 11, 73, 1, 66, 44deg1mul3 24415 . . . . . . 7 ((𝑅 ∈ Ring ∧ ((invr𝑅)‘((coe1)‘(𝐷))) ∈ (RLReg‘𝑅) ∧ ∈ (Base‘𝑃)) → (𝐷‘(((algSc‘𝑃)‘((invr𝑅)‘((coe1)‘(𝐷))))(.r𝑃))) = (𝐷))
7843, 76, 49, 77syl3anc 1351 . . . . . 6 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → (𝐷‘(((algSc‘𝑃)‘((invr𝑅)‘((coe1)‘(𝐷))))(.r𝑃))) = (𝐷))
79 fveqeq2 6510 . . . . . . 7 (𝑔 = (((algSc‘𝑃)‘((invr𝑅)‘((coe1)‘(𝐷))))(.r𝑃)) → ((𝐷𝑔) = (𝐷) ↔ (𝐷‘(((algSc‘𝑃)‘((invr𝑅)‘((coe1)‘(𝐷))))(.r𝑃))) = (𝐷)))
8079rspcev 3535 . . . . . 6 (((((algSc‘𝑃)‘((invr𝑅)‘((coe1)‘(𝐷))))(.r𝑃)) ∈ (𝐼𝑀) ∧ (𝐷‘(((algSc‘𝑃)‘((invr𝑅)‘((coe1)‘(𝐷))))(.r𝑃))) = (𝐷)) → ∃𝑔 ∈ (𝐼𝑀)(𝐷𝑔) = (𝐷))
8172, 78, 80syl2anc 576 . . . . 5 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → ∃𝑔 ∈ (𝐼𝑀)(𝐷𝑔) = (𝐷))
82 eqeq2 2789 . . . . . 6 ((𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) → ((𝐷𝑔) = (𝐷) ↔ (𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < )))
8382rexbidv 3242 . . . . 5 ((𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) → (∃𝑔 ∈ (𝐼𝑀)(𝐷𝑔) = (𝐷) ↔ ∃𝑔 ∈ (𝐼𝑀)(𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < )))
8481, 83syl5ibcom 237 . . . 4 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ ∈ (𝐼 ∖ { 0 })) → ((𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) → ∃𝑔 ∈ (𝐼𝑀)(𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < )))
8584rexlimdva 3229 . . 3 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → (∃ ∈ (𝐼 ∖ { 0 })(𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) → ∃𝑔 ∈ (𝐼𝑀)(𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < )))
8640, 85mpd 15 . 2 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → ∃𝑔 ∈ (𝐼𝑀)(𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ))
87 eqid 2778 . . . . . . 7 (-g𝑃) = (-g𝑃)
889ad2antrr 713 . . . . . . 7 ((((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) ∧ ((𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∧ (𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ))) → 𝑅 ∈ Ring)
89 simprl 758 . . . . . . . . 9 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → 𝑔 ∈ (𝐼𝑀))
9089elin2d 4066 . . . . . . . 8 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → 𝑔𝑀)
9190adantr 473 . . . . . . 7 ((((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) ∧ ((𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∧ (𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ))) → 𝑔𝑀)
92 simprl 758 . . . . . . 7 ((((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) ∧ ((𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∧ (𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ))) → (𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ))
93 simprr 760 . . . . . . . . 9 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → ∈ (𝐼𝑀))
9493elin2d 4066 . . . . . . . 8 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → 𝑀)
9594adantr 473 . . . . . . 7 ((((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) ∧ ((𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∧ (𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ))) → 𝑀)
96 simprr 760 . . . . . . 7 ((((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) ∧ ((𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∧ (𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ))) → (𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ))
9710, 69, 11, 87, 88, 91, 92, 95, 96deg1submon1p 24452 . . . . . 6 ((((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) ∧ ((𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∧ (𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ))) → (𝐷‘(𝑔(-g𝑃))) < inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ))
9897ex 405 . . . . 5 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → (((𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∧ (𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < )) → (𝐷‘(𝑔(-g𝑃))) < inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < )))
9917ad2antrr 713 . . . . . . . . 9 ((((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) ∧ (𝑔(-g𝑃)) ≠ 0 ) → (𝐷 “ (𝐼 ∖ { 0 })) ⊆ (ℤ‘0))
10030a1i 11 . . . . . . . . . 10 ((((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) ∧ (𝑔(-g𝑃)) ≠ 0 ) → 𝐷 Fn (Base‘𝑃))
10132ad2antrr 713 . . . . . . . . . 10 ((((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) ∧ (𝑔(-g𝑃)) ≠ 0 ) → (𝐼 ∖ { 0 }) ⊆ (Base‘𝑃))
10219adantr 473 . . . . . . . . . . . . 13 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → 𝑃 ∈ Ring)
103 simpl2 1172 . . . . . . . . . . . . 13 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → 𝐼𝑈)
10489elin1d 4065 . . . . . . . . . . . . 13 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → 𝑔𝐼)
10593elin1d 4065 . . . . . . . . . . . . 13 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → 𝐼)
1062, 87lidlsubcl 19713 . . . . . . . . . . . . 13 (((𝑃 ∈ Ring ∧ 𝐼𝑈) ∧ (𝑔𝐼𝐼)) → (𝑔(-g𝑃)) ∈ 𝐼)
107102, 103, 104, 105, 106syl22anc 826 . . . . . . . . . . . 12 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → (𝑔(-g𝑃)) ∈ 𝐼)
108107adantr 473 . . . . . . . . . . 11 ((((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) ∧ (𝑔(-g𝑃)) ≠ 0 ) → (𝑔(-g𝑃)) ∈ 𝐼)
109 simpr 477 . . . . . . . . . . 11 ((((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) ∧ (𝑔(-g𝑃)) ≠ 0 ) → (𝑔(-g𝑃)) ≠ 0 )
110 eldifsn 4594 . . . . . . . . . . 11 ((𝑔(-g𝑃)) ∈ (𝐼 ∖ { 0 }) ↔ ((𝑔(-g𝑃)) ∈ 𝐼 ∧ (𝑔(-g𝑃)) ≠ 0 ))
111108, 109, 110sylanbrc 575 . . . . . . . . . 10 ((((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) ∧ (𝑔(-g𝑃)) ≠ 0 ) → (𝑔(-g𝑃)) ∈ (𝐼 ∖ { 0 }))
112 fnfvima 6822 . . . . . . . . . 10 ((𝐷 Fn (Base‘𝑃) ∧ (𝐼 ∖ { 0 }) ⊆ (Base‘𝑃) ∧ (𝑔(-g𝑃)) ∈ (𝐼 ∖ { 0 })) → (𝐷‘(𝑔(-g𝑃))) ∈ (𝐷 “ (𝐼 ∖ { 0 })))
113100, 101, 111, 112syl3anc 1351 . . . . . . . . 9 ((((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) ∧ (𝑔(-g𝑃)) ≠ 0 ) → (𝐷‘(𝑔(-g𝑃))) ∈ (𝐷 “ (𝐼 ∖ { 0 })))
114 infssuzle 12148 . . . . . . . . 9 (((𝐷 “ (𝐼 ∖ { 0 })) ⊆ (ℤ‘0) ∧ (𝐷‘(𝑔(-g𝑃))) ∈ (𝐷 “ (𝐼 ∖ { 0 }))) → inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ≤ (𝐷‘(𝑔(-g𝑃))))
11599, 113, 114syl2anc 576 . . . . . . . 8 ((((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) ∧ (𝑔(-g𝑃)) ≠ 0 ) → inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ≤ (𝐷‘(𝑔(-g𝑃))))
116115ex 405 . . . . . . 7 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → ((𝑔(-g𝑃)) ≠ 0 → inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ≤ (𝐷‘(𝑔(-g𝑃)))))
117 imassrn 5783 . . . . . . . . . . 11 (𝐷 “ (𝐼 ∖ { 0 })) ⊆ ran 𝐷
118 frn 6352 . . . . . . . . . . . 12 (𝐷:(Base‘𝑃)⟶ℝ* → ran 𝐷 ⊆ ℝ*)
11928, 118ax-mp 5 . . . . . . . . . . 11 ran 𝐷 ⊆ ℝ*
120117, 119sstri 3869 . . . . . . . . . 10 (𝐷 “ (𝐼 ∖ { 0 })) ⊆ ℝ*
121120, 38sseldi 3858 . . . . . . . . 9 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∈ ℝ*)
122121adantr 473 . . . . . . . 8 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∈ ℝ*)
123 ringgrp 19028 . . . . . . . . . . . 12 (𝑃 ∈ Ring → 𝑃 ∈ Grp)
12419, 123syl 17 . . . . . . . . . . 11 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → 𝑃 ∈ Grp)
125124adantr 473 . . . . . . . . . 10 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → 𝑃 ∈ Grp)
126 inss1 4094 . . . . . . . . . . . . 13 (𝐼𝑀) ⊆ 𝐼
127126, 4syl5ss 3871 . . . . . . . . . . . 12 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → (𝐼𝑀) ⊆ (Base‘𝑃))
128127adantr 473 . . . . . . . . . . 11 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → (𝐼𝑀) ⊆ (Base‘𝑃))
129128, 89sseldd 3861 . . . . . . . . . 10 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → 𝑔 ∈ (Base‘𝑃))
130128, 93sseldd 3861 . . . . . . . . . 10 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → ∈ (Base‘𝑃))
1311, 87grpsubcl 17969 . . . . . . . . . 10 ((𝑃 ∈ Grp ∧ 𝑔 ∈ (Base‘𝑃) ∧ ∈ (Base‘𝑃)) → (𝑔(-g𝑃)) ∈ (Base‘𝑃))
132125, 129, 130, 131syl3anc 1351 . . . . . . . . 9 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → (𝑔(-g𝑃)) ∈ (Base‘𝑃))
13310, 11, 1deg1xrcl 24382 . . . . . . . . 9 ((𝑔(-g𝑃)) ∈ (Base‘𝑃) → (𝐷‘(𝑔(-g𝑃))) ∈ ℝ*)
134132, 133syl 17 . . . . . . . 8 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → (𝐷‘(𝑔(-g𝑃))) ∈ ℝ*)
135122, 134xrlenltd 10509 . . . . . . 7 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → (inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ≤ (𝐷‘(𝑔(-g𝑃))) ↔ ¬ (𝐷‘(𝑔(-g𝑃))) < inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < )))
136116, 135sylibd 231 . . . . . 6 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → ((𝑔(-g𝑃)) ≠ 0 → ¬ (𝐷‘(𝑔(-g𝑃))) < inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < )))
137136necon4ad 2986 . . . . 5 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → ((𝐷‘(𝑔(-g𝑃))) < inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) → (𝑔(-g𝑃)) = 0 ))
13898, 137syld 47 . . . 4 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → (((𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∧ (𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < )) → (𝑔(-g𝑃)) = 0 ))
1391, 12, 87grpsubeq0 17975 . . . . 5 ((𝑃 ∈ Grp ∧ 𝑔 ∈ (Base‘𝑃) ∧ ∈ (Base‘𝑃)) → ((𝑔(-g𝑃)) = 0𝑔 = ))
140125, 129, 130, 139syl3anc 1351 . . . 4 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → ((𝑔(-g𝑃)) = 0𝑔 = ))
141138, 140sylibd 231 . . 3 (((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) ∧ (𝑔 ∈ (𝐼𝑀) ∧ ∈ (𝐼𝑀))) → (((𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∧ (𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < )) → 𝑔 = ))
142141ralrimivva 3141 . 2 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → ∀𝑔 ∈ (𝐼𝑀)∀ ∈ (𝐼𝑀)(((𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∧ (𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < )) → 𝑔 = ))
143 fveqeq2 6510 . . 3 (𝑔 = → ((𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ↔ (𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < )))
144143reu4 3636 . 2 (∃!𝑔 ∈ (𝐼𝑀)(𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ↔ (∃𝑔 ∈ (𝐼𝑀)(𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∧ ∀𝑔 ∈ (𝐼𝑀)∀ ∈ (𝐼𝑀)(((𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ) ∧ (𝐷) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < )) → 𝑔 = )))
14586, 142, 144sylanbrc 575 1 ((𝑅 ∈ DivRing ∧ 𝐼𝑈𝐼 ≠ { 0 }) → ∃!𝑔 ∈ (𝐼𝑀)(𝐷𝑔) = inf((𝐷 “ (𝐼 ∖ { 0 })), ℝ, < ))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 198  wa 387  w3a 1068   = wceq 1507  wcel 2050  wne 2967  wral 3088  wrex 3089  ∃!wreu 3090  cdif 3828  cin 3830  wss 3831  c0 4180  {csn 4442   class class class wbr 4930  ran crn 5409  cima 5411   Fn wfn 6185  wf 6186  cfv 6190  (class class class)co 6978  infcinf 8702  cr 10336  0cc0 10337  *cxr 10475   < clt 10476  cle 10477  0cn0 11710  cuz 12061  Basecbs 16342  .rcmulr 16425  0gc0g 16572  Grpcgrp 17894  -gcsg 17896  Ringcrg 19023  Unitcui 19115  invrcinvr 19147  DivRingcdr 19228  LIdealclidl 19667  RLRegcrlreg 19776  algSccascl 19808  Poly1cpl1 20051  coe1cco1 20052   deg1 cdg1 24354  Monic1pcmn1 24425  Unic1pcuc1p 24426
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1965  ax-8 2052  ax-9 2059  ax-10 2079  ax-11 2093  ax-12 2106  ax-13 2301  ax-ext 2750  ax-rep 5050  ax-sep 5061  ax-nul 5068  ax-pow 5120  ax-pr 5187  ax-un 7281  ax-cnex 10393  ax-resscn 10394  ax-1cn 10395  ax-icn 10396  ax-addcl 10397  ax-addrcl 10398  ax-mulcl 10399  ax-mulrcl 10400  ax-mulcom 10401  ax-addass 10402  ax-mulass 10403  ax-distr 10404  ax-i2m1 10405  ax-1ne0 10406  ax-1rid 10407  ax-rnegex 10408  ax-rrecex 10409  ax-cnre 10410  ax-pre-lttri 10411  ax-pre-lttrn 10412  ax-pre-ltadd 10413  ax-pre-mulgt0 10414  ax-pre-sup 10415  ax-addf 10416  ax-mulf 10417
This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3or 1069  df-3an 1070  df-tru 1510  df-ex 1743  df-nf 1747  df-sb 2016  df-mo 2547  df-eu 2583  df-clab 2759  df-cleq 2771  df-clel 2846  df-nfc 2918  df-ne 2968  df-nel 3074  df-ral 3093  df-rex 3094  df-reu 3095  df-rmo 3096  df-rab 3097  df-v 3417  df-sbc 3684  df-csb 3789  df-dif 3834  df-un 3836  df-in 3838  df-ss 3845  df-pss 3847  df-nul 4181  df-if 4352  df-pw 4425  df-sn 4443  df-pr 4445  df-tp 4447  df-op 4449  df-uni 4714  df-int 4751  df-iun 4795  df-iin 4796  df-br 4931  df-opab 4993  df-mpt 5010  df-tr 5032  df-id 5313  df-eprel 5318  df-po 5327  df-so 5328  df-fr 5367  df-se 5368  df-we 5369  df-xp 5414  df-rel 5415  df-cnv 5416  df-co 5417  df-dm 5418  df-rn 5419  df-res 5420  df-ima 5421  df-pred 5988  df-ord 6034  df-on 6035  df-lim 6036  df-suc 6037  df-iota 6154  df-fun 6192  df-fn 6193  df-f 6194  df-f1 6195  df-fo 6196  df-f1o 6197  df-fv 6198  df-isom 6199  df-riota 6939  df-ov 6981  df-oprab 6982  df-mpo 6983  df-of 7229  df-ofr 7230  df-om 7399  df-1st 7503  df-2nd 7504  df-supp 7636  df-tpos 7697  df-wrecs 7752  df-recs 7814  df-rdg 7852  df-1o 7907  df-2o 7908  df-oadd 7911  df-er 8091  df-map 8210  df-pm 8211  df-ixp 8262  df-en 8309  df-dom 8310  df-sdom 8311  df-fin 8312  df-fsupp 8631  df-sup 8703  df-inf 8704  df-oi 8771  df-card 9164  df-pnf 10478  df-mnf 10479  df-xr 10480  df-ltxr 10481  df-le 10482  df-sub 10674  df-neg 10675  df-nn 11442  df-2 11506  df-3 11507  df-4 11508  df-5 11509  df-6 11510  df-7 11511  df-8 11512  df-9 11513  df-n0 11711  df-z 11797  df-dec 11915  df-uz 12062  df-fz 12712  df-fzo 12853  df-seq 13188  df-hash 13509  df-struct 16344  df-ndx 16345  df-slot 16346  df-base 16348  df-sets 16349  df-ress 16350  df-plusg 16437  df-mulr 16438  df-starv 16439  df-sca 16440  df-vsca 16441  df-ip 16442  df-tset 16443  df-ple 16444  df-ds 16446  df-unif 16447  df-0g 16574  df-gsum 16575  df-mre 16718  df-mrc 16719  df-acs 16721  df-mgm 17713  df-sgrp 17755  df-mnd 17766  df-mhm 17806  df-submnd 17807  df-grp 17897  df-minusg 17898  df-sbg 17899  df-mulg 18015  df-subg 18063  df-ghm 18130  df-cntz 18221  df-cmn 18671  df-abl 18672  df-mgp 18966  df-ur 18978  df-ring 19025  df-cring 19026  df-oppr 19099  df-dvdsr 19117  df-unit 19118  df-invr 19148  df-drng 19230  df-subrg 19259  df-lmod 19361  df-lss 19429  df-sra 19669  df-rgmod 19670  df-lidl 19671  df-rlreg 19780  df-ascl 19811  df-psr 19853  df-mvr 19854  df-mpl 19855  df-opsr 19857  df-psr1 20054  df-vr1 20055  df-ply1 20056  df-coe1 20057  df-cnfld 20251  df-mdeg 24355  df-deg1 24356  df-mon1 24430  df-uc1p 24431
This theorem is referenced by:  ig1pval3  24474
  Copyright terms: Public domain W3C validator