Theorem algextdeglem8 33830

Description: Lemma for algextdeg 33831. 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 2735	. . . 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 20721	. . . . . . . . . . 11 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐾 ∈ DivRing)
7	4, 6	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 ∈ DivRing)
8	7	drngringd 20668	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ Ring)
9	8	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → 𝐾 ∈ Ring)
10		simpr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → 𝑝 ∈ 𝑈)
11		eqid 2734	. . . . . . . . . . 11 ⊢ (0g‘(Poly1‘𝐸)) = (0g‘(Poly1‘𝐸))
12		algextdeg.f	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∈ Field)
13		algextdeg.m	. . . . . . . . . . 11 ⊢ 𝑀 = (𝐸 minPoly 𝐹)
14		algextdeg.a	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 ∈ (𝐸 IntgRing 𝐹))
15	5	fveq2i 6835	. . . . . . . . . . 11 ⊢ (Monic1p‘𝐾) = (Monic1p‘(𝐸 ↾s 𝐹))
16	11, 12, 4, 13, 14, 15	minplym1p 33819	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Monic1p‘𝐾))
17	16	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑀‘𝐴) ∈ (Monic1p‘𝐾))
18		eqid 2734	. . . . . . . . . 10 ⊢ (Unic1p‘𝐾) = (Unic1p‘𝐾)
19		eqid 2734	. . . . . . . . . 10 ⊢ (Monic1p‘𝐾) = (Monic1p‘𝐾)
20	18, 19	mon1puc1p 26110	. . . . . . . . 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 26118	. . . . . . . 8 ⊢ ((𝐾 ∈ Ring ∧ 𝑝 ∈ 𝑈 ∧ (𝑀‘𝐴) ∈ (Unic1p‘𝐾)) → (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈)
25	9, 10, 21, 24	syl3anc 1373	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈)
26		eqid 2734	. . . . . . . . . 10 ⊢ (deg1‘𝐾) = (deg1‘𝐾)
27	22, 23, 2, 18, 26	r1pdeglt 26119	. . . . . . . . 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 6835	. . . . . . . . . . . . 13 ⊢ (Poly1‘𝐾) = (Poly1‘(𝐸 ↾s 𝐹))
32	23, 31	eqtri 2757	. . . . . . . . . . . 12 ⊢ 𝑃 = (Poly1‘(𝐸 ↾s 𝐹))
33		eqid 2734	. . . . . . . . . . . 12 ⊢ (Base‘𝐸) = (Base‘𝐸)
34		eqid 2734	. . . . . . . . . . . . . 14 ⊢ (0g‘𝐸) = (0g‘𝐸)
35	12	fldcrngd 20673	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐸 ∈ CRing)
36		sdrgsubrg 20722	. . . . . . . . . . . . . . 15 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐹 ∈ (SubRing‘𝐸))
37	4, 36	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐹 ∈ (SubRing‘𝐸))
38	30, 5, 33, 34, 35, 37	irngssv 33794	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸 IntgRing 𝐹) ⊆ (Base‘𝐸))
39	38, 14	sseldd 3932	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ (Base‘𝐸))
40		eqid 2734	. . . . . . . . . . . 12 ⊢ {𝑝 ∈ dom 𝑂 ∣ ((𝑂‘𝑝)‘𝐴) = (0g‘𝐸)} = {𝑝 ∈ dom 𝑂 ∣ ((𝑂‘𝑝)‘𝐴) = (0g‘𝐸)}
41		eqid 2734	. . . . . . . . . . . 12 ⊢ (RSpan‘𝑃) = (RSpan‘𝑃)
42		eqid 2734	. . . . . . . . . . . 12 ⊢ (idlGen1p‘(𝐸 ↾s 𝐹)) = (idlGen1p‘(𝐸 ↾s 𝐹))
43	30, 32, 33, 12, 4, 39, 34, 40, 41, 42, 13	minplycl 33812	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Base‘𝑃))
44	43, 2	eleqtrrdi 2845	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ 𝑈)
45	5, 29, 23, 2, 44, 37	ressdeg1 33596	. . . . . . . . 9 ⊢ (𝜑 → (𝐷‘(𝑀‘𝐴)) = ((deg1‘𝐾)‘(𝑀‘𝐴)))
46	45	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝐷‘(𝑀‘𝐴)) = ((deg1‘𝐾)‘(𝑀‘𝐴)))
47	28, 46	breqtrrd 5124	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < (𝐷‘(𝑀‘𝐴)))
48		algextdeglem.t	. . . . . . . . 9 ⊢ 𝑇 = (◡(deg1‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴))))
49	12	flddrngd 20672	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∈ DivRing)
50	49	drngringd 20668	. . . . . . . . . 10 ⊢ (𝜑 → 𝐸 ∈ Ring)
51		eqid 2734	. . . . . . . . . . . . 13 ⊢ (Poly1‘𝐸) = (Poly1‘𝐸)
52		eqid 2734	. . . . . . . . . . . . 13 ⊢ (PwSer1‘𝐾) = (PwSer1‘𝐾)
53		eqid 2734	. . . . . . . . . . . . 13 ⊢ (Base‘(PwSer1‘𝐾)) = (Base‘(PwSer1‘𝐾))
54		eqid 2734	. . . . . . . . . . . . 13 ⊢ (Base‘(Poly1‘𝐸)) = (Base‘(Poly1‘𝐸))
55	51, 5, 23, 2, 37, 52, 53, 54	ressply1bas2 22166	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑈 = ((Base‘(PwSer1‘𝐾)) ∩ (Base‘(Poly1‘𝐸))))
56		inss2 4188	. . . . . . . . . . . 12 ⊢ ((Base‘(PwSer1‘𝐾)) ∩ (Base‘(Poly1‘𝐸))) ⊆ (Base‘(Poly1‘𝐸))
57	55, 56	eqsstrdi 3976	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑈 ⊆ (Base‘(Poly1‘𝐸)))
58	57, 44	sseldd 3932	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Base‘(Poly1‘𝐸)))
59	11, 12, 4, 13, 14	irngnminplynz 33818	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ≠ (0g‘(Poly1‘𝐸)))
60	29, 51, 11, 54	deg1nn0cl 26047	. . . . . . . . . 10 ⊢ ((𝐸 ∈ Ring ∧ (𝑀‘𝐴) ∈ (Base‘(Poly1‘𝐸)) ∧ (𝑀‘𝐴) ≠ (0g‘(Poly1‘𝐸))) → (𝐷‘(𝑀‘𝐴)) ∈ ℕ0)
61	50, 58, 59, 60	syl3anc 1373	. . . . . . . . 9 ⊢ (𝜑 → (𝐷‘(𝑀‘𝐴)) ∈ ℕ0)
62	23, 26, 48, 61, 8, 2	ply1degleel 33625	. . . . . . . 8 ⊢ (𝜑 → ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇 ↔ ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈 ∧ ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < (𝐷‘(𝑀‘𝐴)))))
63	62	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇 ↔ ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈 ∧ ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < (𝐷‘(𝑀‘𝐴)))))
64	25, 47, 63	mpbir2and 713	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇)
65	64	ralrimiva 3126	. . . . 5 ⊢ (𝜑 → ∀𝑝 ∈ 𝑈 (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇)
66		oveq1 7363	. . . . . . . . 9 ⊢ (𝑝 = 𝑞 → (𝑝𝑅(𝑀‘𝐴)) = (𝑞𝑅(𝑀‘𝐴)))
67	66	eqeq2d 2745	. . . . . . . 8 ⊢ (𝑝 = 𝑞 → (𝑞 = (𝑝𝑅(𝑀‘𝐴)) ↔ 𝑞 = (𝑞𝑅(𝑀‘𝐴))))
68		eqcom 2741	. . . . . . . 8 ⊢ (𝑞 = (𝑞𝑅(𝑀‘𝐴)) ↔ (𝑞𝑅(𝑀‘𝐴)) = 𝑞)
69	67, 68	bitrdi 287	. . . . . . 7 ⊢ (𝑝 = 𝑞 → (𝑞 = (𝑝𝑅(𝑀‘𝐴)) ↔ (𝑞𝑅(𝑀‘𝐴)) = 𝑞))
70	23, 26, 48, 61, 8, 2	ply1degltel 33624	. . . . . . . 8 ⊢ (𝜑 → (𝑞 ∈ 𝑇 ↔ (𝑞 ∈ 𝑈 ∧ ((deg1‘𝐾)‘𝑞) ≤ ((𝐷‘(𝑀‘𝐴)) − 1))))
71	70	simprbda 498	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → 𝑞 ∈ 𝑈)
72	70	simplbda 499	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) ≤ ((𝐷‘(𝑀‘𝐴)) − 1))
73	45	oveq1d 7371	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐷‘(𝑀‘𝐴)) − 1) = (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1))
74	73	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((𝐷‘(𝑀‘𝐴)) − 1) = (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1))
75	72, 74	breqtrd 5122	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) ≤ (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1))
76	26, 23, 2	deg1cl 26042	. . . . . . . . . . 11 ⊢ (𝑞 ∈ 𝑈 → ((deg1‘𝐾)‘𝑞) ∈ (ℕ0 ∪ {-∞}))
77	71, 76	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) ∈ (ℕ0 ∪ {-∞}))
78	61	nn0zd 12511	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐷‘(𝑀‘𝐴)) ∈ ℤ)
79	45, 78	eqeltrrd 2835	. . . . . . . . . . 11 ⊢ (𝜑 → ((deg1‘𝐾)‘(𝑀‘𝐴)) ∈ ℤ)
80	79	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘(𝑀‘𝐴)) ∈ ℤ)
81		degltlem1 26031	. . . . . . . . . 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 20729	. . . . . . . . . . . . . 14 ⊢ ((𝐸 ∈ Field ∧ 𝐹 ∈ (SubDRing‘𝐸)) → (𝐸 ↾s 𝐹) ∈ Field)
85	12, 4, 84	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸 ↾s 𝐹) ∈ Field)
86	5, 85	eqeltrid 2838	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ Field)
87		fldidom 20702	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ Field → 𝐾 ∈ IDomn)
88	86, 87	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ IDomn)
89	88	idomdomd 20657	. . . . . . . . . 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 26121	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((𝑞𝑅(𝑀‘𝐴)) = 𝑞 ↔ ((deg1‘𝐾)‘𝑞) < ((deg1‘𝐾)‘(𝑀‘𝐴))))
94	83, 93	mpbird 257	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → (𝑞𝑅(𝑀‘𝐴)) = 𝑞)
95	69, 71, 94	rspcedvdw 3577	. . . . . 6 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ∃𝑝 ∈ 𝑈 𝑞 = (𝑝𝑅(𝑀‘𝐴)))
96	95	ralrimiva 3126	. . . . 5 ⊢ (𝜑 → ∀𝑞 ∈ 𝑇 ∃𝑝 ∈ 𝑈 𝑞 = (𝑝𝑅(𝑀‘𝐴)))
97		algextdeglem.h	. . . . . 6 ⊢ 𝐻 = (𝑝 ∈ 𝑈 ↦ (𝑝𝑅(𝑀‘𝐴)))
98	97	fompt 7061	. . . . 5 ⊢ (𝐻:𝑈–onto→𝑇 ↔ (∀𝑝 ∈ 𝑈 (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇 ∧ ∀𝑞 ∈ 𝑇 ∃𝑝 ∈ 𝑈 𝑞 = (𝑝𝑅(𝑀‘𝐴))))
99	65, 96, 98	sylanbrc 583	. . . 4 ⊢ (𝜑 → 𝐻:𝑈–onto→𝑇)
100	23	ply1ring 22186	. . . . 5 ⊢ (𝐾 ∈ Ring → 𝑃 ∈ Ring)
101	8, 100	syl 17	. . . 4 ⊢ (𝜑 → 𝑃 ∈ Ring)
102	1, 3, 99, 101	imasbas 17431	. . 3 ⊢ (𝜑 → 𝑇 = (Base‘(𝐻 “s 𝑃)))
103	71	ex 412	. . . . 5 ⊢ (𝜑 → (𝑞 ∈ 𝑇 → 𝑞 ∈ 𝑈))
104	103	ssrdv 3937	. . . 4 ⊢ (𝜑 → 𝑇 ⊆ 𝑈)
105		eqid 2734	. . . . 5 ⊢ (𝑃 ↾s 𝑇) = (𝑃 ↾s 𝑇)
106	105, 2	ressbas2 17163	. . . 4 ⊢ (𝑇 ⊆ 𝑈 → 𝑇 = (Base‘(𝑃 ↾s 𝑇)))
107	104, 106	syl 17	. . 3 ⊢ (𝜑 → 𝑇 = (Base‘(𝑃 ↾s 𝑇)))
108		ssidd 3955	. . 3 ⊢ (𝜑 → 𝑇 ⊆ 𝑇)
109		eqid 2734	. . . . . . 7 ⊢ (𝐻 “s 𝑃) = (𝐻 “s 𝑃)
110		eqid 2734	. . . . . . 7 ⊢ (Base‘(𝐻 “s 𝑃)) = (Base‘(𝐻 “s 𝑃))
111	104	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑇 ⊆ 𝑈)
112		simplr 768	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑥 ∈ 𝑇)
113	111, 112	sseldd 3932	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑥 ∈ 𝑈)
114		simpr 484	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑦 ∈ 𝑇)
115	111, 114	sseldd 3932	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑦 ∈ 𝑈)
116		foeq3 6742	. . . . . . . . . 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 33640	. . . . . . . . . 10 ⊢ (𝜑 → 𝐻 ∈ (𝑃 LMHom (𝐻 “s 𝑃)))
121	120	lmhmghmd 33068	. . . . . . . . 9 ⊢ (𝜑 → 𝐻 ∈ (𝑃 GrpHom (𝐻 “s 𝑃)))
122		ghmmhm 19153	. . . . . . . . 9 ⊢ (𝐻 ∈ (𝑃 GrpHom (𝐻 “s 𝑃)) → 𝐻 ∈ (𝑃 MndHom (𝐻 “s 𝑃)))
123	121, 122	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐻 ∈ (𝑃 MndHom (𝐻 “s 𝑃)))
124	123	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝐻 ∈ (𝑃 MndHom (𝐻 “s 𝑃)))
125		eqid 2734	. . . . . . 7 ⊢ (+g‘𝑃) = (+g‘𝑃)
126		eqid 2734	. . . . . . 7 ⊢ (+g‘(𝐻 “s 𝑃)) = (+g‘(𝐻 “s 𝑃))
127	109, 2, 110, 113, 115, 119, 124, 125, 126	mhmimasplusg 33069	. . . . . 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 33829	. . . . . . . 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 33829	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑦 ∈ 𝑇 ↔ (𝐻‘𝑦) = 𝑦))
140	114, 139	mpbid 232	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝐻‘𝑦) = 𝑦)
141	138, 140	oveq12d 7374	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → ((𝐻‘𝑥)(+g‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝑥(+g‘(𝐻 “s 𝑃))𝑦))
142	101	ringgrpd 20175	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ Grp)
143	23, 7	ply1lvec 33589	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 ∈ LVec)
144	23, 26, 48, 61, 8	ply1degltlss 33626	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑇 ∈ (LSubSp‘𝑃))
145		eqid 2734	. . . . . . . . . . . . 13 ⊢ (LSubSp‘𝑃) = (LSubSp‘𝑃)
146	105, 145	lsslvec 21059	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ LVec ∧ 𝑇 ∈ (LSubSp‘𝑃)) → (𝑃 ↾s 𝑇) ∈ LVec)
147	143, 144, 146	syl2anc 584	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 ↾s 𝑇) ∈ LVec)
148	147	lvecgrpd 21058	. . . . . . . . . 10 ⊢ (𝜑 → (𝑃 ↾s 𝑇) ∈ Grp)
149	2	issubg 19054	. . . . . . . . . 10 ⊢ (𝑇 ∈ (SubGrp‘𝑃) ↔ (𝑃 ∈ Grp ∧ 𝑇 ⊆ 𝑈 ∧ (𝑃 ↾s 𝑇) ∈ Grp))
150	142, 104, 148, 149	syl3anbrc 1344	. . . . . . . . 9 ⊢ (𝜑 → 𝑇 ∈ (SubGrp‘𝑃))
151	150	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑇 ∈ (SubGrp‘𝑃))
152	125	subgcl 19064	. . . . . . . 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 18875	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘𝑃)𝑦) ∈ 𝑈)
156	5, 128, 29, 13, 129, 130, 131, 30, 23, 2, 132, 133, 134, 135, 136, 22, 97, 48, 155	algextdeglem7 33829	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → ((𝑥(+g‘𝑃)𝑦) ∈ 𝑇 ↔ (𝐻‘(𝑥(+g‘𝑃)𝑦)) = (𝑥(+g‘𝑃)𝑦)))
157	153, 156	mpbid 232	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝐻‘(𝑥(+g‘𝑃)𝑦)) = (𝑥(+g‘𝑃)𝑦))
158	127, 141, 157	3eqtr3d 2777	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘(𝐻 “s 𝑃))𝑦) = (𝑥(+g‘𝑃)𝑦))
159		fvex 6845	. . . . . . . . 9 ⊢ (deg1‘𝐾) ∈ V
160		cnvexg 7864	. . . . . . . . 9 ⊢ ((deg1‘𝐾) ∈ V → ◡(deg1‘𝐾) ∈ V)
161		imaexg 7853	. . . . . . . . 9 ⊢ (◡(deg1‘𝐾) ∈ V → (◡(deg1‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴)))) ∈ V)
162	159, 160, 161	mp2b 10	. . . . . . . 8 ⊢ (◡(deg1‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴)))) ∈ V
163	48, 162	eqeltri 2830	. . . . . . 7 ⊢ 𝑇 ∈ V
164	105, 125	ressplusg 17209	. . . . . . 7 ⊢ (𝑇 ∈ V → (+g‘𝑃) = (+g‘(𝑃 ↾s 𝑇)))
165	163, 164	ax-mp 5	. . . . . 6 ⊢ (+g‘𝑃) = (+g‘(𝑃 ↾s 𝑇))
166	165	oveqi 7369	. . . . 5 ⊢ (𝑥(+g‘𝑃)𝑦) = (𝑥(+g‘(𝑃 ↾s 𝑇))𝑦)
167	158, 166	eqtrdi 2785	. . . 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 3932	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑦 ∈ 𝑈)
175	5, 128, 29, 13, 170, 171, 172, 30, 23, 2, 132, 133, 134, 135, 136, 22, 97, 48, 174	algextdeglem7 33829	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑦 ∈ 𝑇 ↔ (𝐻‘𝑦) = 𝑦))
176	169, 175	mpbid 232	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝐻‘𝑦) = 𝑦)
177	176	oveq2d 7372	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦))
178		simprl 770	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑥 ∈ 𝐹)
179	33	sdrgss 20724	. . . . . . . . . 10 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐹 ⊆ (Base‘𝐸))
180	5, 33	ressbas2 17163	. . . . . . . . . 10 ⊢ (𝐹 ⊆ (Base‘𝐸) → 𝐹 = (Base‘𝐾))
181	4, 179, 180	3syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 = (Base‘𝐾))
182	23	ply1sca 22191	. . . . . . . . . . 11 ⊢ (𝐾 ∈ Ring → 𝐾 = (Scalar‘𝑃))
183	8, 182	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 = (Scalar‘𝑃))
184	183	fveq2d 6836	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝐾) = (Base‘(Scalar‘𝑃)))
185	181, 184	eqtrd 2769	. . . . . . . 8 ⊢ (𝜑 → 𝐹 = (Base‘(Scalar‘𝑃)))
186	185	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐹 = (Base‘(Scalar‘𝑃)))
187	178, 186	eleqtrd 2836	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑥 ∈ (Base‘(Scalar‘𝑃)))
188	118	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐻:𝑈–onto→(Base‘(𝐻 “s 𝑃)))
189	120	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐻 ∈ (𝑃 LMHom (𝐻 “s 𝑃)))
190		eqid 2734	. . . . . 6 ⊢ ( ·𝑠 ‘𝑃) = ( ·𝑠 ‘𝑃)
191		eqid 2734	. . . . . 6 ⊢ ( ·𝑠 ‘(𝐻 “s 𝑃)) = ( ·𝑠 ‘(𝐻 “s 𝑃))
192		eqid 2734	. . . . . 6 ⊢ (Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃))
193	109, 2, 110, 187, 174, 188, 189, 190, 191, 192	lmhmimasvsca 33070	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)))
194	177, 193	eqtr3d 2771	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦) = (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)))
195	64, 97	fmptd 7057	. . . . . 6 ⊢ (𝜑 → 𝐻:𝑈⟶𝑇)
196	195	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐻:𝑈⟶𝑇)
197		eqid 2734	. . . . . 6 ⊢ (Scalar‘𝑃) = (Scalar‘𝑃)
198	143	lveclmodd 21057	. . . . . . 7 ⊢ (𝜑 → 𝑃 ∈ LMod)
199	198	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑃 ∈ LMod)
200	2, 197, 190, 192, 199, 187, 174	lmodvscld 20828	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘𝑃)𝑦) ∈ 𝑈)
201	196, 200	ffvelcdmd 7028	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)) ∈ 𝑇)
202	194, 201	eqeltrd 2834	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦) ∈ 𝑇)
203	144	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑇 ∈ (LSubSp‘𝑃))
204	197, 190, 192, 145	lssvscl 20904	. . . . . 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 33829	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → ((𝑥( ·𝑠 ‘𝑃)𝑦) ∈ 𝑇 ↔ (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)) = (𝑥( ·𝑠 ‘𝑃)𝑦)))
207	205, 206	mpbid 232	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)) = (𝑥( ·𝑠 ‘𝑃)𝑦))
208	105, 190	ressvsca 17262	. . . . . 6 ⊢ (𝑇 ∈ V → ( ·𝑠 ‘𝑃) = ( ·𝑠 ‘(𝑃 ↾s 𝑇)))
209	163, 208	mp1i 13	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → ( ·𝑠 ‘𝑃) = ( ·𝑠 ‘(𝑃 ↾s 𝑇)))
210	209	oveqd 7373	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘𝑃)𝑦) = (𝑥( ·𝑠 ‘(𝑃 ↾s 𝑇))𝑦))
211	194, 207, 210	3eqtrd 2773	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦) = (𝑥( ·𝑠 ‘(𝑃 ↾s 𝑇))𝑦))
212		eqid 2734	. . 3 ⊢ (Scalar‘(𝐻 “s 𝑃)) = (Scalar‘(𝐻 “s 𝑃))
213	105, 197	resssca 17261	. . . 4 ⊢ (𝑇 ∈ V → (Scalar‘𝑃) = (Scalar‘(𝑃 ↾s 𝑇)))
214	163, 213	ax-mp 5	. . 3 ⊢ (Scalar‘𝑃) = (Scalar‘(𝑃 ↾s 𝑇))
215	1, 3, 99, 101, 197	imassca 17438	. . . . . 6 ⊢ (𝜑 → (Scalar‘𝑃) = (Scalar‘(𝐻 “s 𝑃)))
216	183, 215	eqtrd 2769	. . . . 5 ⊢ (𝜑 → 𝐾 = (Scalar‘(𝐻 “s 𝑃)))
217	216	fveq2d 6836	. . . 4 ⊢ (𝜑 → (Base‘𝐾) = (Base‘(Scalar‘(𝐻 “s 𝑃))))
218	181, 217	eqtrd 2769	. . 3 ⊢ (𝜑 → 𝐹 = (Base‘(Scalar‘(𝐻 “s 𝑃))))
219	215	fveq2d 6836	. . . . . 6 ⊢ (𝜑 → (+g‘(Scalar‘𝑃)) = (+g‘(Scalar‘(𝐻 “s 𝑃))))
220	219	oveqd 7373	. . . . 5 ⊢ (𝜑 → (𝑥(+g‘(Scalar‘𝑃))𝑦) = (𝑥(+g‘(Scalar‘(𝐻 “s 𝑃)))𝑦))
221	220	eqcomd 2740	. . . 4 ⊢ (𝜑 → (𝑥(+g‘(Scalar‘(𝐻 “s 𝑃)))𝑦) = (𝑥(+g‘(Scalar‘𝑃))𝑦))
222	221	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝐹)) → (𝑥(+g‘(Scalar‘(𝐻 “s 𝑃)))𝑦) = (𝑥(+g‘(Scalar‘𝑃))𝑦))
223		lmhmlvec2 33725	. . . 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 33714	. 2 ⊢ (𝜑 → (dim‘(𝐻 “s 𝑃)) = (dim‘(𝑃 ↾s 𝑇)))
226	23, 26, 48, 61, 7, 105	ply1degltdim 33729	. 2 ⊢ (𝜑 → (dim‘(𝑃 ↾s 𝑇)) = (𝐷‘(𝑀‘𝐴)))
227	225, 226	eqtrd 2769	1 ⊢ (𝜑 → (dim‘(𝐻 “s 𝑃)) = (𝐷‘(𝑀‘𝐴)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1541   ∈ wcel 2113   ≠ wne 2930  ∀wral 3049  ∃wrex 3058  {crab 3397  Vcvv 3438   ∪ cun 3897   ∩ cin 3898   ⊆ wss 3899  {csn 4578  ∪ cuni 4861   class class class wbr 5096   ↦ cmpt 5177  ^◡ccnv 5621  dom cdm 5622   “ cima 5625  ⟶wf 6486  –onto→wfo 6488  ‘cfv 6490  (class class class)co 7356  [cec 8631  1c1 11025  -∞cmnf 11162   < clt 11164   ≤ cle 11165   − cmin 11362  ℕ₀cn0 12399  ℤcz 12486  [,)cico 13261  Basecbs 17134   ↾_s cress 17155  +_gcplusg 17175  Scalarcsca 17178   ·_𝑠 cvsca 17179  0_gc0g 17357   “_s cimas 17423   /_s cqus 17424   MndHom cmhm 18704  Grpcgrp 18861  SubGrpcsubg 19048   ~_QG cqg 19050   GrpHom cghm 19139  Ringcrg 20166  SubRingcsubrg 20500  Domncdomn 20623  IDomncidom 20624  DivRingcdr 20660  Fieldcfield 20661  SubDRingcsdrg 20717  LModclmod 20809  LSubSpclss 20880   LMHom clmhm 20969  LVecclvec 21052  RSpancrsp 21160  PwSer₁cps1 22113  Poly₁cpl1 22115   evalSub₁ ces1 22255  deg₁cdg1 26013  Monic_1pcmn1 26085  Unic_1pcuc1p 26086  rem_1pcr1p 26088  idlGen_1pcig1p 26089   fldGen cfldgen 33341  dimcldim 33704   IntgRing cirng 33789   minPoly cminply 33805

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-rep 5222  ax-sep 5239  ax-nul 5249  ax-pow 5308  ax-pr 5375  ax-un 7678  ax-reg 9495  ax-inf2 9548  ax-ac2 10371  ax-cnex 11080  ax-resscn 11081  ax-1cn 11082  ax-icn 11083  ax-addcl 11084  ax-addrcl 11085  ax-mulcl 11086  ax-mulrcl 11087  ax-mulcom 11088  ax-addass 11089  ax-mulass 11090  ax-distr 11091  ax-i2m1 11092  ax-1ne0 11093  ax-1rid 11094  ax-rnegex 11095  ax-rrecex 11096  ax-cnre 11097  ax-pre-lttri 11098  ax-pre-lttrn 11099  ax-pre-ltadd 11100  ax-pre-mulgt0 11101  ax-pre-sup 11102  ax-addf 11103

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-nel 3035  df-ral 3050  df-rex 3059  df-rmo 3348  df-reu 3349  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-tp 4583  df-op 4585  df-uni 4862  df-int 4901  df-iun 4946  df-iin 4947  df-br 5097  df-opab 5159  df-mpt 5178  df-tr 5204  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-se 5576  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-isom 6499  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-of 7620  df-ofr 7621  df-rpss 7666  df-om 7807  df-1st 7931  df-2nd 7932  df-supp 8101  df-tpos 8166  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-oadd 8399  df-er 8633  df-map 8763  df-pm 8764  df-ixp 8834  df-en 8882  df-dom 8883  df-sdom 8884  df-fin 8885  df-fsupp 9263  df-sup 9343  df-inf 9344  df-oi 9413  df-r1 9674  df-rank 9675  df-dju 9811  df-card 9849  df-acn 9852  df-ac 10024  df-pnf 11166  df-mnf 11167  df-xr 11168  df-ltxr 11169  df-le 11170  df-sub 11364  df-neg 11365  df-nn 12144  df-2 12206  df-3 12207  df-4 12208  df-5 12209  df-6 12210  df-7 12211  df-8 12212  df-9 12213  df-n0 12400  df-xnn0 12473  df-z 12487  df-dec 12606  df-uz 12750  df-ico 13265  df-fz 13422  df-fzo 13569  df-seq 13923  df-hash 14252  df-struct 17072  df-sets 17089  df-slot 17107  df-ndx 17119  df-base 17135  df-ress 17156  df-plusg 17188  df-mulr 17189  df-starv 17190  df-sca 17191  df-vsca 17192  df-ip 17193  df-tset 17194  df-ple 17195  df-ocomp 17196  df-ds 17197  df-unif 17198  df-hom 17199  df-cco 17200  df-0g 17359  df-gsum 17360  df-prds 17365  df-pws 17367  df-imas 17427  df-mre 17503  df-mrc 17504  df-mri 17505  df-acs 17506  df-proset 18215  df-drs 18216  df-poset 18234  df-ipo 18449  df-mgm 18563  df-sgrp 18642  df-mnd 18658  df-mhm 18706  df-submnd 18707  df-grp 18864  df-minusg 18865  df-sbg 18866  df-mulg 18996  df-subg 19051  df-ghm 19140  df-cntz 19244  df-cmn 19709  df-abl 19710  df-mgp 20074  df-rng 20086  df-ur 20115  df-srg 20120  df-ring 20168  df-cring 20169  df-oppr 20271  df-dvdsr 20291  df-unit 20292  df-invr 20322  df-rhm 20406  df-nzr 20444  df-subrng 20477  df-subrg 20501  df-rlreg 20625  df-domn 20626  df-idom 20627  df-drng 20662  df-field 20663  df-sdrg 20718  df-lmod 20811  df-lss 20881  df-lsp 20921  df-lmhm 20972  df-lbs 21025  df-lvec 21053  df-sra 21123  df-rgmod 21124  df-lidl 21161  df-rsp 21162  df-cnfld 21308  df-dsmm 21685  df-frlm 21700  df-uvc 21736  df-lindf 21759  df-linds 21760  df-assa 21806  df-asp 21807  df-ascl 21808  df-psr 21863  df-mvr 21864  df-mpl 21865  df-opsr 21867  df-evls 22027  df-evl 22028  df-psr1 22118  df-vr1 22119  df-ply1 22120  df-coe1 22121  df-evls1 22257  df-evl1 22258  df-mdeg 26014  df-deg1 26015  df-mon1 26090  df-uc1p 26091  df-q1p 26092  df-r1p 26093  df-ig1p 26094  df-dim 33705  df-irng 33790  df-minply 33806

This theorem is referenced by:  algextdeg  33831