Theorem algextdeglem7 33068

Description: Lemma for algextdeg 33070. (Contributed by Thierry Arnoux, 2-Apr-2025.)

Hypotheses

Ref	Expression
algextdeg.k	⊢ 𝐾 = (𝐸 ↾s 𝐹)
algextdeg.l	⊢ 𝐿 = (𝐸 ↾s (𝐸 fldGen (𝐹 ∪ {𝐴})))
algextdeg.d	⊢ 𝐷 = ( deg1 ‘𝐸)
algextdeg.m	⊢ 𝑀 = (𝐸 minPoly 𝐹)
algextdeg.f	⊢ (𝜑 → 𝐸 ∈ Field)
algextdeg.e	⊢ (𝜑 → 𝐹 ∈ (SubDRing‘𝐸))
algextdeg.a	⊢ (𝜑 → 𝐴 ∈ (𝐸 IntgRing 𝐹))
algextdeglem.o	⊢ 𝑂 = (𝐸 evalSub1 𝐹)
algextdeglem.y	⊢ 𝑃 = (Poly1‘𝐾)
algextdeglem.u	⊢ 𝑈 = (Base‘𝑃)
algextdeglem.g	⊢ 𝐺 = (𝑝 ∈ 𝑈 ↦ ((𝑂‘𝑝)‘𝐴))
algextdeglem.n	⊢ 𝑁 = (𝑥 ∈ 𝑈 ↦ [𝑥](𝑃 ~QG 𝑍))
algextdeglem.z	⊢ 𝑍 = (◡𝐺 “ {(0g‘𝐿)})
algextdeglem.q	⊢ 𝑄 = (𝑃 /s (𝑃 ~QG 𝑍))
algextdeglem.j	⊢ 𝐽 = (𝑝 ∈ (Base‘𝑄) ↦ ∪ (𝐺 “ 𝑝))
algextdeglem.r	⊢ 𝑅 = (rem1p‘𝐾)
algextdeglem.h	⊢ 𝐻 = (𝑝 ∈ 𝑈 ↦ (𝑝𝑅(𝑀‘𝐴)))
algextdeglem.t	⊢ 𝑇 = (◡( deg1 ‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴))))
algextdeglem.x	⊢ (𝜑 → 𝑋 ∈ 𝑈)

Assertion

Ref	Expression
algextdeglem7	⊢ (𝜑 → (𝑋 ∈ 𝑇 ↔ (𝐻‘𝑋) = 𝑋))

Distinct variable groups:   𝐴,𝑝   𝐸,𝑝   𝐹,𝑝   𝑀,𝑝   𝑂,𝑝   𝑃,𝑝   𝑅,𝑝   𝑈,𝑝   𝑋,𝑝   𝜑,𝑝

Allowed substitution hints:   𝜑(𝑥)   𝐴(𝑥)   𝐷(𝑥,𝑝)   𝑃(𝑥)   𝑄(𝑥,𝑝)   𝑅(𝑥)   𝑇(𝑥,𝑝)   𝑈(𝑥)   𝐸(𝑥)   𝐹(𝑥)   𝐺(𝑥,𝑝)   𝐻(𝑥,𝑝)   𝐽(𝑥,𝑝)   𝐾(𝑥,𝑝)   𝐿(𝑥,𝑝)   𝑀(𝑥)   𝑁(𝑥,𝑝)   𝑂(𝑥)   𝑋(𝑥)   𝑍(𝑥,𝑝)

Proof of Theorem algextdeglem7

