Theorem algextdeglem8 33763

Description: Lemma for algextdeg 33764. 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 2737	. . . 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 20755	. . . . . . . . . . 11 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐾 ∈ DivRing)
7	4, 6	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 ∈ DivRing)
8	7	drngringd 20702	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ Ring)
9	8	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → 𝐾 ∈ Ring)
10		simpr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → 𝑝 ∈ 𝑈)
11		eqid 2736	. . . . . . . . . . 11 ⊢ (0g‘(Poly1‘𝐸)) = (0g‘(Poly1‘𝐸))
12		algextdeg.f	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∈ Field)
13		algextdeg.m	. . . . . . . . . . 11 ⊢ 𝑀 = (𝐸 minPoly 𝐹)
14		algextdeg.a	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 ∈ (𝐸 IntgRing 𝐹))
15	5	fveq2i 6884	. . . . . . . . . . 11 ⊢ (Monic1p‘𝐾) = (Monic1p‘(𝐸 ↾s 𝐹))
16	11, 12, 4, 13, 14, 15	minplym1p 33752	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Monic1p‘𝐾))
17	16	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑀‘𝐴) ∈ (Monic1p‘𝐾))
18		eqid 2736	. . . . . . . . . 10 ⊢ (Unic1p‘𝐾) = (Unic1p‘𝐾)
19		eqid 2736	. . . . . . . . . 10 ⊢ (Monic1p‘𝐾) = (Monic1p‘𝐾)
20	18, 19	mon1puc1p 26113	. . . . . . . . 9 ⊢ ((𝐾 ∈ Ring ∧ (𝑀‘𝐴) ∈ (Monic1p‘𝐾)) → (𝑀‘𝐴) ∈ (Unic1p‘𝐾))
21	9, 17, 20	syl2anc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑀‘𝐴) ∈ (Unic1p‘𝐾))
22		algextdeglem.r	. . . . . . . . 9 ⊢ 𝑅 = (rem1p‘𝐾)
23		algextdeglem.y	. . . . . . . . 9 ⊢ 𝑃 = (Poly1‘𝐾)
24	22, 23, 2, 18	r1pcl 26121	. . . . . . . 8 ⊢ ((𝐾 ∈ Ring ∧ 𝑝 ∈ 𝑈 ∧ (𝑀‘𝐴) ∈ (Unic1p‘𝐾)) → (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈)
25	9, 10, 21, 24	syl3anc 1373	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈)
26		eqid 2736	. . . . . . . . . 10 ⊢ (deg1‘𝐾) = (deg1‘𝐾)
27	22, 23, 2, 18, 26	r1pdeglt 26122	. . . . . . . . 9 ⊢ ((𝐾 ∈ Ring ∧ 𝑝 ∈ 𝑈 ∧ (𝑀‘𝐴) ∈ (Unic1p‘𝐾)) → ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < ((deg1‘𝐾)‘(𝑀‘𝐴)))
28	9, 10, 21, 27	syl3anc 1373	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < ((deg1‘𝐾)‘(𝑀‘𝐴)))
29		algextdeg.d	. . . . . . . . . 10 ⊢ 𝐷 = (deg1‘𝐸)
30		algextdeglem.o	. . . . . . . . . . . 12 ⊢ 𝑂 = (𝐸 evalSub1 𝐹)
31	5	fveq2i 6884	. . . . . . . . . . . . 13 ⊢ (Poly1‘𝐾) = (Poly1‘(𝐸 ↾s 𝐹))
32	23, 31	eqtri 2759	. . . . . . . . . . . 12 ⊢ 𝑃 = (Poly1‘(𝐸 ↾s 𝐹))
33		eqid 2736	. . . . . . . . . . . 12 ⊢ (Base‘𝐸) = (Base‘𝐸)
34		eqid 2736	. . . . . . . . . . . . . 14 ⊢ (0g‘𝐸) = (0g‘𝐸)
35	12	fldcrngd 20707	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐸 ∈ CRing)
36		sdrgsubrg 20756	. . . . . . . . . . . . . . 15 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐹 ∈ (SubRing‘𝐸))
37	4, 36	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐹 ∈ (SubRing‘𝐸))
38	30, 5, 33, 34, 35, 37	irngssv 33734	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸 IntgRing 𝐹) ⊆ (Base‘𝐸))
39	38, 14	sseldd 3964	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ (Base‘𝐸))
40		eqid 2736	. . . . . . . . . . . 12 ⊢ {𝑝 ∈ dom 𝑂 ∣ ((𝑂‘𝑝)‘𝐴) = (0g‘𝐸)} = {𝑝 ∈ dom 𝑂 ∣ ((𝑂‘𝑝)‘𝐴) = (0g‘𝐸)}
41		eqid 2736	. . . . . . . . . . . 12 ⊢ (RSpan‘𝑃) = (RSpan‘𝑃)
42		eqid 2736	. . . . . . . . . . . 12 ⊢ (idlGen1p‘(𝐸 ↾s 𝐹)) = (idlGen1p‘(𝐸 ↾s 𝐹))
43	30, 32, 33, 12, 4, 39, 34, 40, 41, 42, 13	minplycl 33745	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Base‘𝑃))
44	43, 2	eleqtrrdi 2846	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ 𝑈)
45	5, 29, 23, 2, 44, 37	ressdeg1 33584	. . . . . . . . 9 ⊢ (𝜑 → (𝐷‘(𝑀‘𝐴)) = ((deg1‘𝐾)‘(𝑀‘𝐴)))
46	45	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝐷‘(𝑀‘𝐴)) = ((deg1‘𝐾)‘(𝑀‘𝐴)))
47	28, 46	breqtrrd 5152	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < (𝐷‘(𝑀‘𝐴)))
48		algextdeglem.t	. . . . . . . . 9 ⊢ 𝑇 = (◡(deg1‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴))))
49	12	flddrngd 20706	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∈ DivRing)
50	49	drngringd 20702	. . . . . . . . . 10 ⊢ (𝜑 → 𝐸 ∈ Ring)
51		eqid 2736	. . . . . . . . . . . . 13 ⊢ (Poly1‘𝐸) = (Poly1‘𝐸)
52		eqid 2736	. . . . . . . . . . . . 13 ⊢ (PwSer1‘𝐾) = (PwSer1‘𝐾)
53		eqid 2736	. . . . . . . . . . . . 13 ⊢ (Base‘(PwSer1‘𝐾)) = (Base‘(PwSer1‘𝐾))
54		eqid 2736	. . . . . . . . . . . . 13 ⊢ (Base‘(Poly1‘𝐸)) = (Base‘(Poly1‘𝐸))
55	51, 5, 23, 2, 37, 52, 53, 54	ressply1bas2 22168	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑈 = ((Base‘(PwSer1‘𝐾)) ∩ (Base‘(Poly1‘𝐸))))
56		inss2 4218	. . . . . . . . . . . 12 ⊢ ((Base‘(PwSer1‘𝐾)) ∩ (Base‘(Poly1‘𝐸))) ⊆ (Base‘(Poly1‘𝐸))
57	55, 56	eqsstrdi 4008	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑈 ⊆ (Base‘(Poly1‘𝐸)))
58	57, 44	sseldd 3964	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Base‘(Poly1‘𝐸)))
59	11, 12, 4, 13, 14	irngnminplynz 33751	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ≠ (0g‘(Poly1‘𝐸)))
60	29, 51, 11, 54	deg1nn0cl 26050	. . . . . . . . . 10 ⊢ ((𝐸 ∈ Ring ∧ (𝑀‘𝐴) ∈ (Base‘(Poly1‘𝐸)) ∧ (𝑀‘𝐴) ≠ (0g‘(Poly1‘𝐸))) → (𝐷‘(𝑀‘𝐴)) ∈ ℕ0)
61	50, 58, 59, 60	syl3anc 1373	. . . . . . . . 9 ⊢ (𝜑 → (𝐷‘(𝑀‘𝐴)) ∈ ℕ0)
62	23, 26, 48, 61, 8, 2	ply1degleel 33610	. . . . . . . 8 ⊢ (𝜑 → ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇 ↔ ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈 ∧ ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < (𝐷‘(𝑀‘𝐴)))))
63	62	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇 ↔ ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈 ∧ ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < (𝐷‘(𝑀‘𝐴)))))
64	25, 47, 63	mpbir2and 713	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇)
65	64	ralrimiva 3133	. . . . 5 ⊢ (𝜑 → ∀𝑝 ∈ 𝑈 (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇)
66		oveq1 7417	. . . . . . . . 9 ⊢ (𝑝 = 𝑞 → (𝑝𝑅(𝑀‘𝐴)) = (𝑞𝑅(𝑀‘𝐴)))
67	66	eqeq2d 2747	. . . . . . . 8 ⊢ (𝑝 = 𝑞 → (𝑞 = (𝑝𝑅(𝑀‘𝐴)) ↔ 𝑞 = (𝑞𝑅(𝑀‘𝐴))))
68		eqcom 2743	. . . . . . . 8 ⊢ (𝑞 = (𝑞𝑅(𝑀‘𝐴)) ↔ (𝑞𝑅(𝑀‘𝐴)) = 𝑞)
69	67, 68	bitrdi 287	. . . . . . 7 ⊢ (𝑝 = 𝑞 → (𝑞 = (𝑝𝑅(𝑀‘𝐴)) ↔ (𝑞𝑅(𝑀‘𝐴)) = 𝑞))
70	23, 26, 48, 61, 8, 2	ply1degltel 33609	. . . . . . . 8 ⊢ (𝜑 → (𝑞 ∈ 𝑇 ↔ (𝑞 ∈ 𝑈 ∧ ((deg1‘𝐾)‘𝑞) ≤ ((𝐷‘(𝑀‘𝐴)) − 1))))
71	70	simprbda 498	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → 𝑞 ∈ 𝑈)
72	70	simplbda 499	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) ≤ ((𝐷‘(𝑀‘𝐴)) − 1))
73	45	oveq1d 7425	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐷‘(𝑀‘𝐴)) − 1) = (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1))
74	73	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((𝐷‘(𝑀‘𝐴)) − 1) = (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1))
75	72, 74	breqtrd 5150	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) ≤ (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1))
76	26, 23, 2	deg1cl 26045	. . . . . . . . . . 11 ⊢ (𝑞 ∈ 𝑈 → ((deg1‘𝐾)‘𝑞) ∈ (ℕ0 ∪ {-∞}))
77	71, 76	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) ∈ (ℕ0 ∪ {-∞}))
78	61	nn0zd 12619	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐷‘(𝑀‘𝐴)) ∈ ℤ)
79	45, 78	eqeltrrd 2836	. . . . . . . . . . 11 ⊢ (𝜑 → ((deg1‘𝐾)‘(𝑀‘𝐴)) ∈ ℤ)
80	79	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘(𝑀‘𝐴)) ∈ ℤ)
81		degltlem1 26034	. . . . . . . . . 10 ⊢ ((((deg1‘𝐾)‘𝑞) ∈ (ℕ0 ∪ {-∞}) ∧ ((deg1‘𝐾)‘(𝑀‘𝐴)) ∈ ℤ) → (((deg1‘𝐾)‘𝑞) < ((deg1‘𝐾)‘(𝑀‘𝐴)) ↔ ((deg1‘𝐾)‘𝑞) ≤ (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1)))
82	77, 80, 81	syl2anc 584	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → (((deg1‘𝐾)‘𝑞) < ((deg1‘𝐾)‘(𝑀‘𝐴)) ↔ ((deg1‘𝐾)‘𝑞) ≤ (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1)))
83	75, 82	mpbird 257	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) < ((deg1‘𝐾)‘(𝑀‘𝐴)))
84		fldsdrgfld 20763	. . . . . . . . . . . . . 14 ⊢ ((𝐸 ∈ Field ∧ 𝐹 ∈ (SubDRing‘𝐸)) → (𝐸 ↾s 𝐹) ∈ Field)
85	12, 4, 84	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸 ↾s 𝐹) ∈ Field)
86	5, 85	eqeltrid 2839	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ Field)
87		fldidom 20736	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ Field → 𝐾 ∈ IDomn)
88	86, 87	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ IDomn)
89	88	idomdomd 20691	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 ∈ Domn)
90	89	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → 𝐾 ∈ Domn)
91	8, 16, 20	syl2anc 584	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Unic1p‘𝐾))
92	91	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → (𝑀‘𝐴) ∈ (Unic1p‘𝐾))
93	23, 2, 18, 22, 26, 90, 71, 92	r1pid2 26124	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((𝑞𝑅(𝑀‘𝐴)) = 𝑞 ↔ ((deg1‘𝐾)‘𝑞) < ((deg1‘𝐾)‘(𝑀‘𝐴))))
94	83, 93	mpbird 257	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → (𝑞𝑅(𝑀‘𝐴)) = 𝑞)
95	69, 71, 94	rspcedvdw 3609	. . . . . 6 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ∃𝑝 ∈ 𝑈 𝑞 = (𝑝𝑅(𝑀‘𝐴)))
96	95	ralrimiva 3133	. . . . 5 ⊢ (𝜑 → ∀𝑞 ∈ 𝑇 ∃𝑝 ∈ 𝑈 𝑞 = (𝑝𝑅(𝑀‘𝐴)))
97		algextdeglem.h	. . . . . 6 ⊢ 𝐻 = (𝑝 ∈ 𝑈 ↦ (𝑝𝑅(𝑀‘𝐴)))
98	97	fompt 7113	. . . . 5 ⊢ (𝐻:𝑈–onto→𝑇 ↔ (∀𝑝 ∈ 𝑈 (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇 ∧ ∀𝑞 ∈ 𝑇 ∃𝑝 ∈ 𝑈 𝑞 = (𝑝𝑅(𝑀‘𝐴))))
99	65, 96, 98	sylanbrc 583	. . . 4 ⊢ (𝜑 → 𝐻:𝑈–onto→𝑇)
100	23	ply1ring 22188	. . . . 5 ⊢ (𝐾 ∈ Ring → 𝑃 ∈ Ring)
101	8, 100	syl 17	. . . 4 ⊢ (𝜑 → 𝑃 ∈ Ring)
102	1, 3, 99, 101	imasbas 17531	. . 3 ⊢ (𝜑 → 𝑇 = (Base‘(𝐻 “s 𝑃)))
103	71	ex 412	. . . . 5 ⊢ (𝜑 → (𝑞 ∈ 𝑇 → 𝑞 ∈ 𝑈))
104	103	ssrdv 3969	. . . 4 ⊢ (𝜑 → 𝑇 ⊆ 𝑈)
105		eqid 2736	. . . . 5 ⊢ (𝑃 ↾s 𝑇) = (𝑃 ↾s 𝑇)
106	105, 2	ressbas2 17264	. . . 4 ⊢ (𝑇 ⊆ 𝑈 → 𝑇 = (Base‘(𝑃 ↾s 𝑇)))
107	104, 106	syl 17	. . 3 ⊢ (𝜑 → 𝑇 = (Base‘(𝑃 ↾s 𝑇)))
108		ssidd 3987	. . 3 ⊢ (𝜑 → 𝑇 ⊆ 𝑇)
109		eqid 2736	. . . . . . 7 ⊢ (𝐻 “s 𝑃) = (𝐻 “s 𝑃)
110		eqid 2736	. . . . . . 7 ⊢ (Base‘(𝐻 “s 𝑃)) = (Base‘(𝐻 “s 𝑃))
111	104	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑇 ⊆ 𝑈)
112		simplr 768	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑥 ∈ 𝑇)
113	111, 112	sseldd 3964	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑥 ∈ 𝑈)
114		simpr 484	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑦 ∈ 𝑇)
115	111, 114	sseldd 3964	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑦 ∈ 𝑈)
116		foeq3 6793	. . . . . . . . . 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 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝐻:𝑈–onto→(Base‘(𝐻 “s 𝑃)))
120	23, 2, 22, 18, 97, 8, 91	r1plmhm 33624	. . . . . . . . . 10 ⊢ (𝜑 → 𝐻 ∈ (𝑃 LMHom (𝐻 “s 𝑃)))
121	120	lmhmghmd 33037	. . . . . . . . 9 ⊢ (𝜑 → 𝐻 ∈ (𝑃 GrpHom (𝐻 “s 𝑃)))
122		ghmmhm 19214	. . . . . . . . 9 ⊢ (𝐻 ∈ (𝑃 GrpHom (𝐻 “s 𝑃)) → 𝐻 ∈ (𝑃 MndHom (𝐻 “s 𝑃)))
123	121, 122	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐻 ∈ (𝑃 MndHom (𝐻 “s 𝑃)))
124	123	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝐻 ∈ (𝑃 MndHom (𝐻 “s 𝑃)))
125		eqid 2736	. . . . . . 7 ⊢ (+g‘𝑃) = (+g‘𝑃)
126		eqid 2736	. . . . . . 7 ⊢ (+g‘(𝐻 “s 𝑃)) = (+g‘(𝐻 “s 𝑃))
127	109, 2, 110, 113, 115, 119, 124, 125, 126	mhmimasplusg 33038	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → ((𝐻‘𝑥)(+g‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝐻‘(𝑥(+g‘𝑃)𝑦)))
128		algextdeg.l	. . . . . . . . 9 ⊢ 𝐿 = (𝐸 ↾s (𝐸 fldGen (𝐹 ∪ {𝐴})))
129	12	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝐸 ∈ Field)
130	4	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝐹 ∈ (SubDRing‘𝐸))
131	14	ad2antrr 726	. . . . . . . . 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 33762	. . . . . . . 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 33762	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑦 ∈ 𝑇 ↔ (𝐻‘𝑦) = 𝑦))
140	114, 139	mpbid 232	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝐻‘𝑦) = 𝑦)
141	138, 140	oveq12d 7428	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → ((𝐻‘𝑥)(+g‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝑥(+g‘(𝐻 “s 𝑃))𝑦))
142	101	ringgrpd 20207	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ Grp)
143	23, 7	ply1lvec 33577	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 ∈ LVec)
144	23, 26, 48, 61, 8	ply1degltlss 33611	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑇 ∈ (LSubSp‘𝑃))
145		eqid 2736	. . . . . . . . . . . . 13 ⊢ (LSubSp‘𝑃) = (LSubSp‘𝑃)
146	105, 145	lsslvec 21072	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ LVec ∧ 𝑇 ∈ (LSubSp‘𝑃)) → (𝑃 ↾s 𝑇) ∈ LVec)
147	143, 144, 146	syl2anc 584	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 ↾s 𝑇) ∈ LVec)
148	147	lvecgrpd 21071	. . . . . . . . . 10 ⊢ (𝜑 → (𝑃 ↾s 𝑇) ∈ Grp)
149	2	issubg 19114	. . . . . . . . . 10 ⊢ (𝑇 ∈ (SubGrp‘𝑃) ↔ (𝑃 ∈ Grp ∧ 𝑇 ⊆ 𝑈 ∧ (𝑃 ↾s 𝑇) ∈ Grp))
150	142, 104, 148, 149	syl3anbrc 1344	. . . . . . . . 9 ⊢ (𝜑 → 𝑇 ∈ (SubGrp‘𝑃))
151	150	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑇 ∈ (SubGrp‘𝑃))
152	125	subgcl 19124	. . . . . . . 8 ⊢ ((𝑇 ∈ (SubGrp‘𝑃) ∧ 𝑥 ∈ 𝑇 ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘𝑃)𝑦) ∈ 𝑇)
153	151, 112, 114, 152	syl3anc 1373	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘𝑃)𝑦) ∈ 𝑇)
154	142	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑃 ∈ Grp)
155	2, 125, 154, 113, 115	grpcld 18935	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘𝑃)𝑦) ∈ 𝑈)
156	5, 128, 29, 13, 129, 130, 131, 30, 23, 2, 132, 133, 134, 135, 136, 22, 97, 48, 155	algextdeglem7 33762	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → ((𝑥(+g‘𝑃)𝑦) ∈ 𝑇 ↔ (𝐻‘(𝑥(+g‘𝑃)𝑦)) = (𝑥(+g‘𝑃)𝑦)))
157	153, 156	mpbid 232	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝐻‘(𝑥(+g‘𝑃)𝑦)) = (𝑥(+g‘𝑃)𝑦))
158	127, 141, 157	3eqtr3d 2779	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘(𝐻 “s 𝑃))𝑦) = (𝑥(+g‘𝑃)𝑦))
159		fvex 6894	. . . . . . . . 9 ⊢ (deg1‘𝐾) ∈ V
160		cnvexg 7925	. . . . . . . . 9 ⊢ ((deg1‘𝐾) ∈ V → ◡(deg1‘𝐾) ∈ V)
161		imaexg 7914	. . . . . . . . 9 ⊢ (◡(deg1‘𝐾) ∈ V → (◡(deg1‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴)))) ∈ V)
162	159, 160, 161	mp2b 10	. . . . . . . 8 ⊢ (◡(deg1‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴)))) ∈ V
163	48, 162	eqeltri 2831	. . . . . . 7 ⊢ 𝑇 ∈ V
164	105, 125	ressplusg 17310	. . . . . . 7 ⊢ (𝑇 ∈ V → (+g‘𝑃) = (+g‘(𝑃 ↾s 𝑇)))
165	163, 164	ax-mp 5	. . . . . 6 ⊢ (+g‘𝑃) = (+g‘(𝑃 ↾s 𝑇))
166	165	oveqi 7423	. . . . 5 ⊢ (𝑥(+g‘𝑃)𝑦) = (𝑥(+g‘(𝑃 ↾s 𝑇))𝑦)
167	158, 166	eqtrdi 2787	. . . 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 3964	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑦 ∈ 𝑈)
175	5, 128, 29, 13, 170, 171, 172, 30, 23, 2, 132, 133, 134, 135, 136, 22, 97, 48, 174	algextdeglem7 33762	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑦 ∈ 𝑇 ↔ (𝐻‘𝑦) = 𝑦))
176	169, 175	mpbid 232	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝐻‘𝑦) = 𝑦)
177	176	oveq2d 7426	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦))
178		simprl 770	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑥 ∈ 𝐹)
179	33	sdrgss 20758	. . . . . . . . . 10 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐹 ⊆ (Base‘𝐸))
180	5, 33	ressbas2 17264	. . . . . . . . . 10 ⊢ (𝐹 ⊆ (Base‘𝐸) → 𝐹 = (Base‘𝐾))
181	4, 179, 180	3syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 = (Base‘𝐾))
182	23	ply1sca 22193	. . . . . . . . . . 11 ⊢ (𝐾 ∈ Ring → 𝐾 = (Scalar‘𝑃))
183	8, 182	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 = (Scalar‘𝑃))
184	183	fveq2d 6885	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝐾) = (Base‘(Scalar‘𝑃)))
185	181, 184	eqtrd 2771	. . . . . . . 8 ⊢ (𝜑 → 𝐹 = (Base‘(Scalar‘𝑃)))
186	185	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐹 = (Base‘(Scalar‘𝑃)))
187	178, 186	eleqtrd 2837	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑥 ∈ (Base‘(Scalar‘𝑃)))
188	118	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐻:𝑈–onto→(Base‘(𝐻 “s 𝑃)))
189	120	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐻 ∈ (𝑃 LMHom (𝐻 “s 𝑃)))
190		eqid 2736	. . . . . 6 ⊢ ( ·𝑠 ‘𝑃) = ( ·𝑠 ‘𝑃)
191		eqid 2736	. . . . . 6 ⊢ ( ·𝑠 ‘(𝐻 “s 𝑃)) = ( ·𝑠 ‘(𝐻 “s 𝑃))
192		eqid 2736	. . . . . 6 ⊢ (Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃))
193	109, 2, 110, 187, 174, 188, 189, 190, 191, 192	lmhmimasvsca 33039	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)))
194	177, 193	eqtr3d 2773	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦) = (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)))
195	64, 97	fmptd 7109	. . . . . 6 ⊢ (𝜑 → 𝐻:𝑈⟶𝑇)
196	195	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐻:𝑈⟶𝑇)
197		eqid 2736	. . . . . 6 ⊢ (Scalar‘𝑃) = (Scalar‘𝑃)
198	143	lveclmodd 21070	. . . . . . 7 ⊢ (𝜑 → 𝑃 ∈ LMod)
199	198	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑃 ∈ LMod)
200	2, 197, 190, 192, 199, 187, 174	lmodvscld 20841	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘𝑃)𝑦) ∈ 𝑈)
201	196, 200	ffvelcdmd 7080	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)) ∈ 𝑇)
202	194, 201	eqeltrd 2835	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦) ∈ 𝑇)
203	144	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑇 ∈ (LSubSp‘𝑃))
204	197, 190, 192, 145	lssvscl 20917	. . . . . 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 33762	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → ((𝑥( ·𝑠 ‘𝑃)𝑦) ∈ 𝑇 ↔ (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)) = (𝑥( ·𝑠 ‘𝑃)𝑦)))
207	205, 206	mpbid 232	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)) = (𝑥( ·𝑠 ‘𝑃)𝑦))
208	105, 190	ressvsca 17363	. . . . . 6 ⊢ (𝑇 ∈ V → ( ·𝑠 ‘𝑃) = ( ·𝑠 ‘(𝑃 ↾s 𝑇)))
209	163, 208	mp1i 13	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → ( ·𝑠 ‘𝑃) = ( ·𝑠 ‘(𝑃 ↾s 𝑇)))
210	209	oveqd 7427	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘𝑃)𝑦) = (𝑥( ·𝑠 ‘(𝑃 ↾s 𝑇))𝑦))
211	194, 207, 210	3eqtrd 2775	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦) = (𝑥( ·𝑠 ‘(𝑃 ↾s 𝑇))𝑦))
212		eqid 2736	. . 3 ⊢ (Scalar‘(𝐻 “s 𝑃)) = (Scalar‘(𝐻 “s 𝑃))
213	105, 197	resssca 17362	. . . 4 ⊢ (𝑇 ∈ V → (Scalar‘𝑃) = (Scalar‘(𝑃 ↾s 𝑇)))
214	163, 213	ax-mp 5	. . 3 ⊢ (Scalar‘𝑃) = (Scalar‘(𝑃 ↾s 𝑇))
215	1, 3, 99, 101, 197	imassca 17538	. . . . . 6 ⊢ (𝜑 → (Scalar‘𝑃) = (Scalar‘(𝐻 “s 𝑃)))
216	183, 215	eqtrd 2771	. . . . 5 ⊢ (𝜑 → 𝐾 = (Scalar‘(𝐻 “s 𝑃)))
217	216	fveq2d 6885	. . . 4 ⊢ (𝜑 → (Base‘𝐾) = (Base‘(Scalar‘(𝐻 “s 𝑃))))
218	181, 217	eqtrd 2771	. . 3 ⊢ (𝜑 → 𝐹 = (Base‘(Scalar‘(𝐻 “s 𝑃))))
219	215	fveq2d 6885	. . . . . 6 ⊢ (𝜑 → (+g‘(Scalar‘𝑃)) = (+g‘(Scalar‘(𝐻 “s 𝑃))))
220	219	oveqd 7427	. . . . 5 ⊢ (𝜑 → (𝑥(+g‘(Scalar‘𝑃))𝑦) = (𝑥(+g‘(Scalar‘(𝐻 “s 𝑃)))𝑦))
221	220	eqcomd 2742	. . . 4 ⊢ (𝜑 → (𝑥(+g‘(Scalar‘(𝐻 “s 𝑃)))𝑦) = (𝑥(+g‘(Scalar‘𝑃))𝑦))
222	221	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝐹)) → (𝑥(+g‘(Scalar‘(𝐻 “s 𝑃)))𝑦) = (𝑥(+g‘(Scalar‘𝑃))𝑦))
223		lmhmlvec2 33664	. . . 4 ⊢ ((𝑃 ∈ LVec ∧ 𝐻 ∈ (𝑃 LMHom (𝐻 “s 𝑃))) → (𝐻 “s 𝑃) ∈ LVec)
224	143, 120, 223	syl2anc 584	. . 3 ⊢ (𝜑 → (𝐻 “s 𝑃) ∈ LVec)
225	102, 107, 108, 168, 202, 211, 212, 214, 218, 185, 222, 224, 147	dimpropd 33653	. 2 ⊢ (𝜑 → (dim‘(𝐻 “s 𝑃)) = (dim‘(𝑃 ↾s 𝑇)))
226	23, 26, 48, 61, 7, 105	ply1degltdim 33668	. 2 ⊢ (𝜑 → (dim‘(𝑃 ↾s 𝑇)) = (𝐷‘(𝑀‘𝐴)))
227	225, 226	eqtrd 2771	1 ⊢ (𝜑 → (dim‘(𝐻 “s 𝑃)) = (𝐷‘(𝑀‘𝐴)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1540   ∈ wcel 2109   ≠ wne 2933  ∀wral 3052  ∃wrex 3061  {crab 3420  Vcvv 3464   ∪ cun 3929   ∩ cin 3930   ⊆ wss 3931  {csn 4606  ∪ cuni 4888   class class class wbr 5124   ↦ cmpt 5206  ^◡ccnv 5658  dom cdm 5659   “ cima 5662  ⟶wf 6532  –onto→wfo 6534  ‘cfv 6536  (class class class)co 7410  [cec 8722  1c1 11135  -∞cmnf 11272   < clt 11274   ≤ cle 11275   − cmin 11471  ℕ₀cn0 12506  ℤcz 12593  [,)cico 13369  Basecbs 17233   ↾_s cress 17256  +_gcplusg 17276  Scalarcsca 17279   ·_𝑠 cvsca 17280  0_gc0g 17458   “_s cimas 17523   /_s cqus 17524   MndHom cmhm 18764  Grpcgrp 18921  SubGrpcsubg 19108   ~_QG cqg 19110   GrpHom cghm 19200  Ringcrg 20198  SubRingcsubrg 20534  Domncdomn 20657  IDomncidom 20658  DivRingcdr 20694  Fieldcfield 20695  SubDRingcsdrg 20751  LModclmod 20822  LSubSpclss 20893   LMHom clmhm 20982  LVecclvec 21065  RSpancrsp 21173  PwSer₁cps1 22115  Poly₁cpl1 22117   evalSub₁ ces1 22256  deg₁cdg1 26016  Monic_1pcmn1 26088  Unic_1pcuc1p 26089  rem_1pcr1p 26091  idlGen_1pcig1p 26092   fldGen cfldgen 33309  dimcldim 33643   IntgRing cirng 33729   minPoly cminply 33738

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 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2708  ax-rep 5254  ax-sep 5271  ax-nul 5281  ax-pow 5340  ax-pr 5407  ax-un 7734  ax-reg 9611  ax-inf2 9660  ax-ac2 10482  ax-cnex 11190  ax-resscn 11191  ax-1cn 11192  ax-icn 11193  ax-addcl 11194  ax-addrcl 11195  ax-mulcl 11196  ax-mulrcl 11197  ax-mulcom 11198  ax-addass 11199  ax-mulass 11200  ax-distr 11201  ax-i2m1 11202  ax-1ne0 11203  ax-1rid 11204  ax-rnegex 11205  ax-rrecex 11206  ax-cnre 11207  ax-pre-lttri 11208  ax-pre-lttrn 11209  ax-pre-ltadd 11210  ax-pre-mulgt0 11211  ax-pre-sup 11212  ax-addf 11213

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2810  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3062  df-rmo 3364  df-reu 3365  df-rab 3421  df-v 3466  df-sbc 3771  df-csb 3880  df-dif 3934  df-un 3936  df-in 3938  df-ss 3948  df-pss 3951  df-nul 4314  df-if 4506  df-pw 4582  df-sn 4607  df-pr 4609  df-tp 4611  df-op 4613  df-uni 4889  df-int 4928  df-iun 4974  df-iin 4975  df-br 5125  df-opab 5187  df-mpt 5207  df-tr 5235  df-id 5553  df-eprel 5558  df-po 5566  df-so 5567  df-fr 5611  df-se 5612  df-we 5613  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6295  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-isom 6545  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-of 7676  df-ofr 7677  df-rpss 7722  df-om 7867  df-1st 7993  df-2nd 7994  df-supp 8165  df-tpos 8230  df-frecs 8285  df-wrecs 8316  df-recs 8390  df-rdg 8429  df-1o 8485  df-2o 8486  df-oadd 8489  df-er 8724  df-map 8847  df-pm 8848  df-ixp 8917  df-en 8965  df-dom 8966  df-sdom 8967  df-fin 8968  df-fsupp 9379  df-sup 9459  df-inf 9460  df-oi 9529  df-r1 9783  df-rank 9784  df-dju 9920  df-card 9958  df-acn 9961  df-ac 10135  df-pnf 11276  df-mnf 11277  df-xr 11278  df-ltxr 11279  df-le 11280  df-sub 11473  df-neg 11474  df-nn 12246  df-2 12308  df-3 12309  df-4 12310  df-5 12311  df-6 12312  df-7 12313  df-8 12314  df-9 12315  df-n0 12507  df-xnn0 12580  df-z 12594  df-dec 12714  df-uz 12858  df-ico 13373  df-fz 13530  df-fzo 13677  df-seq 14025  df-hash 14354  df-struct 17171  df-sets 17188  df-slot 17206  df-ndx 17218  df-base 17234  df-ress 17257  df-plusg 17289  df-mulr 17290  df-starv 17291  df-sca 17292  df-vsca 17293  df-ip 17294  df-tset 17295  df-ple 17296  df-ocomp 17297  df-ds 17298  df-unif 17299  df-hom 17300  df-cco 17301  df-0g 17460  df-gsum 17461  df-prds 17466  df-pws 17468  df-imas 17527  df-mre 17603  df-mrc 17604  df-mri 17605  df-acs 17606  df-proset 18311  df-drs 18312  df-poset 18330  df-ipo 18543  df-mgm 18623  df-sgrp 18702  df-mnd 18718  df-mhm 18766  df-submnd 18767  df-grp 18924  df-minusg 18925  df-sbg 18926  df-mulg 19056  df-subg 19111  df-ghm 19201  df-cntz 19305  df-cmn 19768  df-abl 19769  df-mgp 20106  df-rng 20118  df-ur 20147  df-srg 20152  df-ring 20200  df-cring 20201  df-oppr 20302  df-dvdsr 20322  df-unit 20323  df-invr 20353  df-rhm 20437  df-nzr 20478  df-subrng 20511  df-subrg 20535  df-rlreg 20659  df-domn 20660  df-idom 20661  df-drng 20696  df-field 20697  df-sdrg 20752  df-lmod 20824  df-lss 20894  df-lsp 20934  df-lmhm 20985  df-lbs 21038  df-lvec 21066  df-sra 21136  df-rgmod 21137  df-lidl 21174  df-rsp 21175  df-cnfld 21321  df-dsmm 21697  df-frlm 21712  df-uvc 21748  df-lindf 21771  df-linds 21772  df-assa 21818  df-asp 21819  df-ascl 21820  df-psr 21874  df-mvr 21875  df-mpl 21876  df-opsr 21878  df-evls 22037  df-evl 22038  df-psr1 22120  df-vr1 22121  df-ply1 22122  df-coe1 22123  df-evls1 22258  df-evl1 22259  df-mdeg 26017  df-deg1 26018  df-mon1 26093  df-uc1p 26094  df-q1p 26095  df-r1p 26096  df-ig1p 26097  df-dim 33644  df-irng 33730  df-minply 33739

This theorem is referenced by:  algextdeg  33764