Metamath Proof Explorer


Theorem mhpinvcl

Description: Homogeneous polynomials are closed under taking the opposite. (Contributed by SN, 12-Sep-2023) Remove closure hypotheses. (Revised by SN, 4-Sep-2025)

Ref Expression
Hypotheses mhpinvcl.h ⊢ H = I mHomP R
mhpinvcl.p ⊢ P = I mPoly R
mhpinvcl.m ⊢ M = inv g ⁡ P
mhpinvcl.r ⊢ φ → R ∈ Grp
mhpinvcl.x ⊢ φ → X ∈ H ⁡ N
Assertion mhpinvcl ⊢ φ → M ⁡ X ∈ H ⁡ N

Proof

Step Hyp Ref Expression
1 mhpinvcl.h ⊢ H = I mHomP R
2 mhpinvcl.p ⊢ P = I mPoly R
3 mhpinvcl.m ⊢ M = inv g ⁡ P
4 mhpinvcl.r ⊢ φ → R ∈ Grp
5 mhpinvcl.x ⊢ φ → X ∈ H ⁡ N
6 eqid ⊢ Base P = Base P
7 eqid ⊢ 0 R = 0 R
8 eqid ⊢ h ∈ ℕ 0 I | h -1 ℕ ∈ Fin = h ∈ ℕ 0 I | h -1 ℕ ∈ Fin
9 1 5 mhprcl ⊢ φ → N ∈ ℕ 0
10 reldmmhp ⊢ Rel ⁡ dom ⁡ mHomP
11 10 1 5 elfvov1 ⊢ φ → I ∈ V
12 2 mplgrp ⊢ I ∈ V ∧ R ∈ Grp → P ∈ Grp
13 11 4 12 syl2anc ⊢ φ → P ∈ Grp
14 1 2 6 5 mhpmpl ⊢ φ → X ∈ Base P
15 6 3 13 14 grpinvcld ⊢ φ → M ⁡ X ∈ Base P
16 eqid ⊢ inv g ⁡ R = inv g ⁡ R
17 2 6 16 3 11 4 14 mplneg ⊢ φ → M ⁡ X = inv g ⁡ R ∘ X
18 17 oveq1d ⊢ φ → M ⁡ X supp 0 R = inv g ⁡ R ∘ X supp 0 R
19 eqid ⊢ Base R = Base R
20 19 16 grpinvfn ⊢ inv g ⁡ R Fn Base R
21 20 a1i ⊢ φ → inv g ⁡ R Fn Base R
22 2 19 6 8 14 mplelf ⊢ φ → X : h ∈ ℕ 0 I | h -1 ℕ ∈ Fin ⟶ Base R
23 ovex ⊢ ℕ 0 I ∈ V
24 23 rabex ⊢ h ∈ ℕ 0 I | h -1 ℕ ∈ Fin ∈ V
25 24 a1i ⊢ φ → h ∈ ℕ 0 I | h -1 ℕ ∈ Fin ∈ V
26 fvexd ⊢ φ → 0 R ∈ V
27 7 16 grpinvid ⊢ R ∈ Grp → inv g ⁡ R ⁡ 0 R = 0 R
28 4 27 syl ⊢ φ → inv g ⁡ R ⁡ 0 R = 0 R
29 21 22 25 26 28 suppcoss ⊢ φ → inv g ⁡ R ∘ X supp 0 R ⊆ X supp 0 R
30 18 29 eqsstrd ⊢ φ → M ⁡ X supp 0 R ⊆ X supp 0 R
31 1 7 8 5 mhpdeg ⊢ φ → X supp 0 R ⊆ g ∈ h ∈ ℕ 0 I | h -1 ℕ ∈ Fin | ∑ ℂ fld ↾ 𝑠 ℕ 0 g = N
32 30 31 sstrd ⊢ φ → M ⁡ X supp 0 R ⊆ g ∈ h ∈ ℕ 0 I | h -1 ℕ ∈ Fin | ∑ ℂ fld ↾ 𝑠 ℕ 0 g = N
33 1 2 6 7 8 9 15 32 ismhp2 ⊢ φ → M ⁡ X ∈ H ⁡ N