Step	Hyp	Ref	Expression
1		algextdeg.k	. . . . 5 ⊢ 𝐾 = (𝐸 ↾s 𝐹)
2		algextdeg.d	. . . . 5 ⊢ 𝐷 = ( deg1 ‘𝐸)
3		algextdeglem.y	. . . . 5 ⊢ 𝑃 = (Poly1‘𝐾)
4		algextdeglem.u	. . . . 5 ⊢ 𝑈 = (Base‘𝑃)
5		algextdeglem.o	. . . . . . 7 ⊢ 𝑂 = (𝐸 evalSub1 𝐹)
6	1	fveq2i 6893	. . . . . . . 8 ⊢ (Poly1‘𝐾) = (Poly1‘(𝐸 ↾s 𝐹))
7	3, 6	eqtri 2758	. . . . . . 7 ⊢ 𝑃 = (Poly1‘(𝐸 ↾s 𝐹))
8		eqid 2730	. . . . . . 7 ⊢ (Base‘𝐸) = (Base‘𝐸)
9		algextdeg.f	. . . . . . 7 ⊢ (𝜑 → 𝐸 ∈ Field)
10		algextdeg.e	. . . . . . 7 ⊢ (𝜑 → 𝐹 ∈ (SubDRing‘𝐸))
11		eqid 2730	. . . . . . . . 9 ⊢ (0g‘𝐸) = (0g‘𝐸)
12	9	fldcrngd 20513	. . . . . . . . 9 ⊢ (𝜑 → 𝐸 ∈ CRing)
13		sdrgsubrg 20550	. . . . . . . . . 10 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐹 ∈ (SubRing‘𝐸))
14	10, 13	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ∈ (SubRing‘𝐸))
15	5, 1, 8, 11, 12, 14	irngssv 33041	. . . . . . . 8 ⊢ (𝜑 → (𝐸 IntgRing 𝐹) ⊆ (Base‘𝐸))
16		algextdeg.a	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ (𝐸 IntgRing 𝐹))
17	15, 16	sseldd 3982	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ (Base‘𝐸))
18		eqid 2730	. . . . . . 7 ⊢ {𝑝 ∈ dom 𝑂 ∣ ((𝑂‘𝑝)‘𝐴) = (0g‘𝐸)} = {𝑝 ∈ dom 𝑂 ∣ ((𝑂‘𝑝)‘𝐴) = (0g‘𝐸)}
19		eqid 2730	. . . . . . 7 ⊢ (RSpan‘𝑃) = (RSpan‘𝑃)
20		eqid 2730	. . . . . . 7 ⊢ (idlGen1p‘(𝐸 ↾s 𝐹)) = (idlGen1p‘(𝐸 ↾s 𝐹))
21		algextdeg.m	. . . . . . 7 ⊢ 𝑀 = (𝐸 minPoly 𝐹)
22	5, 7, 8, 9, 10, 17, 11, 18, 19, 20, 21	minplycl 33056	. . . . . 6 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Base‘𝑃))
23	22, 4	eleqtrrdi 2842	. . . . 5 ⊢ (𝜑 → (𝑀‘𝐴) ∈ 𝑈)
24	1, 2, 3, 4, 23, 14	ressdeg1 32925	. . . 4 ⊢ (𝜑 → (𝐷‘(𝑀‘𝐴)) = (( deg1 ‘𝐾)‘(𝑀‘𝐴)))
25	24	breq2d 5159	. . 3 ⊢ (𝜑 → ((( deg1 ‘𝐾)‘𝑋) < (𝐷‘(𝑀‘𝐴)) ↔ (( deg1 ‘𝐾)‘𝑋) < (( deg1 ‘𝐾)‘(𝑀‘𝐴))))
26		algextdeglem.x	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝑈)
27		eqid 2730	. . . . 5 ⊢ ( deg1 ‘𝐾) = ( deg1 ‘𝐾)
28		algextdeglem.t	. . . . 5 ⊢ 𝑇 = (◡( deg1 ‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴))))
29	9	flddrngd 20512	. . . . . . 7 ⊢ (𝜑 → 𝐸 ∈ DivRing)
30	29	drngringd 20508	. . . . . 6 ⊢ (𝜑 → 𝐸 ∈ Ring)
31		eqid 2730	. . . . . . . . 9 ⊢ (Poly1‘𝐸) = (Poly1‘𝐸)
32		eqid 2730	. . . . . . . . 9 ⊢ (PwSer1‘𝐾) = (PwSer1‘𝐾)
33		eqid 2730	. . . . . . . . 9 ⊢ (Base‘(PwSer1‘𝐾)) = (Base‘(PwSer1‘𝐾))
34		eqid 2730	. . . . . . . . 9 ⊢ (Base‘(Poly1‘𝐸)) = (Base‘(Poly1‘𝐸))
35	31, 1, 3, 4, 14, 32, 33, 34	ressply1bas2 21970	. . . . . . . 8 ⊢ (𝜑 → 𝑈 = ((Base‘(PwSer1‘𝐾)) ∩ (Base‘(Poly1‘𝐸))))
36		inss2 4228	. . . . . . . 8 ⊢ ((Base‘(PwSer1‘𝐾)) ∩ (Base‘(Poly1‘𝐸))) ⊆ (Base‘(Poly1‘𝐸))
37	35, 36	eqsstrdi 4035	. . . . . . 7 ⊢ (𝜑 → 𝑈 ⊆ (Base‘(Poly1‘𝐸)))
38	37, 23	sseldd 3982	. . . . . 6 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Base‘(Poly1‘𝐸)))
39		eqid 2730	. . . . . . 7 ⊢ (0g‘(Poly1‘𝐸)) = (0g‘(Poly1‘𝐸))
40	39, 9, 10, 21, 16	irngnminplynz 33060	. . . . . 6 ⊢ (𝜑 → (𝑀‘𝐴) ≠ (0g‘(Poly1‘𝐸)))
41	2, 31, 39, 34	deg1nn0cl 25841	. . . . . 6 ⊢ ((𝐸 ∈ Ring ∧ (𝑀‘𝐴) ∈ (Base‘(Poly1‘𝐸)) ∧ (𝑀‘𝐴) ≠ (0g‘(Poly1‘𝐸))) → (𝐷‘(𝑀‘𝐴)) ∈ ℕ0)
42	30, 38, 40, 41	syl3anc 1369	. . . . 5 ⊢ (𝜑 → (𝐷‘(𝑀‘𝐴)) ∈ ℕ0)
43		fldsdrgfld 20557	. . . . . . . . 9 ⊢ ((𝐸 ∈ Field ∧ 𝐹 ∈ (SubDRing‘𝐸)) → (𝐸 ↾s 𝐹) ∈ Field)
44	9, 10, 43	syl2anc 582	. . . . . . . 8 ⊢ (𝜑 → (𝐸 ↾s 𝐹) ∈ Field)
45	1, 44	eqeltrid 2835	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ Field)
46		fldidom 21123	. . . . . . 7 ⊢ (𝐾 ∈ Field → 𝐾 ∈ IDomn)
47	45, 46	syl 17	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ IDomn)
48	47	idomringd 32645	. . . . 5 ⊢ (𝜑 → 𝐾 ∈ Ring)
49	3, 27, 28, 42, 48, 4	ply1degleel 32941	. . . 4 ⊢ (𝜑 → (𝑋 ∈ 𝑇 ↔ (𝑋 ∈ 𝑈 ∧ (( deg1 ‘𝐾)‘𝑋) < (𝐷‘(𝑀‘𝐴)))))
50	26, 49	mpbirand 703	. . 3 ⊢ (𝜑 → (𝑋 ∈ 𝑇 ↔ (( deg1 ‘𝐾)‘𝑋) < (𝐷‘(𝑀‘𝐴))))
51		eqid 2730	. . . 4 ⊢ (Unic1p‘𝐾) = (Unic1p‘𝐾)
52		algextdeglem.r	. . . 4 ⊢ 𝑅 = (rem1p‘𝐾)
53	1	fveq2i 6893	. . . . . 6 ⊢ (Monic1p‘𝐾) = (Monic1p‘(𝐸 ↾s 𝐹))
54	39, 9, 10, 21, 16, 53	minplym1p 33061	. . . . 5 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Monic1p‘𝐾))
55		eqid 2730	. . . . . 6 ⊢ (Monic1p‘𝐾) = (Monic1p‘𝐾)
56	51, 55	mon1puc1p 25903	. . . . 5 ⊢ ((𝐾 ∈ Ring ∧ (𝑀‘𝐴) ∈ (Monic1p‘𝐾)) → (𝑀‘𝐴) ∈ (Unic1p‘𝐾))
57	48, 54, 56	syl2anc 582	. . . 4 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Unic1p‘𝐾))
58	3, 4, 51, 52, 47, 27, 26, 57	r1pid2 32954	. . 3 ⊢ (𝜑 → ((𝑋𝑅(𝑀‘𝐴)) = 𝑋 ↔ (( deg1 ‘𝐾)‘𝑋) < (( deg1 ‘𝐾)‘(𝑀‘𝐴))))
59	25, 50, 58	3bitr4d 310	. 2 ⊢ (𝜑 → (𝑋 ∈ 𝑇 ↔ (𝑋𝑅(𝑀‘𝐴)) = 𝑋))
60		algextdeglem.h	. . . 4 ⊢ 𝐻 = (𝑝 ∈ 𝑈 ↦ (𝑝𝑅(𝑀‘𝐴)))
61		oveq1 7418	. . . 4 ⊢ (𝑝 = 𝑋 → (𝑝𝑅(𝑀‘𝐴)) = (𝑋𝑅(𝑀‘𝐴)))
62		ovexd 7446	. . . 4 ⊢ (𝜑 → (𝑋𝑅(𝑀‘𝐴)) ∈ V)
63	60, 61, 26, 62	fvmptd3 7020	. . 3 ⊢ (𝜑 → (𝐻‘𝑋) = (𝑋𝑅(𝑀‘𝐴)))
64	63	eqeq1d 2732	. 2 ⊢ (𝜑 → ((𝐻‘𝑋) = 𝑋 ↔ (𝑋𝑅(𝑀‘𝐴)) = 𝑋))
65	59, 64	bitr4d 281	1 ⊢ (𝜑 → (𝑋 ∈ 𝑇 ↔ (𝐻‘𝑋) = 𝑋))

