Theorem algextdeglem8 33715

Description: Lemma for algextdeg 33716. The dimension of the univariate polynomial remainder ring (𝐻 “_s 𝑃) is the degree of the minimal polynomial. (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‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴))))

Assertion

Ref	Expression
algextdeglem8	⊢ (𝜑 → (dim‘(𝐻 “s 𝑃)) = (𝐷‘(𝑀‘𝐴)))

Distinct variable groups:   𝐴,𝑝   𝐸,𝑝   𝐹,𝑝,𝑥   𝐺,𝑝,𝑥   𝐻,𝑝,𝑥   𝐽,𝑝,𝑥   𝐾,𝑝   𝐿,𝑝,𝑥   𝑀,𝑝   𝑥,𝑁   𝑂,𝑝   𝑃,𝑝,𝑥   𝑄,𝑝,𝑥   𝑅,𝑝   𝑇,𝑝,𝑥   𝑈,𝑝,𝑥   𝑍,𝑝,𝑥   𝜑,𝑝,𝑥

Allowed substitution hints:   𝐴(𝑥)   𝐷(𝑥,𝑝)   𝑅(𝑥)   𝐸(𝑥)   𝐾(𝑥)   𝑀(𝑥)   𝑁(𝑝)   𝑂(𝑥)

Proof of Theorem algextdeglem8

