Theorem algextdeglem8 34058

Description: Lemma for algextdeg 34059. 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 2770	. . . 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 20870	. . . . . . . . . . 11 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐾 ∈ DivRing)
7	4, 6	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 ∈ DivRing)
8	7	drngringd 20820	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ Ring)
9	8	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → 𝐾 ∈ Ring)
10		simpr 489	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → 𝑝 ∈ 𝑈)
11		eqid 2769	. . . . . . . . . . 11 ⊢ (0g‘(Poly1‘𝐸)) = (0g‘(Poly1‘𝐸))
12		algextdeg.f	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∈ Field)
13		algextdeg.m	. . . . . . . . . . 11 ⊢ 𝑀 = (𝐸 minPoly 𝐹)
14		algextdeg.a	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 ∈ (𝐸 IntgRing 𝐹))
15	5	fveq2i 6885	. . . . . . . . . . 11 ⊢ (Monic1p‘𝐾) = (Monic1p‘(𝐸 ↾s 𝐹))
16	11, 12, 4, 13, 14, 15	minplym1p 34047	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Monic1p‘𝐾))
17	16	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑀‘𝐴) ∈ (Monic1p‘𝐾))
18		eqid 2769	. . . . . . . . . 10 ⊢ (Unic1p‘𝐾) = (Unic1p‘𝐾)
19		eqid 2769	. . . . . . . . . 10 ⊢ (Monic1p‘𝐾) = (Monic1p‘𝐾)
20	18, 19	mon1puc1p 26276	. . . . . . . . 9 ⊢ ((𝐾 ∈ Ring ∧ (𝑀‘𝐴) ∈ (Monic1p‘𝐾)) → (𝑀‘𝐴) ∈ (Unic1p‘𝐾))
21	9, 17, 20	syl2anc 595	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑀‘𝐴) ∈ (Unic1p‘𝐾))
22		algextdeglem.r	. . . . . . . . 9 ⊢ 𝑅 = (rem1p‘𝐾)
23		algextdeglem.y	. . . . . . . . 9 ⊢ 𝑃 = (Poly1‘𝐾)
24	22, 23, 2, 18	r1pcl 26284	. . . . . . . 8 ⊢ ((𝐾 ∈ Ring ∧ 𝑝 ∈ 𝑈 ∧ (𝑀‘𝐴) ∈ (Unic1p‘𝐾)) → (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈)
25	9, 10, 21, 24	syl3anc 1396	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈)
26		eqid 2769	. . . . . . . . . 10 ⊢ (deg1‘𝐾) = (deg1‘𝐾)
27	22, 23, 2, 18, 26	r1pdeglt 26285	. . . . . . . . 9 ⊢ ((𝐾 ∈ Ring ∧ 𝑝 ∈ 𝑈 ∧ (𝑀‘𝐴) ∈ (Unic1p‘𝐾)) → ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < ((deg1‘𝐾)‘(𝑀‘𝐴)))
28	9, 10, 21, 27	syl3anc 1396	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < ((deg1‘𝐾)‘(𝑀‘𝐴)))
29		algextdeg.d	. . . . . . . . . 10 ⊢ 𝐷 = (deg1‘𝐸)
30		algextdeglem.o	. . . . . . . . . . . 12 ⊢ 𝑂 = (𝐸 evalSub1 𝐹)
31	5	fveq2i 6885	. . . . . . . . . . . . 13 ⊢ (Poly1‘𝐾) = (Poly1‘(𝐸 ↾s 𝐹))
32	23, 31	eqtri 2792	. . . . . . . . . . . 12 ⊢ 𝑃 = (Poly1‘(𝐸 ↾s 𝐹))
33		eqid 2769	. . . . . . . . . . . 12 ⊢ (Base‘𝐸) = (Base‘𝐸)
34		eqid 2769	. . . . . . . . . . . . . 14 ⊢ (0g‘𝐸) = (0g‘𝐸)
35	12	fldcrngd 20825	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐸 ∈ CRing)
36		sdrgsubrg 20871	. . . . . . . . . . . . . . 15 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐹 ∈ (SubRing‘𝐸))
37	4, 36	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐹 ∈ (SubRing‘𝐸))
38	30, 5, 33, 34, 35, 37	irngssv 34022	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸 IntgRing 𝐹) ⊆ (Base‘𝐸))
39	38, 14	sseldd 3946	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ (Base‘𝐸))
40		eqid 2769	. . . . . . . . . . . 12 ⊢ {𝑝 ∈ dom 𝑂 ∣ ((𝑂‘𝑝)‘𝐴) = (0g‘𝐸)} = {𝑝 ∈ dom 𝑂 ∣ ((𝑂‘𝑝)‘𝐴) = (0g‘𝐸)}
41		eqid 2769	. . . . . . . . . . . 12 ⊢ (RSpan‘𝑃) = (RSpan‘𝑃)
42		eqid 2769	. . . . . . . . . . . 12 ⊢ (idlGen1p‘(𝐸 ↾s 𝐹)) = (idlGen1p‘(𝐸 ↾s 𝐹))
43	30, 32, 33, 12, 4, 39, 34, 40, 41, 42, 13	minplycl 34040	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Base‘𝑃))
44	43, 2	eleqtrrdi 2880	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ 𝑈)
45	5, 29, 23, 2, 44, 37	ressdeg1 33800	. . . . . . . . 9 ⊢ (𝜑 → (𝐷‘(𝑀‘𝐴)) = ((deg1‘𝐾)‘(𝑀‘𝐴)))
46	45	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝐷‘(𝑀‘𝐴)) = ((deg1‘𝐾)‘(𝑀‘𝐴)))
47	28, 46	breqtrrd 5143	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < (𝐷‘(𝑀‘𝐴)))
48		algextdeglem.t	. . . . . . . . 9 ⊢ 𝑇 = (◡(deg1‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴))))
49	12	flddrngd 20824	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∈ DivRing)
50	49	drngringd 20820	. . . . . . . . . 10 ⊢ (𝜑 → 𝐸 ∈ Ring)
51		eqid 2769	. . . . . . . . . . . . 13 ⊢ (Poly1‘𝐸) = (Poly1‘𝐸)
52		eqid 2769	. . . . . . . . . . . . 13 ⊢ (PwSer1‘𝐾) = (PwSer1‘𝐾)
53		eqid 2769	. . . . . . . . . . . . 13 ⊢ (Base‘(PwSer1‘𝐾)) = (Base‘(PwSer1‘𝐾))
54		eqid 2769	. . . . . . . . . . . . 13 ⊢ (Base‘(Poly1‘𝐸)) = (Base‘(Poly1‘𝐸))
55	51, 5, 23, 2, 37, 52, 53, 54	ressply1bas2 22355	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑈 = ((Base‘(PwSer1‘𝐾)) ∩ (Base‘(Poly1‘𝐸))))
56		inss2 4198	. . . . . . . . . . . 12 ⊢ ((Base‘(PwSer1‘𝐾)) ∩ (Base‘(Poly1‘𝐸))) ⊆ (Base‘(Poly1‘𝐸))
57	55, 56	eqsstrdi 3989	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑈 ⊆ (Base‘(Poly1‘𝐸)))
58	57, 44	sseldd 3946	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Base‘(Poly1‘𝐸)))
59	11, 12, 4, 13, 14	irngnminplynz 34046	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ≠ (0g‘(Poly1‘𝐸)))
60	29, 51, 11, 54	deg1nn0cl 26213	. . . . . . . . . 10 ⊢ ((𝐸 ∈ Ring ∧ (𝑀‘𝐴) ∈ (Base‘(Poly1‘𝐸)) ∧ (𝑀‘𝐴) ≠ (0g‘(Poly1‘𝐸))) → (𝐷‘(𝑀‘𝐴)) ∈ ℕ0)
61	50, 58, 59, 60	syl3anc 1396	. . . . . . . . 9 ⊢ (𝜑 → (𝐷‘(𝑀‘𝐴)) ∈ ℕ0)
62	23, 26, 48, 61, 8, 2	ply1degleel 33829	. . . . . . . 8 ⊢ (𝜑 → ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇 ↔ ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈 ∧ ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < (𝐷‘(𝑀‘𝐴)))))
63	62	adantr 485	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇 ↔ ((𝑝𝑅(𝑀‘𝐴)) ∈ 𝑈 ∧ ((deg1‘𝐾)‘(𝑝𝑅(𝑀‘𝐴))) < (𝐷‘(𝑀‘𝐴)))))
64	25, 47, 63	mpbir2and 725	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 ∈ 𝑈) → (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇)
65	64	ralrimiva 3163	. . . . 5 ⊢ (𝜑 → ∀𝑝 ∈ 𝑈 (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇)
66		oveq1 7418	. . . . . . . . 9 ⊢ (𝑝 = 𝑞 → (𝑝𝑅(𝑀‘𝐴)) = (𝑞𝑅(𝑀‘𝐴)))
67	66	eqeq2d 2780	. . . . . . . 8 ⊢ (𝑝 = 𝑞 → (𝑞 = (𝑝𝑅(𝑀‘𝐴)) ↔ 𝑞 = (𝑞𝑅(𝑀‘𝐴))))
68		eqcom 2776	. . . . . . . 8 ⊢ (𝑞 = (𝑞𝑅(𝑀‘𝐴)) ↔ (𝑞𝑅(𝑀‘𝐴)) = 𝑞)
69	67, 68	bitrdi 290	. . . . . . 7 ⊢ (𝑝 = 𝑞 → (𝑞 = (𝑝𝑅(𝑀‘𝐴)) ↔ (𝑞𝑅(𝑀‘𝐴)) = 𝑞))
70	23, 26, 48, 61, 8, 2	ply1degltel 33828	. . . . . . . 8 ⊢ (𝜑 → (𝑞 ∈ 𝑇 ↔ (𝑞 ∈ 𝑈 ∧ ((deg1‘𝐾)‘𝑞) ≤ ((𝐷‘(𝑀‘𝐴)) − 1))))
71	70	simprbda 503	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → 𝑞 ∈ 𝑈)
72	70	simplbda 504	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) ≤ ((𝐷‘(𝑀‘𝐴)) − 1))
73	45	oveq1d 7426	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐷‘(𝑀‘𝐴)) − 1) = (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1))
74	73	adantr 485	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((𝐷‘(𝑀‘𝐴)) − 1) = (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1))
75	72, 74	breqtrd 5141	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) ≤ (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1))
76	26, 23, 2	deg1cl 26208	. . . . . . . . . . 11 ⊢ (𝑞 ∈ 𝑈 → ((deg1‘𝐾)‘𝑞) ∈ (ℕ0 ∪ {-∞}))
77	71, 76	syl 18	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) ∈ (ℕ0 ∪ {-∞}))
78	61	nn0zd 12615	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐷‘(𝑀‘𝐴)) ∈ ℤ)
79	45, 78	eqeltrrd 2870	. . . . . . . . . . 11 ⊢ (𝜑 → ((deg1‘𝐾)‘(𝑀‘𝐴)) ∈ ℤ)
80	79	adantr 485	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘(𝑀‘𝐴)) ∈ ℤ)
81		degltlem1 26197	. . . . . . . . . 10 ⊢ ((((deg1‘𝐾)‘𝑞) ∈ (ℕ0 ∪ {-∞}) ∧ ((deg1‘𝐾)‘(𝑀‘𝐴)) ∈ ℤ) → (((deg1‘𝐾)‘𝑞) < ((deg1‘𝐾)‘(𝑀‘𝐴)) ↔ ((deg1‘𝐾)‘𝑞) ≤ (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1)))
82	77, 80, 81	syl2anc 595	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → (((deg1‘𝐾)‘𝑞) < ((deg1‘𝐾)‘(𝑀‘𝐴)) ↔ ((deg1‘𝐾)‘𝑞) ≤ (((deg1‘𝐾)‘(𝑀‘𝐴)) − 1)))
83	75, 82	mpbird 260	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((deg1‘𝐾)‘𝑞) < ((deg1‘𝐾)‘(𝑀‘𝐴)))
84		fldsdrgfld 20878	. . . . . . . . . . . . . 14 ⊢ ((𝐸 ∈ Field ∧ 𝐹 ∈ (SubDRing‘𝐸)) → (𝐸 ↾s 𝐹) ∈ Field)
85	12, 4, 84	syl2anc 595	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸 ↾s 𝐹) ∈ Field)
86	5, 85	eqeltrid 2873	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ Field)
87		fldidom 20852	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ Field → 𝐾 ∈ IDomn)
88	86, 87	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ IDomn)
89	88	idomdomd 20809	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 ∈ Domn)
90	89	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → 𝐾 ∈ Domn)
91	8, 16, 20	syl2anc 595	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀‘𝐴) ∈ (Unic1p‘𝐾))
92	91	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → (𝑀‘𝐴) ∈ (Unic1p‘𝐾))
93	23, 2, 18, 22, 26, 90, 71, 92	r1pid2 26287	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ((𝑞𝑅(𝑀‘𝐴)) = 𝑞 ↔ ((deg1‘𝐾)‘𝑞) < ((deg1‘𝐾)‘(𝑀‘𝐴))))
94	83, 93	mpbird 260	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → (𝑞𝑅(𝑀‘𝐴)) = 𝑞)
95	69, 71, 94	rspcedvdw 3593	. . . . . 6 ⊢ ((𝜑 ∧ 𝑞 ∈ 𝑇) → ∃𝑝 ∈ 𝑈 𝑞 = (𝑝𝑅(𝑀‘𝐴)))
96	95	ralrimiva 3163	. . . . 5 ⊢ (𝜑 → ∀𝑞 ∈ 𝑇 ∃𝑝 ∈ 𝑈 𝑞 = (𝑝𝑅(𝑀‘𝐴)))
97		algextdeglem.h	. . . . . 6 ⊢ 𝐻 = (𝑝 ∈ 𝑈 ↦ (𝑝𝑅(𝑀‘𝐴)))
98	97	fompt 7114	. . . . 5 ⊢ (𝐻:𝑈–onto→𝑇 ↔ (∀𝑝 ∈ 𝑈 (𝑝𝑅(𝑀‘𝐴)) ∈ 𝑇 ∧ ∀𝑞 ∈ 𝑇 ∃𝑝 ∈ 𝑈 𝑞 = (𝑝𝑅(𝑀‘𝐴))))
99	65, 96, 98	sylanbrc 594	. . . 4 ⊢ (𝜑 → 𝐻:𝑈–onto→𝑇)
100	23	ply1ring 22375	. . . . 5 ⊢ (𝐾 ∈ Ring → 𝑃 ∈ Ring)
101	8, 100	syl 18	. . . 4 ⊢ (𝜑 → 𝑃 ∈ Ring)
102	1, 3, 99, 101	imasbas 17565	. . 3 ⊢ (𝜑 → 𝑇 = (Base‘(𝐻 “s 𝑃)))
103	71	ex 417	. . . . 5 ⊢ (𝜑 → (𝑞 ∈ 𝑇 → 𝑞 ∈ 𝑈))
104	103	ssrdv 3951	. . . 4 ⊢ (𝜑 → 𝑇 ⊆ 𝑈)
105		eqid 2769	. . . . 5 ⊢ (𝑃 ↾s 𝑇) = (𝑃 ↾s 𝑇)
106	105, 2	ressbas2 17297	. . . 4 ⊢ (𝑇 ⊆ 𝑈 → 𝑇 = (Base‘(𝑃 ↾s 𝑇)))
107	104, 106	syl 18	. . 3 ⊢ (𝜑 → 𝑇 = (Base‘(𝑃 ↾s 𝑇)))
108		ssidd 3968	. . 3 ⊢ (𝜑 → 𝑇 ⊆ 𝑇)
109		eqid 2769	. . . . . . 7 ⊢ (𝐻 “s 𝑃) = (𝐻 “s 𝑃)
110		eqid 2769	. . . . . . 7 ⊢ (Base‘(𝐻 “s 𝑃)) = (Base‘(𝐻 “s 𝑃))
111	104	ad2antrr 738	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑇 ⊆ 𝑈)
112		simplr 780	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑥 ∈ 𝑇)
113	111, 112	sseldd 3946	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑥 ∈ 𝑈)
114		simpr 489	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑦 ∈ 𝑇)
115	111, 114	sseldd 3946	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑦 ∈ 𝑈)
116		foeq3 6791	. . . . . . . . . 10 ⊢ (𝑇 = (Base‘(𝐻 “s 𝑃)) → (𝐻:𝑈–onto→𝑇 ↔ 𝐻:𝑈–onto→(Base‘(𝐻 “s 𝑃))))
117	102, 116	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (𝐻:𝑈–onto→𝑇 ↔ 𝐻:𝑈–onto→(Base‘(𝐻 “s 𝑃))))
118	99, 117	mpbid 235	. . . . . . . 8 ⊢ (𝜑 → 𝐻:𝑈–onto→(Base‘(𝐻 “s 𝑃)))
119	118	ad2antrr 738	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝐻:𝑈–onto→(Base‘(𝐻 “s 𝑃)))
120	23, 2, 22, 18, 97, 8, 91	r1plmhm 33843	. . . . . . . . . 10 ⊢ (𝜑 → 𝐻 ∈ (𝑃 LMHom (𝐻 “s 𝑃)))
121	120	lmhmghmd 33296	. . . . . . . . 9 ⊢ (𝜑 → 𝐻 ∈ (𝑃 GrpHom (𝐻 “s 𝑃)))
122		ghmmhm 19295	. . . . . . . . 9 ⊢ (𝐻 ∈ (𝑃 GrpHom (𝐻 “s 𝑃)) → 𝐻 ∈ (𝑃 MndHom (𝐻 “s 𝑃)))
123	121, 122	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝐻 ∈ (𝑃 MndHom (𝐻 “s 𝑃)))
124	123	ad2antrr 738	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝐻 ∈ (𝑃 MndHom (𝐻 “s 𝑃)))
125		eqid 2769	. . . . . . 7 ⊢ (+g‘𝑃) = (+g‘𝑃)
126		eqid 2769	. . . . . . 7 ⊢ (+g‘(𝐻 “s 𝑃)) = (+g‘(𝐻 “s 𝑃))
127	109, 2, 110, 113, 115, 119, 124, 125, 126	mhmimasplusg 33297	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → ((𝐻‘𝑥)(+g‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝐻‘(𝑥(+g‘𝑃)𝑦)))
128		algextdeg.l	. . . . . . . . 9 ⊢ 𝐿 = (𝐸 ↾s (𝐸 fldGen (𝐹 ∪ {𝐴})))
129	12	ad2antrr 738	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝐸 ∈ Field)
130	4	ad2antrr 738	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝐹 ∈ (SubDRing‘𝐸))
131	14	ad2antrr 738	. . . . . . . . 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 34057	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥 ∈ 𝑇 ↔ (𝐻‘𝑥) = 𝑥))
138	112, 137	mpbid 235	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝐻‘𝑥) = 𝑥)
139	5, 128, 29, 13, 129, 130, 131, 30, 23, 2, 132, 133, 134, 135, 136, 22, 97, 48, 115	algextdeglem7 34057	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑦 ∈ 𝑇 ↔ (𝐻‘𝑦) = 𝑦))
140	114, 139	mpbid 235	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝐻‘𝑦) = 𝑦)
141	138, 140	oveq12d 7429	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → ((𝐻‘𝑥)(+g‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝑥(+g‘(𝐻 “s 𝑃))𝑦))
142	101	ringgrpd 20323	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ Grp)
143	23, 7	ply1lvec 33793	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 ∈ LVec)
144	23, 26, 48, 61, 8	ply1degltlss 33830	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑇 ∈ (LSubSp‘𝑃))
145		eqid 2769	. . . . . . . . . . . . 13 ⊢ (LSubSp‘𝑃) = (LSubSp‘𝑃)
146	105, 145	lsslvec 21207	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ LVec ∧ 𝑇 ∈ (LSubSp‘𝑃)) → (𝑃 ↾s 𝑇) ∈ LVec)
147	143, 144, 146	syl2anc 595	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 ↾s 𝑇) ∈ LVec)
148	147	lvecgrpd 21206	. . . . . . . . . 10 ⊢ (𝜑 → (𝑃 ↾s 𝑇) ∈ Grp)
149	2	issubg 19191	. . . . . . . . . 10 ⊢ (𝑇 ∈ (SubGrp‘𝑃) ↔ (𝑃 ∈ Grp ∧ 𝑇 ⊆ 𝑈 ∧ (𝑃 ↾s 𝑇) ∈ Grp))
150	142, 104, 148, 149	syl3anbrc 1360	. . . . . . . . 9 ⊢ (𝜑 → 𝑇 ∈ (SubGrp‘𝑃))
151	150	ad2antrr 738	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑇 ∈ (SubGrp‘𝑃))
152	125	subgcl 19201	. . . . . . . 8 ⊢ ((𝑇 ∈ (SubGrp‘𝑃) ∧ 𝑥 ∈ 𝑇 ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘𝑃)𝑦) ∈ 𝑇)
153	151, 112, 114, 152	syl3anc 1396	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘𝑃)𝑦) ∈ 𝑇)
154	142	ad2antrr 738	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → 𝑃 ∈ Grp)
155	2, 125, 154, 113, 115	grpcld 19013	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘𝑃)𝑦) ∈ 𝑈)
156	5, 128, 29, 13, 129, 130, 131, 30, 23, 2, 132, 133, 134, 135, 136, 22, 97, 48, 155	algextdeglem7 34057	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → ((𝑥(+g‘𝑃)𝑦) ∈ 𝑇 ↔ (𝐻‘(𝑥(+g‘𝑃)𝑦)) = (𝑥(+g‘𝑃)𝑦)))
157	153, 156	mpbid 235	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝐻‘(𝑥(+g‘𝑃)𝑦)) = (𝑥(+g‘𝑃)𝑦))
158	127, 141, 157	3eqtr3d 2812	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘(𝐻 “s 𝑃))𝑦) = (𝑥(+g‘𝑃)𝑦))
159		fvex 6895	. . . . . . . . 9 ⊢ (deg1‘𝐾) ∈ V
160		cnvexg 7920	. . . . . . . . 9 ⊢ ((deg1‘𝐾) ∈ V → ◡(deg1‘𝐾) ∈ V)
161		imaexg 7909	. . . . . . . . 9 ⊢ (◡(deg1‘𝐾) ∈ V → (◡(deg1‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴)))) ∈ V)
162	159, 160, 161	mp2b 10	. . . . . . . 8 ⊢ (◡(deg1‘𝐾) “ (-∞[,)(𝐷‘(𝑀‘𝐴)))) ∈ V
163	48, 162	eqeltri 2865	. . . . . . 7 ⊢ 𝑇 ∈ V
164	105, 125	ressplusg 17343	. . . . . . 7 ⊢ (𝑇 ∈ V → (+g‘𝑃) = (+g‘(𝑃 ↾s 𝑇)))
165	163, 164	ax-mp 5	. . . . . 6 ⊢ (+g‘𝑃) = (+g‘(𝑃 ↾s 𝑇))
166	165	oveqi 7424	. . . . 5 ⊢ (𝑥(+g‘𝑃)𝑦) = (𝑥(+g‘(𝑃 ↾s 𝑇))𝑦)
167	158, 166	eqtrdi 2820	. . . 4 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑇) ∧ 𝑦 ∈ 𝑇) → (𝑥(+g‘(𝐻 “s 𝑃))𝑦) = (𝑥(+g‘(𝑃 ↾s 𝑇))𝑦))
168	167	anasss 471	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑇 ∧ 𝑦 ∈ 𝑇)) → (𝑥(+g‘(𝐻 “s 𝑃))𝑦) = (𝑥(+g‘(𝑃 ↾s 𝑇))𝑦))
169		simprr 784	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑦 ∈ 𝑇)
170	12	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐸 ∈ Field)
171	4	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐹 ∈ (SubDRing‘𝐸))
172	14	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐴 ∈ (𝐸 IntgRing 𝐹))
173	104	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑇 ⊆ 𝑈)
174	173, 169	sseldd 3946	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑦 ∈ 𝑈)
175	5, 128, 29, 13, 170, 171, 172, 30, 23, 2, 132, 133, 134, 135, 136, 22, 97, 48, 174	algextdeglem7 34057	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑦 ∈ 𝑇 ↔ (𝐻‘𝑦) = 𝑦))
176	169, 175	mpbid 235	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝐻‘𝑦) = 𝑦)
177	176	oveq2d 7427	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦))
178		simprl 782	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑥 ∈ 𝐹)
179	33	sdrgss 20873	. . . . . . . . . 10 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐹 ⊆ (Base‘𝐸))
180	5, 33	ressbas2 17297	. . . . . . . . . 10 ⊢ (𝐹 ⊆ (Base‘𝐸) → 𝐹 = (Base‘𝐾))
181	4, 179, 180	3syl 19	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 = (Base‘𝐾))
182	23	ply1sca 22380	. . . . . . . . . . 11 ⊢ (𝐾 ∈ Ring → 𝐾 = (Scalar‘𝑃))
183	8, 182	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 = (Scalar‘𝑃))
184	183	fveq2d 6886	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝐾) = (Base‘(Scalar‘𝑃)))
185	181, 184	eqtrd 2804	. . . . . . . 8 ⊢ (𝜑 → 𝐹 = (Base‘(Scalar‘𝑃)))
186	185	adantr 485	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐹 = (Base‘(Scalar‘𝑃)))
187	178, 186	eleqtrd 2871	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑥 ∈ (Base‘(Scalar‘𝑃)))
188	118	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐻:𝑈–onto→(Base‘(𝐻 “s 𝑃)))
189	120	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐻 ∈ (𝑃 LMHom (𝐻 “s 𝑃)))
190		eqid 2769	. . . . . 6 ⊢ ( ·𝑠 ‘𝑃) = ( ·𝑠 ‘𝑃)
191		eqid 2769	. . . . . 6 ⊢ ( ·𝑠 ‘(𝐻 “s 𝑃)) = ( ·𝑠 ‘(𝐻 “s 𝑃))
192		eqid 2769	. . . . . 6 ⊢ (Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃))
193	109, 2, 110, 187, 174, 188, 189, 190, 191, 192	lmhmimasvsca 33298	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))(𝐻‘𝑦)) = (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)))
194	177, 193	eqtr3d 2806	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦) = (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)))
195	64, 97	fmptd 7110	. . . . . 6 ⊢ (𝜑 → 𝐻:𝑈⟶𝑇)
196	195	adantr 485	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝐻:𝑈⟶𝑇)
197		eqid 2769	. . . . . 6 ⊢ (Scalar‘𝑃) = (Scalar‘𝑃)
198	143	lveclmodd 21205	. . . . . . 7 ⊢ (𝜑 → 𝑃 ∈ LMod)
199	198	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑃 ∈ LMod)
200	2, 197, 190, 192, 199, 187, 174	lmodvscld 20977	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘𝑃)𝑦) ∈ 𝑈)
201	196, 200	ffvelcdmd 7081	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)) ∈ 𝑇)
202	194, 201	eqeltrd 2869	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦) ∈ 𝑇)
203	144	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → 𝑇 ∈ (LSubSp‘𝑃))
204	197, 190, 192, 145	lssvscl 21053	. . . . . 6 ⊢ (((𝑃 ∈ LMod ∧ 𝑇 ∈ (LSubSp‘𝑃)) ∧ (𝑥 ∈ (Base‘(Scalar‘𝑃)) ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘𝑃)𝑦) ∈ 𝑇)
205	199, 203, 187, 169, 204	syl22anc 851	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘𝑃)𝑦) ∈ 𝑇)
206	5, 128, 29, 13, 170, 171, 172, 30, 23, 2, 132, 133, 134, 135, 136, 22, 97, 48, 200	algextdeglem7 34057	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → ((𝑥( ·𝑠 ‘𝑃)𝑦) ∈ 𝑇 ↔ (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)) = (𝑥( ·𝑠 ‘𝑃)𝑦)))
207	205, 206	mpbid 235	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝐻‘(𝑥( ·𝑠 ‘𝑃)𝑦)) = (𝑥( ·𝑠 ‘𝑃)𝑦))
208	105, 190	ressvsca 17396	. . . . . 6 ⊢ (𝑇 ∈ V → ( ·𝑠 ‘𝑃) = ( ·𝑠 ‘(𝑃 ↾s 𝑇)))
209	163, 208	mp1i 14	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → ( ·𝑠 ‘𝑃) = ( ·𝑠 ‘(𝑃 ↾s 𝑇)))
210	209	oveqd 7428	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘𝑃)𝑦) = (𝑥( ·𝑠 ‘(𝑃 ↾s 𝑇))𝑦))
211	194, 207, 210	3eqtrd 2808	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝑇)) → (𝑥( ·𝑠 ‘(𝐻 “s 𝑃))𝑦) = (𝑥( ·𝑠 ‘(𝑃 ↾s 𝑇))𝑦))
212		eqid 2769	. . 3 ⊢ (Scalar‘(𝐻 “s 𝑃)) = (Scalar‘(𝐻 “s 𝑃))
213	105, 197	resssca 17395	. . . 4 ⊢ (𝑇 ∈ V → (Scalar‘𝑃) = (Scalar‘(𝑃 ↾s 𝑇)))
214	163, 213	ax-mp 5	. . 3 ⊢ (Scalar‘𝑃) = (Scalar‘(𝑃 ↾s 𝑇))
215	1, 3, 99, 101, 197	imassca 17572	. . . . . 6 ⊢ (𝜑 → (Scalar‘𝑃) = (Scalar‘(𝐻 “s 𝑃)))
216	183, 215	eqtrd 2804	. . . . 5 ⊢ (𝜑 → 𝐾 = (Scalar‘(𝐻 “s 𝑃)))
217	216	fveq2d 6886	. . . 4 ⊢ (𝜑 → (Base‘𝐾) = (Base‘(Scalar‘(𝐻 “s 𝑃))))
218	181, 217	eqtrd 2804	. . 3 ⊢ (𝜑 → 𝐹 = (Base‘(Scalar‘(𝐻 “s 𝑃))))
219	215	fveq2d 6886	. . . . . 6 ⊢ (𝜑 → (+g‘(Scalar‘𝑃)) = (+g‘(Scalar‘(𝐻 “s 𝑃))))
220	219	oveqd 7428	. . . . 5 ⊢ (𝜑 → (𝑥(+g‘(Scalar‘𝑃))𝑦) = (𝑥(+g‘(Scalar‘(𝐻 “s 𝑃)))𝑦))
221	220	eqcomd 2775	. . . 4 ⊢ (𝜑 → (𝑥(+g‘(Scalar‘(𝐻 “s 𝑃)))𝑦) = (𝑥(+g‘(Scalar‘𝑃))𝑦))
222	221	adantr 485	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐹 ∧ 𝑦 ∈ 𝐹)) → (𝑥(+g‘(Scalar‘(𝐻 “s 𝑃)))𝑦) = (𝑥(+g‘(Scalar‘𝑃))𝑦))
223		lmhmlvec2 33953	. . . 4 ⊢ ((𝑃 ∈ LVec ∧ 𝐻 ∈ (𝑃 LMHom (𝐻 “s 𝑃))) → (𝐻 “s 𝑃) ∈ LVec)
224	143, 120, 223	syl2anc 595	. . 3 ⊢ (𝜑 → (𝐻 “s 𝑃) ∈ LVec)
225	102, 107, 108, 168, 202, 211, 212, 214, 218, 185, 222, 224, 147	dimpropd 33943	. 2 ⊢ (𝜑 → (dim‘(𝐻 “s 𝑃)) = (dim‘(𝑃 ↾s 𝑇)))
226	23, 26, 48, 61, 7, 105	ply1degltdim 33957	. 2 ⊢ (𝜑 → (dim‘(𝑃 ↾s 𝑇)) = (𝐷‘(𝑀‘𝐴)))
227	225, 226	eqtrd 2804	1 ⊢ (𝜑 → (dim‘(𝐻 “s 𝑃)) = (𝐷‘(𝑀‘𝐴)))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1567   ∈ wcel 2149   ≠ wne 2964  ∀wral 3085  ∃wrex 3095  {crab 3423  Vcvv 3463   ∪ cun 3911   ∩ cin 3912   ⊆ wss 3913  {csn 4594  ∪ cuni 4876   class class class wbr 5113   ↦ cmpt 5196  ^◡ccnv 5661  dom cdm 5662   “ cima 5665  ⟶wf 6533  –onto→wfo 6535  ‘cfv 6537  (class class class)co 7411  [cec 8691  1c1 11100  -∞cmnf 11240   < clt 11242   ≤ cle 11243   − cmin 11440  ℕ₀cn0 12503  ℤcz 12590  [,)cico 13373  Basecbs 17268   ↾_s cress 17289  +_gcplusg 17309  Scalarcsca 17312   ·_𝑠 cvsca 17313  0_gc0g 17491   “_s cimas 17557   /_s cqus 17558   MndHom cmhm 18838  Grpcgrp 18999  SubGrpcsubg 19185   ~_QG cqg 19187   GrpHom cghm 19282  Ringcrg 20314  SubRingcsubrg 20653  Domncdomn 20776  IDomncidom 20777  DivRingcdr 20812  Fieldcfield 20813  SubDRingcsdrg 20866  LModclmod 20958  LSubSpclss 21029   LMHom clmhm 21117  LVecclvec 21200  RSpancrsp 21308  PwSer₁cps1 22303  Poly₁cpl1 22305   evalSub₁ ces1 22441  deg₁cdg1 26179  Monic_1pcmn1 26251  Unic_1pcuc1p 26252  rem_1pcr1p 26254  idlGen_1pcig1p 26255   fldGen cfldgen 33573  dimcldim 33933   IntgRing cirng 34017   minPoly cminply 34033

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733  ax-reg 9553  ax-inf2 9609  ax-ac2 10446  ax-cnex 11155  ax-resscn 11156  ax-1cn 11157  ax-icn 11158  ax-addcl 11159  ax-addrcl 11160  ax-mulcl 11161  ax-mulrcl 11162  ax-mulcom 11163  ax-addass 11164  ax-mulass 11165  ax-distr 11166  ax-i2m1 11167  ax-1ne0 11168  ax-1rid 11169  ax-rnegex 11170  ax-rrecex 11171  ax-cnre 11172  ax-pre-lttri 11173  ax-pre-lttrn 11174  ax-pre-ltadd 11175  ax-pre-mulgt0 11176  ax-pre-sup 11177  ax-addf 11178

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-tp 4599  df-op 4601  df-uni 4877  df-int 4917  df-iun 4962  df-iin 4963  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-se 5616  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-isom 6546  df-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-of 7675  df-ofr 7676  df-rpss 7721  df-om 7862  df-1st 7985  df-2nd 7986  df-supp 8156  df-tpos 8221  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-1o 8452  df-2o 8453  df-oadd 8456  df-er 8693  df-map 8825  df-pm 8826  df-ixp 8895  df-en 8943  df-dom 8944  df-sdom 8945  df-fin 8946  df-fsupp 9321  df-sup 9401  df-inf 9402  df-oi 9471  df-r1 9735  df-rank 9736  df-dju 9886  df-card 9924  df-acn 9927  df-ac 10099  df-pnf 11244  df-mnf 11245  df-xr 11246  df-ltxr 11247  df-le 11248  df-sub 11442  df-neg 11443  df-nn 12233  df-2 12302  df-3 12303  df-4 12304  df-5 12305  df-6 12306  df-7 12307  df-8 12308  df-9 12309  df-n0 12504  df-xnn0 12577  df-z 12591  df-dec 12711  df-uz 12862  df-ico 13377  df-fz 13535  df-fzo 13682  df-seq 14037  df-hash 14366  df-struct 17206  df-sets 17223  df-slot 17241  df-ndx 17253  df-base 17269  df-ress 17290  df-plusg 17322  df-mulr 17323  df-starv 17324  df-sca 17325  df-vsca 17326  df-ip 17327  df-tset 17328  df-ple 17329  df-ocomp 17330  df-ds 17331  df-unif 17332  df-hom 17333  df-cco 17334  df-0g 17493  df-gsum 17494  df-prds 17499  df-pws 17501  df-imas 17561  df-mre 17637  df-mrc 17638  df-mri 17639  df-acs 17640  df-proset 18349  df-drs 18350  df-poset 18368  df-ipo 18583  df-mgm 18697  df-sgrp 18776  df-mnd 18792  df-mhm 18840  df-submnd 18841  df-grp 19002  df-minusg 19003  df-sbg 19004  df-mulg 19133  df-subg 19188  df-ghm 19283  df-cntz 19386  df-cmn 19851  df-abl 19852  df-mgp 20216  df-rng 20230  df-ur 20263  df-srg 20268  df-ring 20316  df-cring 20317  df-oppr 20418  df-dvdsr 20438  df-unit 20439  df-invr 20469  df-rhm 20553  df-nzr 20595  df-subrng 20630  df-subrg 20654  df-rlreg 20778  df-domn 20779  df-idom 20780  df-drng 20814  df-field 20815  df-sdrg 20867  df-lmod 20960  df-lss 21030  df-lsp 21070  df-lmhm 21120  df-lbs 21173  df-lvec 21201  df-sra 21271  df-rgmod 21272  df-lidl 21309  df-rsp 21310  df-cnfld 21491  df-dsmm 21850  df-frlm 21865  df-uvc 21901  df-lindf 21924  df-linds 21925  df-assa 21971  df-asp 21972  df-ascl 21973  df-psr 22027  df-mvr 22028  df-mpl 22029  df-opsr 22031  df-evls 22193  df-evl 22194  df-psr1 22308  df-vr1 22309  df-ply1 22310  df-coe1 22311  df-evls1 22443  df-evl1 22444  df-mdeg 26180  df-deg1 26181  df-mon1 26256  df-uc1p 26257  df-q1p 26258  df-r1p 26259  df-ig1p 26260  df-dim 33934  df-irng 34018  df-minply 34034

This theorem is referenced by:  algextdeg  34059