Syntax hints:   → wi 4   ↔ wb 205   = wceq 1539   ∈ wcel 2104   ≠ wne 2938  {crab 3430  Vcvv 3472   ∪ cun 3945   ∩ cin 3946  {csn 4627  ∪ cuni 4907   class class class wbr 5147   ↦ cmpt 5230  ^◡ccnv 5674  dom cdm 5675   “ cima 5678  ‘cfv 6542  (class class class)co 7411  [cec 8703  -∞cmnf 11250   < clt 11252  ℕ₀cn0 12476  [,)cico 13330  Basecbs 17148   ↾_s cress 17177  0_gc0g 17389   /_s cqus 17455   ~_QG cqg 19038  Ringcrg 20127  SubRingcsubrg 20457  Fieldcfield 20501  SubDRingcsdrg 20545  RSpancrsp 20929  IDomncidom 21097  PwSer₁cps1 21918  Poly₁cpl1 21920   evalSub₁ ces1 22052   deg₁ cdg1 25804  Monic_1pcmn1 25878  Unic_1pcuc1p 25879  rem_1pcr1p 25881  idlGen_1pcig1p 25882   fldGen cfldgen 32670   IntgRing cirng 33036   minPoly cminply 33045

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1911  ax-6 1969  ax-7 2009  ax-8 2106  ax-9 2114  ax-10 2135  ax-11 2152  ax-12 2169  ax-ext 2701  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7727  ax-cnex 11168  ax-resscn 11169  ax-1cn 11170  ax-icn 11171  ax-addcl 11172  ax-addrcl 11173  ax-mulcl 11174  ax-mulrcl 11175  ax-mulcom 11176  ax-addass 11177  ax-mulass 11178  ax-distr 11179  ax-i2m1 11180  ax-1ne0 11181  ax-1rid 11182  ax-rnegex 11183  ax-rrecex 11184  ax-cnre 11185  ax-pre-lttri 11186  ax-pre-lttrn 11187  ax-pre-ltadd 11188  ax-pre-mulgt0 11189  ax-pre-sup 11190  ax-addf 11191  ax-mulf 11192

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2532  df-eu 2561  df-clab 2708  df-cleq 2722  df-clel 2808  df-nfc 2883  df-ne 2939  df-nel 3045  df-ral 3060  df-rex 3069  df-rmo 3374  df-reu 3375  df-rab 3431  df-v 3474  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-tp 4632  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-iin 4999  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6299  df-ord 6366  df-on 6367  df-lim 6368  df-suc 6369  df-iota 6494  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549  df-fv 6550  df-isom 6551  df-riota 7367  df-ov 7414  df-oprab 7415  df-mpo 7416  df-of 7672  df-ofr 7673  df-om 7858  df-1st 7977  df-2nd 7978  df-supp 8149  df-tpos 8213  df-frecs 8268  df-wrecs 8299  df-recs 8373  df-rdg 8412  df-1o 8468  df-er 8705  df-map 8824  df-pm 8825  df-ixp 8894  df-en 8942  df-dom 8943  df-sdom 8944  df-fin 8945  df-fsupp 9364  df-sup 9439  df-inf 9440  df-oi 9507  df-card 9936  df-pnf 11254  df-mnf 11255  df-xr 11256  df-ltxr 11257  df-le 11258  df-sub 11450  df-neg 11451  df-nn 12217  df-2 12279  df-3 12280  df-4 12281  df-5 12282  df-6 12283  df-7 12284  df-8 12285  df-9 12286  df-n0 12477  df-z 12563  df-dec 12682  df-uz 12827  df-ico 13334  df-fz 13489  df-fzo 13632  df-seq 13971  df-hash 14295  df-struct 17084  df-sets 17101  df-slot 17119  df-ndx 17131  df-base 17149  df-ress 17178  df-plusg 17214  df-mulr 17215  df-starv 17216  df-sca 17217  df-vsca 17218  df-ip 17219  df-tset 17220  df-ple 17221  df-ds 17223  df-unif 17224  df-hom 17225  df-cco 17226  df-0g 17391  df-gsum 17392  df-prds 17397  df-pws 17399  df-mre 17534  df-mrc 17535  df-acs 17537  df-mgm 18565  df-sgrp 18644  df-mnd 18660  df-mhm 18705  df-submnd 18706  df-grp 18858  df-minusg 18859  df-sbg 18860  df-mulg 18987  df-subg 19039  df-ghm 19128  df-cntz 19222  df-cmn 19691  df-abl 19692  df-mgp 20029  df-rng 20047  df-ur 20076  df-srg 20081  df-ring 20129  df-cring 20130  df-oppr 20225  df-dvdsr 20248  df-unit 20249  df-invr 20279  df-rhm 20363  df-nzr 20404  df-subrng 20434  df-subrg 20459  df-drng 20502  df-field 20503  df-sdrg 20546  df-lmod 20616  df-lss 20687  df-lsp 20727  df-sra 20930  df-rgmod 20931  df-lidl 20932  df-rsp 20933  df-rlreg 21099  df-domn 21100  df-idom 21101  df-cnfld 21145  df-assa 21627  df-asp 21628  df-ascl 21629  df-psr 21681  df-mvr 21682  df-mpl 21683  df-opsr 21685  df-evls 21854  df-evl 21855  df-psr1 21923  df-vr1 21924  df-ply1 21925  df-coe1 21926  df-evls1 22054  df-evl1 22055  df-mdeg 25805  df-deg1 25806  df-mon1 25883  df-uc1p 25884  df-q1p 25885  df-r1p 25886  df-ig1p 25887  df-irng 33037  df-minply 33046

This theorem is referenced by:  algextdeglem8  33069