Dummy variables 𝑞 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqidd 2741	. . . 4 ⊢ (𝜑 → (𝐻 “s 𝑃) = (𝐻 “s 𝑃))
2		algextdeglem.u	. . . . 5 ⊢ 𝑈 = (Base‘𝑃)
3	2	a1i 11	. . . 4 ⊢ (𝜑 → 𝑈 = (Base‘𝑃))
4		algextdeg.e	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐹 ∈ (SubDRing‘𝐸))
5		algextdeg.k	. . . . . . . . . . . 12 ⊢ 𝐾 = (𝐸 ↾s 𝐹)
6	5	sdrgdrng 20813	. . . . . . . . . . 11 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐾 ∈ DivRing)
7	4, 6	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 ∈ DivRing)
8	7	drngringd 20759	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ Ring)
9	8	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → 𝐾 ∈ Ring)
10		simpr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → 𝑝 ∈ 𝑈)
11		eqid 2740	. . . . . . . . . . 11 ⊢ (0g‘(Poly1‘𝐸)) = (0g‘(Poly1‘𝐸))
12		algextdeg.f	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∈ Field)
13		algextdeg.m	. . . . . . . . . . 11 ⊢ 𝑀 = (𝐸 minPoly 𝐹)
14		algextdeg.a	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 ∈ (𝐸 IntgRing 𝐹))
15	5	fveq2i 6923	. . . . . . . . . . 11 ⊢ (Monic1p‘𝐾) = (Monic1p‘(𝐸 ↾s 𝐹))
16	11, 12, 4, 13, 14, 15	minplym1p 33706	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Monic1p‘𝐾))
17	16	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑀‘𝐴) ∈ (Monic1p‘𝐾))
18		eqid 2740	. . . . . . . . . 10 ⊢ (Unic1p‘𝐾) = (Unic1p‘𝐾)
19		eqid 2740	. . . . . . . . . 10 ⊢ (Monic1p‘𝐾) = (Monic1p‘𝐾)
20	18, 19	mon1puc1p 26210	. . . . . . . . 9 ⊢ ((𝐾 ∈ Ring ∧ (𝑀‘𝐴) ∈ (Monic1p‘𝐾)) → (𝑀‘𝐴) ∈ (Unic1p‘𝐾))
21	9, 17, 20	syl2anc 583	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑀‘𝐴) ∈ (Unic1p‘𝐾))
22		algextdeglem.r	. . . . . . . . 9 ⊢ 𝑅 = (rem1p‘𝐾)
23		algextdeglem.y	. . . . . . . . 9 ⊢ 𝑃 = (Poly1‘𝐾)
24	22, 23, 2, 18	r1pcl 26218	. . . . . . . 8 ⊢ ((𝐾 ∈ Ring ∧ 𝑝 ∈ 𝑈 ∧ (𝑀‘𝐴) ∈ (Unic1p‘𝐾)) → (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈)
25	9, 10, 21, 24	syl3anc 1371	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈)
26		eqid 2740	. . . . . . . . . 10 ⊢ (deg1‘𝐾) = (deg1‘𝐾)
27	22, 23, 2, 18, 26	r1pdeglt 26219	. . . . . . . . 9 ⊢ ((𝐾 ∈ Ring ∧ 𝑝 ∈ 𝑈 ∧ (𝑀‘𝐴) ∈ (Unic1p‘𝐾)) → ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < ((deg1‘𝐾)‘(𝑀‘𝐴)))
28	9, 10, 21, 27	syl3anc 1371	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < ((deg1‘𝐾)‘(𝑀‘𝐴)))
29		algextdeg.d	. . . . . . . . . 10 ⊢ 𝐷 = (deg1‘𝐸)
30		algextdeglem.o	. . . . . . . . . . . 12 ⊢ 𝑂 = (𝐸 evalSub1 𝐹)
31	5	fveq2i 6923	. . . . . . . . . . . . 13 ⊢ (Poly1‘𝐾) = (Poly1‘(𝐸 ↾s 𝐹))
32	23, 31	eqtri 2768	. . . . . . . . . . . 12 ⊢ 𝑃 = (Poly1‘(𝐸 ↾s 𝐹))
33		eqid 2740	. . . . . . . . . . . 12 ⊢ (Base‘𝐸) = (Base‘𝐸)
34		eqid 2740	. . . . . . . . . . . . . 14 ⊢ (0g‘𝐸) = (0g‘𝐸)
35	12	fldcrngd 20764	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐸 ∈ CRing)
36		sdrgsubrg 20814	. . . . . . . . . . . . . . 15 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐹 ∈ (SubRing‘𝐸))
37	4, 36	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐹 ∈ (SubRing‘𝐸))
38	30, 5, 33, 34, 35, 37	irngssv 33688	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸 IntgRing 𝐹) ⊆ (Base‘𝐸))
39	38, 14	sseldd 4009	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ (Base‘𝐸))
40		eqid 2740	. . . . . . . . . . . 12 ⊢ {𝑝 ∈ dom 𝑂 ∣ ((𝑂‘𝑝)‘𝐴) = (0g‘𝐸)} = {𝑝 ∈ dom 𝑂 ∣ ((𝑂‘𝑝)‘𝐴) = (0g‘𝐸)}
41		eqid 2740	. . . . . . . . . . . 12 ⊢ (RSpan‘𝑃) = (RSpan‘𝑃)
42		eqid 2740	. . . . . . . . . . . 12 ⊢ (idlGen1p‘(𝐸 ↾s 𝐹)) = (idlGen1p‘(𝐸 ↾s 𝐹))
43	30, 32, 33, 12, 4, 39, 34, 40, 41, 42, 13	minplycl 33699	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Base‘𝑃))
44	43, 2	eleqtrrdi 2855	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ 𝑈)
45	5, 29, 23, 2, 44, 37	ressdeg1 33556	. . . . . . . . 9 ⊢ (𝜑 → (𝐷‘(𝑀‘𝐴)) = ((deg1‘𝐾)‘(𝑀‘𝐴)))
46	45	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝐷‘(𝑀‘𝐴)) = ((deg1‘𝐾)‘(𝑀‘𝐴)))
47	28, 46	breqtrrd 5194	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < (𝐷‘(𝑀‘𝐴)))
48		algextdeglem.t	. . . . . . . . 9 ⊢ 𝑇 = (◡(deg1‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴))))
49	12	flddrngd 20763	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∈ DivRing)
50	49	drngringd 20759	. . . . . . . . . 10 ⊢ (𝜑 → 𝐸 ∈ Ring)
51		eqid 2740	. . . . . . . . . . . . 13 ⊢ (Poly1‘𝐸) = (Poly1‘𝐸)
52		eqid 2740	. . . . . . . . . . . . 13 ⊢ (PwSer1‘𝐾) = (PwSer1‘𝐾)
53		eqid 2740	. . . . . . . . . . . . 13 ⊢ (Base‘(PwSer1‘𝐾)) = (Base‘(PwSer1‘𝐾))
54		eqid 2740	. . . . . . . . . . . . 13 ⊢ (Base‘(Poly1‘𝐸)) = (Base‘(Poly1‘𝐸))
55	51, 5, 23, 2, 37, 52, 53, 54	ressply1bas2 22250	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑈 = ((Base‘(PwSer1‘𝐾)) ∩ (Base‘(Poly1‘𝐸))))
56		inss2 4259	. . . . . . . . . . . 12 ⊢ ((Base‘(PwSer1‘𝐾)) ∩ (Base‘(Poly1‘𝐸))) ⊆ (Base‘(Poly1‘𝐸))
57	55, 56	eqsstrdi 4063	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑈 ⊆ (Base‘(Poly1‘𝐸)))
58	57, 44	sseldd 4009	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Base‘(Poly1‘𝐸)))
59	11, 12, 4, 13, 14	irngnminplynz 33705	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ≠ (0g‘(Poly1‘𝐸)))
60	29, 51, 11, 54	deg1nn0cl 26147	. . . . . . . . . 10 ⊢ ((𝐸 ∈ Ring ∧ (𝑀‘𝐴) ∈ (Base‘(Poly1‘𝐸)) ∧ (𝑀‘𝐴) ≠ (0g‘(Poly1‘𝐸))) → (𝐷‘(𝑀‘𝐴)) ∈ ℕ0)
61	50, 58, 59, 60	syl3anc 1371	. . . . . . . . 9 ⊢ (𝜑 → (𝐷‘(𝑀‘𝐴)) ∈ ℕ0)
62	23, 26, 48, 61, 8, 2	ply1degleel 33581	. . . . . . . 8 ⊢ (𝜑 → ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇 ↔ ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈 ∧ ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < (𝐷‘(𝑀‘𝐴)))))
63	62	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇 ↔ ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈 ∧ ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < (𝐷‘(𝑀‘𝐴)))))
64	25, 47, 63	mpbir2and 712	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇)
65	64	ralrimiva 3152	. . . . 5 ⊢ (𝜑 → ∀𝑝 ∈ 𝑈 (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇)
66		oveq1 7455	. . . . . . . . 9 ⊢ (𝑝 = 𝑞 → (𝑝𝑅(𝑀‘𝐴)) = (𝑞𝑅(𝑀‘𝐴)))
67	66	eqeq2d 2751	. . . . . . . 8 ⊢ (𝑝 = 𝑞 → (𝑞 = (𝑝𝑅(𝑀‘𝐴)) ↔ 𝑞 = (𝑞𝑅(𝑀‘𝐴))))
68		eqcom 2747	. . . . . . . 8 ⊢ (𝑞 = (𝑞𝑅(𝑀‘𝐴)) ↔ (𝑞𝑅(𝑀‘𝐴)) = 𝑞)
69	67, 68	bitrdi 287	. . . . . . 7 ⊢ (𝑝 = 𝑞 → (𝑞 = (𝑝𝑅(𝑀‘𝐴)) ↔ (𝑞𝑅(𝑀‘𝐴)) = 𝑞))
70	23, 26, 48, 61, 8, 2	ply1degltel 33580	. . . . . . . 8 ⊢ (𝜑 → (𝑞 ∈ 𝑇 ↔ (𝑞 ∈ 𝑈 ∧ ((deg1‘𝐾)‘𝑞) ≤ ((𝐷‘(𝑀‘𝐴)) − 1))))
71	70	simprbda 498	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → 𝑞 ∈ 𝑈)
72	70	simplbda 499	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) ≤ ((𝐷‘(𝑀‘𝐴)) − 1))
73	45	oveq1d 7463	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐷‘(𝑀‘𝐴)) − 1) = (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1))
74	73	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((𝐷‘(𝑀‘𝐴)) − 1) = (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1))
75	72, 74	breqtrd 5192	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) ≤ (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1))
76	26, 23, 2	deg1cl 26142	. . . . . . . . . . 11 ⊢ (𝑞 ∈ 𝑈 → ((deg1‘𝐾)‘𝑞) ∈ (ℕ0 ∪ {-∞}))
77	71, 76	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) ∈ (ℕ0 ∪ {-∞}))
78	61	nn0zd 12665	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐷‘(𝑀‘𝐴)) ∈ ℤ)
79	45, 78	eqeltrrd 2845	. . . . . . . . . . 11 ⊢ (𝜑 → ((deg1‘𝐾)‘(𝑀‘𝐴)) ∈ ℤ)
80	79	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘(𝑀‘𝐴)) ∈ ℤ)
81		degltlem1 26131	. . . . . . . . . 10 ⊢ ((((deg1‘𝐾)‘𝑞) ∈ (ℕ0 ∪ {-∞}) ∧ ((deg1‘𝐾)‘(𝑀‘𝐴)) ∈ ℤ) → (((deg1‘𝐾)‘𝑞) < ((deg1‘𝐾)‘(𝑀‘𝐴)) ↔ ((deg1‘𝐾)‘𝑞) ≤ (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1)))
82	77, 80, 81	syl2anc 583	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → (((deg1‘𝐾)‘𝑞) < ((deg1‘𝐾)‘(𝑀‘𝐴)) ↔ ((deg1‘𝐾)‘𝑞) ≤ (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1)))
83	75, 82	mpbird 257	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) < ((deg1‘𝐾)‘(𝑀‘𝐴)))
84		fldsdrgfld 20821	. . . . . . . . . . . . . 14 ⊢ ((𝐸 ∈ Field ∧ 𝐹 ∈ (SubDRing‘𝐸)) → (𝐸 ↾s 𝐹) ∈ Field)
85	12, 4, 84	syl2anc 583	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸 ↾s 𝐹) ∈ Field)
86	5, 85	eqeltrid 2848	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ Field)
87		fldidom 20793	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ Field → 𝐾 ∈ IDomn)
88	86, 87	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ IDomn)
89	88	idomdomd 20748	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 ∈ Domn)
90	89	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → 𝐾 ∈ Domn)
91	8, 16, 20	syl2anc 583	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Unic1p‘𝐾))
92	91	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → (𝑀‘𝐴) ∈ (Unic1p‘𝐾))
93	23, 2, 18, 22, 26, 90, 71, 92	r1pid2 26221	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((𝑞𝑅(𝑀‘𝐴)) = 𝑞 ↔ ((deg1‘𝐾)‘𝑞) < ((deg1‘𝐾)‘(𝑀‘𝐴))))
94	83, 93	mpbird 257	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → (𝑞𝑅(𝑀‘𝐴)) = 𝑞)
95	69, 71, 94	rspcedvdw 3638	. . . . . 6 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ∃𝑝 ∈ 𝑈 𝑞 = (𝑝𝑅(𝑀‘𝐴)))
96	95	ralrimiva 3152	. . . . 5 ⊢ (𝜑 → ∀𝑞 ∈ 𝑇 ∃𝑝 ∈ 𝑈 𝑞 = (𝑝𝑅(𝑀‘𝐴)))
97		algextdeglem.h	. . . . . 6 ⊢ 𝐻 = (𝑝 ∈ 𝑈 ↦ (𝑝𝑅(𝑀‘𝐴)))
98	97	fompt 7152	. . . . 5 ⊢ (𝐻:𝑈–onto→𝑇 ↔ (∀𝑝 ∈ 𝑈 (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇 ∧ ∀𝑞 ∈ 𝑇 ∃𝑝 ∈ 𝑈 𝑞 = (𝑝𝑅(𝑀‘𝐴))))
99	65, 96, 98	sylanbrc 582	. . . 4 ⊢ (𝜑 → 𝐻:𝑈–onto→𝑇)
100	23	ply1ring 22270	. . . . 5 ⊢ (𝐾 ∈ Ring → 𝑃 ∈ Ring)
101	8, 100	syl 17	. . . 4 ⊢ (𝜑 → 𝑃 ∈ Ring)
102	1, 3, 99, 101	imasbas 17572	. . 3 ⊢ (𝜑 → 𝑇 = (Base‘(𝐻 “s 𝑃)))
103	71	ex 412	. . . . 5 ⊢ (𝜑 → (𝑞 ∈ 𝑇 → 𝑞 ∈ 𝑈))
104	103	ssrdv 4014	. . . 4 ⊢ (𝜑 → 𝑇 ⊆ 𝑈)
105		eqid 2740	. . . . 5 ⊢ (𝑃 ↾s 𝑇) = (𝑃 ↾s 𝑇)
106	105, 2	ressbas2 17296	. . . 4 ⊢ (𝑇 ⊆ 𝑈 → 𝑇 = (Base‘(𝑃 ↾s 𝑇)))
107	104, 106	syl 17	. . 3 ⊢ (𝜑 → 𝑇 = (Base‘(𝑃 ↾s 𝑇)))
108		ssidd 4032	. . 3 ⊢ (𝜑 → 𝑇 ⊆ 𝑇)
109		eqid 2740	. . . . . . 7 ⊢ (𝐻 “s 𝑃) = (𝐻 “s 𝑃)
110		eqid 2740	. . . . . . 7 ⊢ (Base‘(𝐻 “s 𝑃)) = (Base‘(𝐻 “s 𝑃))
111	104	ad2antrr 725	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑇 ⊆ 𝑈)
112		simplr 768	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑥 ∈ 𝑇)
113	111, 112	sseldd 4009	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑥 ∈ 𝑈)
114		simpr 484	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑦 ∈ 𝑇)
115	111, 114	sseldd 4009	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑦 ∈ 𝑈)
116		foeq3 6832	. . . . . . . . . 10 ⊢ (𝑇 = (Base‘(𝐻 “s 𝑃)) → (𝐻:𝑈–onto→𝑇 ↔ 𝐻:𝑈–onto→(Base‘(𝐻 “s 𝑃))))
117	102, 116	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐻:𝑈–onto→𝑇 ↔ 𝐻:𝑈–onto→(Base‘(𝐻 “s 𝑃))))
118	99, 117	mpbid 232	. . . . . . . 8 ⊢ (𝜑 → 𝐻:𝑈–onto→(Base‘(𝐻 “s 𝑃)))
119	118	ad2antrr 725	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝐻:𝑈–onto→(Base‘(𝐻 “s 𝑃)))
120	23, 2, 22, 18, 97, 8, 91	r1plmhm 33595	. . . . . . . . . 10 ⊢ (𝜑 → 𝐻 ∈ (𝑃 LMHom (𝐻 “s 𝑃)))
121	120	lmhmghmd 33023	. . . . . . . . 9 ⊢ (𝜑 → 𝐻 ∈ (𝑃 GrpHom (𝐻 “s 𝑃)))
122		ghmmhm 19266	. . . . . . . . 9 ⊢ (𝐻 ∈ (𝑃 GrpHom (𝐻 “s 𝑃)) → 𝐻 ∈ (𝑃 MndHom (𝐻 “s 𝑃)))
123	121, 122	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐻 ∈ (𝑃 MndHom (𝐻 “s 𝑃)))
124	123	ad2antrr 725	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝐻 ∈ (𝑃 MndHom (𝐻 “s 𝑃)))
125		eqid 2740	. . . . . . 7 ⊢ (+g‘𝑃) = (+g‘𝑃)
126		eqid 2740	. . . . . . 7 ⊢ (+g‘(𝐻 “s 𝑃)) = (+g‘(𝐻 “s 𝑃))
127	109, 2, 110, 113, 115, 119, 124, 125, 126	mhmimasplusg 33024	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → ((𝐻‘𝑥)(+g‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝐻‘(𝑥(+g‘𝑃)𝑦)))
128		algextdeg.l	. . . . . . . . 9 ⊢ 𝐿 = (𝐸 ↾s (𝐸 fldGen (𝐹 ∪ {𝐴})))
129	12	ad2antrr 725	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝐸 ∈ Field)
130	4	ad2antrr 725	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝐹 ∈ (SubDRing‘𝐸))
131	14	ad2antrr 725	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝐴 ∈ (𝐸 IntgRing 𝐹))
132		algextdeglem.g	. . . . . . . . 9 ⊢ 𝐺 = (𝑝 ∈ 𝑈 ↦ ((𝑂‘𝑝)‘𝐴))
133		algextdeglem.n	. . . . . . . . 9 ⊢ 𝑁 = (𝑥 ∈ 𝑈 ↦ [𝑥](𝑃 ~QG 𝑍))
134		algextdeglem.z	. . . . . . . . 9 ⊢ 𝑍 = (◡𝐺 “ {(0g‘𝐿)})
135		algextdeglem.q	. . . . . . . . 9 ⊢ 𝑄 = (𝑃 /s (𝑃 ~QG 𝑍))
136		algextdeglem.j	. . . . . . . . 9 ⊢ 𝐽 = (𝑝 ∈ (Base‘𝑄) ↦ ∪ (𝐺 “ 𝑝))
137	5, 128, 29, 13, 129, 130, 131, 30, 23, 2, 132, 133, 134, 135, 136, 22, 97, 48, 113	algextdeglem7 33714	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥 ∈ 𝑇 ↔ (𝐻‘𝑥) = 𝑥))
138	112, 137	mpbid 232	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝐻‘𝑥) = 𝑥)
139	5, 128, 29, 13, 129, 130, 131, 30, 23, 2, 132, 133, 134, 135, 136, 22, 97, 48, 115	algextdeglem7 33714	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑦 ∈ 𝑇 ↔ (𝐻‘𝑦) = 𝑦))
140	114, 139	mpbid 232	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝐻‘𝑦) = 𝑦)
141	138, 140	oveq12d 7466	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → ((𝐻‘𝑥)(+g‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝑥(+g‘(𝐻 “s 𝑃))𝑦))
142	101	ringgrpd 20269	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ Grp)
143	23, 7	ply1lvec 33550	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 ∈ LVec)
144	23, 26, 48, 61, 8	ply1degltlss 33582	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑇 ∈ (LSubSp‘𝑃))
145		eqid 2740	. . . . . . . . . . . . 13 ⊢ (LSubSp‘𝑃) = (LSubSp‘𝑃)
146	105, 145	lsslvec 21131	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ LVec ∧ 𝑇 ∈ (LSubSp‘𝑃)) → (𝑃 ↾s 𝑇) ∈ LVec)
147	143, 144, 146	syl2anc 583	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 ↾s 𝑇) ∈ LVec)
148	147	lvecgrpd 21130	. . . . . . . . . 10 ⊢ (𝜑 → (𝑃 ↾s 𝑇) ∈ Grp)
149	2	issubg 19166	. . . . . . . . . 10 ⊢ (𝑇 ∈ (SubGrp‘𝑃) ↔ (𝑃 ∈ Grp ∧ 𝑇 ⊆ 𝑈 ∧ (𝑃 ↾s 𝑇) ∈ Grp))
150	142, 104, 148, 149	syl3anbrc 1343	. . . . . . . . 9 ⊢ (𝜑 → 𝑇 ∈ (SubGrp‘𝑃))
151	150	ad2antrr 725	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑇 ∈ (SubGrp‘𝑃))
152	125	subgcl 19176	. . . . . . . 8 ⊢ ((𝑇 ∈ (SubGrp‘𝑃) ∧ 𝑥 ∈ 𝑇 ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘𝑃)𝑦) ∈ 𝑇)
153	151, 112, 114, 152	syl3anc 1371	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘𝑃)𝑦) ∈ 𝑇)
154	142	ad2antrr 725	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑃 ∈ Grp)
155	2, 125, 154, 113, 115	grpcld 18987	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘𝑃)𝑦) ∈ 𝑈)
156	5, 128, 29, 13, 129, 130, 131, 30, 23, 2, 132, 133, 134, 135, 136, 22, 97, 48, 155	algextdeglem7 33714	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → ((𝑥(+g‘𝑃)𝑦) ∈ 𝑇 ↔ (𝐻‘(𝑥(+g‘𝑃)𝑦)) = (𝑥(+g‘𝑃)𝑦)))
157	153, 156	mpbid 232	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝐻‘(𝑥(+g‘𝑃)𝑦)) = (𝑥(+g‘𝑃)𝑦))
158	127, 141, 157	3eqtr3d 2788	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘(𝐻 “s 𝑃))𝑦) = (𝑥(+g‘𝑃)𝑦))
159		fvex 6933	. . . . . . . . 9 ⊢ (deg1‘𝐾) ∈ V
160		cnvexg 7964	. . . . . . . . 9 ⊢ ((deg1‘𝐾) ∈ V → ◡(deg1‘𝐾) ∈ V)
161		imaexg 7953	. . . . . . . . 9 ⊢ (◡(deg1‘𝐾) ∈ V → (◡(deg1‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴)))) ∈ V)
162	159, 160, 161	mp2b 10	. . . . . . . 8 ⊢ (◡(deg1‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴)))) ∈ V
163	48, 162	eqeltri 2840	. . . . . . 7 ⊢ 𝑇 ∈ V
164	105, 125	ressplusg 17349	. . . . . . 7 ⊢ (𝑇 ∈ V → (+g‘𝑃) = (+g‘(𝑃 ↾s 𝑇)))
165	163, 164	ax-mp 5	. . . . . 6 ⊢ (+g‘𝑃) = (+g‘(𝑃 ↾s 𝑇))
166	165	oveqi 7461	. . . . 5 ⊢ (𝑥(+g‘𝑃)𝑦) = (𝑥(+g‘(𝑃 ↾s 𝑇))𝑦)
167	158, 166	eqtrdi 2796	. . . 4 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘(𝐻 “s 𝑃))𝑦) = (𝑥(+g‘(𝑃 ↾s 𝑇))𝑦))
168	167	anasss 466	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑇 ∧ 𝑦 ∈ 𝑇)) → (𝑥(+g‘(𝐻 “s 𝑃))𝑦) = (𝑥(+g‘(𝑃 ↾s 𝑇))𝑦))
169		simprr 772	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑦 ∈ 𝑇)
170	12	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐸 ∈ Field)
171	4	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐹 ∈ (SubDRing‘𝐸))
172	14	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐴 ∈ (𝐸 IntgRing 𝐹))
173	104	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑇 ⊆ 𝑈)
174	173, 169	sseldd 4009	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑦 ∈ 𝑈)
175	5, 128, 29, 13, 170, 171, 172, 30, 23, 2, 132, 133, 134, 135, 136, 22, 97, 48, 174	algextdeglem7 33714	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑦 ∈ 𝑇 ↔ (𝐻‘𝑦) = 𝑦))
176	169, 175	mpbid 232	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝐻‘𝑦) = 𝑦)
177	176	oveq2d 7464	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦))
178		simprl 770	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑥 ∈ 𝐹)
179	33	sdrgss 20816	. . . . . . . . . 10 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐹 ⊆ (Base‘𝐸))
180	5, 33	ressbas2 17296	. . . . . . . . . 10 ⊢ (𝐹 ⊆ (Base‘𝐸) → 𝐹 = (Base‘𝐾))
181	4, 179, 180	3syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 = (Base‘𝐾))
182	23	ply1sca 22275	. . . . . . . . . . 11 ⊢ (𝐾 ∈ Ring → 𝐾 = (Scalar‘𝑃))
183	8, 182	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 = (Scalar‘𝑃))
184	183	fveq2d 6924	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝐾) = (Base‘(Scalar‘𝑃)))
185	181, 184	eqtrd 2780	. . . . . . . 8 ⊢ (𝜑 → 𝐹 = (Base‘(Scalar‘𝑃)))
186	185	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐹 = (Base‘(Scalar‘𝑃)))
187	178, 186	eleqtrd 2846	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑥 ∈ (Base‘(Scalar‘𝑃)))
188	118	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐻:𝑈–onto→(Base‘(𝐻 “s 𝑃)))
189	120	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐻 ∈ (𝑃 LMHom (𝐻 “s 𝑃)))
190		eqid 2740	. . . . . 6 ⊢ ( ·𝑠 ‘𝑃) = ( ·𝑠 ‘𝑃)
191		eqid 2740	. . . . . 6 ⊢ ( ·𝑠 ‘(𝐻 “s 𝑃)) = ( ·𝑠 ‘(𝐻 “s 𝑃))
192		eqid 2740	. . . . . 6 ⊢ (Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃))
193	109, 2, 110, 187, 174, 188, 189, 190, 191, 192	lmhmimasvsca 33025	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)))
194	177, 193	eqtr3d 2782	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦) = (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)))
195	64, 97	fmptd 7148	. . . . . 6 ⊢ (𝜑 → 𝐻:𝑈⟶𝑇)
196	195	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐻:𝑈⟶𝑇)
197		eqid 2740	. . . . . 6 ⊢ (Scalar‘𝑃) = (Scalar‘𝑃)
198	143	lveclmodd 21129	. . . . . . 7 ⊢ (𝜑 → 𝑃 ∈ LMod)
199	198	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑃 ∈ LMod)
200	2, 197, 190, 192, 199, 187, 174	lmodvscld 20899	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘𝑃)𝑦) ∈ 𝑈)
201	196, 200	ffvelcdmd 7119	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)) ∈ 𝑇)
202	194, 201	eqeltrd 2844	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦) ∈ 𝑇)
203	144	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑇 ∈ (LSubSp‘𝑃))
204	197, 190, 192, 145	lssvscl 20976	. . . . . 6 ⊢ (((𝑃 ∈ LMod ∧ 𝑇 ∈ (LSubSp‘𝑃)) ∧ (𝑥 ∈ (Base‘(Scalar‘𝑃)) ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘𝑃)𝑦) ∈ 𝑇)
205	199, 203, 187, 169, 204	syl22anc 838	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘𝑃)𝑦) ∈ 𝑇)
206	5, 128, 29, 13, 170, 171, 172, 30, 23, 2, 132, 133, 134, 135, 136, 22, 97, 48, 200	algextdeglem7 33714	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → ((𝑥( ·𝑠 ‘𝑃)𝑦) ∈ 𝑇 ↔ (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)) = (𝑥( ·𝑠 ‘𝑃)𝑦)))
207	205, 206	mpbid 232	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)) = (𝑥( ·𝑠 ‘𝑃)𝑦))
208	105, 190	ressvsca 17403	. . . . . 6 ⊢ (𝑇 ∈ V → ( ·𝑠 ‘𝑃) = ( ·𝑠 ‘(𝑃 ↾s 𝑇)))
209	163, 208	mp1i 13	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → ( ·𝑠 ‘𝑃) = ( ·𝑠 ‘(𝑃 ↾s 𝑇)))
210	209	oveqd 7465	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘𝑃)𝑦) = (𝑥( ·𝑠 ‘(𝑃 ↾s 𝑇))𝑦))
211	194, 207, 210	3eqtrd 2784	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦) = (𝑥( ·𝑠 ‘(𝑃 ↾s 𝑇))𝑦))
212		eqid 2740	. . 3 ⊢ (Scalar‘(𝐻 “s 𝑃)) = (Scalar‘(𝐻 “s 𝑃))
213	105, 197	resssca 17402	. . . 4 ⊢ (𝑇 ∈ V → (Scalar‘𝑃) = (Scalar‘(𝑃 ↾s 𝑇)))
214	163, 213	ax-mp 5	. . 3 ⊢ (Scalar‘𝑃) = (Scalar‘(𝑃 ↾s 𝑇))
215	1, 3, 99, 101, 197	imassca 17579	. . . . . 6 ⊢ (𝜑 → (Scalar‘𝑃) = (Scalar‘(𝐻 “s 𝑃)))
216	183, 215	eqtrd 2780	. . . . 5 ⊢ (𝜑 → 𝐾 = (Scalar‘(𝐻 “s 𝑃)))
217	216	fveq2d 6924	. . . 4 ⊢ (𝜑 → (Base‘𝐾) = (Base‘(Scalar‘(𝐻 “s 𝑃))))
218	181, 217	eqtrd 2780	. . 3 ⊢ (𝜑 → 𝐹 = (Base‘(Scalar‘(𝐻 “s 𝑃))))
219	215	fveq2d 6924	. . . . . 6 ⊢ (𝜑 → (+g‘(Scalar‘𝑃)) = (+g‘(Scalar‘(𝐻 “s 𝑃))))
220	219	oveqd 7465	. . . . 5 ⊢ (𝜑 → (𝑥(+g‘(Scalar‘𝑃))𝑦) = (𝑥(+g‘(Scalar‘(𝐻 “s 𝑃)))𝑦))
221	220	eqcomd 2746	. . . 4 ⊢ (𝜑 → (𝑥(+g‘(Scalar‘(𝐻 “s 𝑃)))𝑦) = (𝑥(+g‘(Scalar‘𝑃))𝑦))
222	221	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝐹)) → (𝑥(+g‘(Scalar‘(𝐻 “s 𝑃)))𝑦) = (𝑥(+g‘(Scalar‘𝑃))𝑦))
223		lmhmlvec2 33632	. . . 4 ⊢ ((𝑃 ∈ LVec ∧ 𝐻 ∈ (𝑃 LMHom (𝐻 “s 𝑃))) → (𝐻 “s 𝑃) ∈ LVec)
224	143, 120, 223	syl2anc 583	. . 3 ⊢ (𝜑 → (𝐻 “s 𝑃) ∈ LVec)
225	102, 107, 108, 168, 202, 211, 212, 214, 218, 185, 222, 224, 147	dimpropd 33621	. 2 ⊢ (𝜑 → (dim‘(𝐻 “s 𝑃)) = (dim‘(𝑃 ↾s 𝑇)))
226	23, 26, 48, 61, 7, 105	ply1degltdim 33636	. 2 ⊢ (𝜑 → (dim‘(𝑃 ↾s 𝑇)) = (𝐷‘(𝑀‘𝐴)))
227	225, 226	eqtrd 2780	1 ⊢ (𝜑 → (dim‘(𝐻 “s 𝑃)) = (𝐷‘(𝑀‘𝐴)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1537   ∈ wcel 2108   ≠ wne 2946  ∀wral 3067  ∃wrex 3076  {crab 3443  Vcvv 3488   ∪ cun 3974   ∩ cin 3975   ⊆ wss 3976  {csn 4648  ∪ cuni 4931   class class class wbr 5166   ↦ cmpt 5249  ^◡ccnv 5699  dom cdm 5700   “ cima 5703  ⟶wf 6569  –onto→wfo 6571  ‘cfv 6573  (class class class)co 7448  [cec 8761  1c1 11185  -∞cmnf 11322   < clt 11324   ≤ cle 11325   − cmin 11520  ℕ₀cn0 12553  ℤcz 12639  [,)cico 13409  Basecbs 17258   ↾_s cress 17287  +_gcplusg 17311  Scalarcsca 17314   ·_𝑠 cvsca 17315  0_gc0g 17499   “_s cimas 17564   /_s cqus 17565   MndHom cmhm 18816  Grpcgrp 18973  SubGrpcsubg 19160   ~_QG cqg 19162   GrpHom cghm 19252  Ringcrg 20260  SubRingcsubrg 20595  Domncdomn 20714  IDomncidom 20715  DivRingcdr 20751  Fieldcfield 20752  SubDRingcsdrg 20809  LModclmod 20880  LSubSpclss 20952   LMHom clmhm 21041  LVecclvec 21124  RSpancrsp 21240  PwSer₁cps1 22197  Poly₁cpl1 22199   evalSub₁ ces1 22338  deg₁cdg1 26113  Monic_1pcmn1 26185  Unic_1pcuc1p 26186  rem_1pcr1p 26188  idlGen_1pcig1p 26189   fldGen cfldgen 33277  dimcldim 33611   IntgRing cirng 33683   minPoly cminply 33692

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-reg 9661  ax-inf2 9710  ax-ac2 10532  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261  ax-pre-sup 11262  ax-addf 11263

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-tp 4653  df-op 4655  df-uni 4932  df-int 4971  df-iun 5017  df-iin 5018  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-se 5653  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-isom 6582  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-of 7714  df-ofr 7715  df-rpss 7758  df-om 7904  df-1st 8030  df-2nd 8031  df-supp 8202  df-tpos 8267  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-2o 8523  df-oadd 8526  df-er 8763  df-map 8886  df-pm 8887  df-ixp 8956  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-fsupp 9432  df-sup 9511  df-inf 9512  df-oi 9579  df-r1 9833  df-rank 9834  df-dju 9970  df-card 10008  df-acn 10011  df-ac 10185  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-nn 12294  df-2 12356  df-3 12357  df-4 12358  df-5 12359  df-6 12360  df-7 12361  df-8 12362  df-9 12363  df-n0 12554  df-xnn0 12626  df-z 12640  df-dec 12759  df-uz 12904  df-ico 13413  df-fz 13568  df-fzo 13712  df-seq 14053  df-hash 14380  df-struct 17194  df-sets 17211  df-slot 17229  df-ndx 17241  df-base 17259  df-ress 17288  df-plusg 17324  df-mulr 17325  df-starv 17326  df-sca 17327  df-vsca 17328  df-ip 17329  df-tset 17330  df-ple 17331  df-ocomp 17332  df-ds 17333  df-unif 17334  df-hom 17335  df-cco 17336  df-0g 17501  df-gsum 17502  df-prds 17507  df-pws 17509  df-imas 17568  df-mre 17644  df-mrc 17645  df-mri 17646  df-acs 17647  df-proset 18365  df-drs 18366  df-poset 18383  df-ipo 18598  df-mgm 18678  df-sgrp 18757  df-mnd 18773  df-mhm 18818  df-submnd 18819  df-grp 18976  df-minusg 18977  df-sbg 18978  df-mulg 19108  df-subg 19163  df-ghm 19253  df-cntz 19357  df-cmn 19824  df-abl 19825  df-mgp 20162  df-rng 20180  df-ur 20209  df-srg 20214  df-ring 20262  df-cring 20263  df-oppr 20360  df-dvdsr 20383  df-unit 20384  df-invr 20414  df-rhm 20498  df-nzr 20539  df-subrng 20572  df-subrg 20597  df-rlreg 20716  df-domn 20717  df-idom 20718  df-drng 20753  df-field 20754  df-sdrg 20810  df-lmod 20882  df-lss 20953  df-lsp 20993  df-lmhm 21044  df-lbs 21097  df-lvec 21125  df-sra 21195  df-rgmod 21196  df-lidl 21241  df-rsp 21242  df-cnfld 21388  df-dsmm 21775  df-frlm 21790  df-uvc 21826  df-lindf 21849  df-linds 21850  df-assa 21896  df-asp 21897  df-ascl 21898  df-psr 21952  df-mvr 21953  df-mpl 21954  df-opsr 21956  df-evls 22121  df-evl 22122  df-psr1 22202  df-vr1 22203  df-ply1 22204  df-coe1 22205  df-evls1 22340  df-evl1 22341  df-mdeg 26114  df-deg1 26115  df-mon1 26190  df-uc1p 26191  df-q1p 26192  df-r1p 26193  df-ig1p 26194  df-dim 33612  df-irng 33684  df-minply 33693

This theorem is referenced by:  algextdeg  33716