Users' Mathboxes Mathbox for Steven Nguyen < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  mhphf Structured version   Visualization version   GIF version

Theorem mhphf 41700
Description: A homogeneous polynomial defines a homogeneous function. Equivalently, an algebraic form is a homogeneous function. (An algebraic form is the function corresponding to a homogeneous polynomial, which in this case is the (π‘„β€˜π‘‹) which corresponds to 𝑋). (Contributed by SN, 28-Jul-2024.) (Proof shortened by SN, 8-Mar-2025.)
Hypotheses
Ref Expression
mhphf.q 𝑄 = ((𝐼 evalSub 𝑆)β€˜π‘…)
mhphf.h 𝐻 = (𝐼 mHomP π‘ˆ)
mhphf.u π‘ˆ = (𝑆 β†Ύs 𝑅)
mhphf.k 𝐾 = (Baseβ€˜π‘†)
mhphf.m Β· = (.rβ€˜π‘†)
mhphf.e ↑ = (.gβ€˜(mulGrpβ€˜π‘†))
mhphf.i (πœ‘ β†’ 𝐼 ∈ 𝑉)
mhphf.s (πœ‘ β†’ 𝑆 ∈ CRing)
mhphf.r (πœ‘ β†’ 𝑅 ∈ (SubRingβ€˜π‘†))
mhphf.l (πœ‘ β†’ 𝐿 ∈ 𝑅)
mhphf.n (πœ‘ β†’ 𝑁 ∈ β„•0)
mhphf.x (πœ‘ β†’ 𝑋 ∈ (π»β€˜π‘))
mhphf.a (πœ‘ β†’ 𝐴 ∈ (𝐾 ↑m 𝐼))
Assertion
Ref Expression
mhphf (πœ‘ β†’ ((π‘„β€˜π‘‹)β€˜((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)) = ((𝑁 ↑ 𝐿) Β· ((π‘„β€˜π‘‹)β€˜π΄)))

Proof of Theorem mhphf
Dummy variables 𝑏 𝑖 π‘˜ 𝑗 𝑔 β„Ž are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mhphf.i . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐼 ∈ 𝑉)
21adantr 480 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ 𝐼 ∈ 𝑉)
3 mhphf.l . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐿 ∈ 𝑅)
43adantr 480 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ 𝐿 ∈ 𝑅)
5 mhphf.a . . . . . . . . . . . . . . . 16 (πœ‘ β†’ 𝐴 ∈ (𝐾 ↑m 𝐼))
6 elmapi 8840 . . . . . . . . . . . . . . . 16 (𝐴 ∈ (𝐾 ↑m 𝐼) β†’ 𝐴:𝐼⟢𝐾)
75, 6syl 17 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝐴:𝐼⟢𝐾)
87ffnd 6709 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐴 Fn 𝐼)
98adantr 480 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ 𝐴 Fn 𝐼)
10 eqidd 2725 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) ∧ 𝑖 ∈ 𝐼) β†’ (π΄β€˜π‘–) = (π΄β€˜π‘–))
112, 4, 9, 10ofc1 7690 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) ∧ 𝑖 ∈ 𝐼) β†’ (((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)β€˜π‘–) = (𝐿 Β· (π΄β€˜π‘–)))
1211oveq2d 7418 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) ∧ 𝑖 ∈ 𝐼) β†’ ((π‘β€˜π‘–) ↑ (((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)β€˜π‘–)) = ((π‘β€˜π‘–) ↑ (𝐿 Β· (π΄β€˜π‘–))))
13 mhphf.s . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑆 ∈ CRing)
14 eqid 2724 . . . . . . . . . . . . . . 15 (mulGrpβ€˜π‘†) = (mulGrpβ€˜π‘†)
1514crngmgp 20142 . . . . . . . . . . . . . 14 (𝑆 ∈ CRing β†’ (mulGrpβ€˜π‘†) ∈ CMnd)
1613, 15syl 17 . . . . . . . . . . . . 13 (πœ‘ β†’ (mulGrpβ€˜π‘†) ∈ CMnd)
1716ad2antrr 723 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) ∧ 𝑖 ∈ 𝐼) β†’ (mulGrpβ€˜π‘†) ∈ CMnd)
18 elrabi 3670 . . . . . . . . . . . . . . 15 (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} β†’ 𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin})
19 eqid 2724 . . . . . . . . . . . . . . . 16 {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} = {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin}
2019psrbagf 21801 . . . . . . . . . . . . . . 15 (𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} β†’ 𝑏:πΌβŸΆβ„•0)
2118, 20syl 17 . . . . . . . . . . . . . 14 (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} β†’ 𝑏:πΌβŸΆβ„•0)
2221adantl 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ 𝑏:πΌβŸΆβ„•0)
2322ffvelcdmda 7077 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) ∧ 𝑖 ∈ 𝐼) β†’ (π‘β€˜π‘–) ∈ β„•0)
24 mhphf.r . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝑅 ∈ (SubRingβ€˜π‘†))
25 mhphf.k . . . . . . . . . . . . . . . 16 𝐾 = (Baseβ€˜π‘†)
2625subrgss 20470 . . . . . . . . . . . . . . 15 (𝑅 ∈ (SubRingβ€˜π‘†) β†’ 𝑅 βŠ† 𝐾)
2724, 26syl 17 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑅 βŠ† 𝐾)
2827, 3sseldd 3976 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐿 ∈ 𝐾)
2928ad2antrr 723 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) ∧ 𝑖 ∈ 𝐼) β†’ 𝐿 ∈ 𝐾)
307adantr 480 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ 𝐴:𝐼⟢𝐾)
3130ffvelcdmda 7077 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) ∧ 𝑖 ∈ 𝐼) β†’ (π΄β€˜π‘–) ∈ 𝐾)
3214, 25mgpbas 20041 . . . . . . . . . . . . 13 𝐾 = (Baseβ€˜(mulGrpβ€˜π‘†))
33 mhphf.e . . . . . . . . . . . . 13 ↑ = (.gβ€˜(mulGrpβ€˜π‘†))
34 mhphf.m . . . . . . . . . . . . . 14 Β· = (.rβ€˜π‘†)
3514, 34mgpplusg 20039 . . . . . . . . . . . . 13 Β· = (+gβ€˜(mulGrpβ€˜π‘†))
3632, 33, 35mulgnn0di 19741 . . . . . . . . . . . 12 (((mulGrpβ€˜π‘†) ∈ CMnd ∧ ((π‘β€˜π‘–) ∈ β„•0 ∧ 𝐿 ∈ 𝐾 ∧ (π΄β€˜π‘–) ∈ 𝐾)) β†’ ((π‘β€˜π‘–) ↑ (𝐿 Β· (π΄β€˜π‘–))) = (((π‘β€˜π‘–) ↑ 𝐿) Β· ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))
3717, 23, 29, 31, 36syl13anc 1369 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) ∧ 𝑖 ∈ 𝐼) β†’ ((π‘β€˜π‘–) ↑ (𝐿 Β· (π΄β€˜π‘–))) = (((π‘β€˜π‘–) ↑ 𝐿) Β· ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))
3812, 37eqtrd 2764 . . . . . . . . . 10 (((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) ∧ 𝑖 ∈ 𝐼) β†’ ((π‘β€˜π‘–) ↑ (((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)β€˜π‘–)) = (((π‘β€˜π‘–) ↑ 𝐿) Β· ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))
3938mpteq2dva 5239 . . . . . . . . 9 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)β€˜π‘–))) = (𝑖 ∈ 𝐼 ↦ (((π‘β€˜π‘–) ↑ 𝐿) Β· ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))
4039oveq2d 7418 . . . . . . . 8 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)β€˜π‘–)))) = ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ (((π‘β€˜π‘–) ↑ 𝐿) Β· ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))))
41 eqid 2724 . . . . . . . . . 10 (1rβ€˜π‘†) = (1rβ€˜π‘†)
4214, 41ringidval 20084 . . . . . . . . 9 (1rβ€˜π‘†) = (0gβ€˜(mulGrpβ€˜π‘†))
4313adantr 480 . . . . . . . . . 10 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ 𝑆 ∈ CRing)
4443, 15syl 17 . . . . . . . . 9 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ (mulGrpβ€˜π‘†) ∈ CMnd)
4513crngringd 20147 . . . . . . . . . . . 12 (πœ‘ β†’ 𝑆 ∈ Ring)
4614ringmgp 20140 . . . . . . . . . . . 12 (𝑆 ∈ Ring β†’ (mulGrpβ€˜π‘†) ∈ Mnd)
4745, 46syl 17 . . . . . . . . . . 11 (πœ‘ β†’ (mulGrpβ€˜π‘†) ∈ Mnd)
4847ad2antrr 723 . . . . . . . . . 10 (((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) ∧ 𝑖 ∈ 𝐼) β†’ (mulGrpβ€˜π‘†) ∈ Mnd)
4932, 33, 48, 23, 29mulgnn0cld 19018 . . . . . . . . 9 (((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) ∧ 𝑖 ∈ 𝐼) β†’ ((π‘β€˜π‘–) ↑ 𝐿) ∈ 𝐾)
5032, 33, 48, 23, 31mulgnn0cld 19018 . . . . . . . . 9 (((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) ∧ 𝑖 ∈ 𝐼) β†’ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)) ∈ 𝐾)
51 eqidd 2725 . . . . . . . . 9 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ 𝐿)) = (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ 𝐿)))
52 eqidd 2725 . . . . . . . . 9 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))) = (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))
531mptexd 7218 . . . . . . . . . . 11 (πœ‘ β†’ (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ 𝐿)) ∈ V)
5453adantr 480 . . . . . . . . . 10 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ 𝐿)) ∈ V)
55 fvexd 6897 . . . . . . . . . 10 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ (1rβ€˜π‘†) ∈ V)
56 funmpt 6577 . . . . . . . . . . 11 Fun (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ 𝐿))
5756a1i 11 . . . . . . . . . 10 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ Fun (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ 𝐿)))
5819psrbagfsupp 21803 . . . . . . . . . . . 12 (𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} β†’ 𝑏 finSupp 0)
5918, 58syl 17 . . . . . . . . . . 11 (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} β†’ 𝑏 finSupp 0)
6059adantl 481 . . . . . . . . . 10 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ 𝑏 finSupp 0)
6122feqmptd 6951 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ 𝑏 = (𝑖 ∈ 𝐼 ↦ (π‘β€˜π‘–)))
6261oveq1d 7417 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ (𝑏 supp 0) = ((𝑖 ∈ 𝐼 ↦ (π‘β€˜π‘–)) supp 0))
6362eqimsscd 4032 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ ((𝑖 ∈ 𝐼 ↦ (π‘β€˜π‘–)) supp 0) βŠ† (𝑏 supp 0))
6432, 42, 33mulg0 18998 . . . . . . . . . . . 12 (π‘˜ ∈ 𝐾 β†’ (0 ↑ π‘˜) = (1rβ€˜π‘†))
6564adantl 481 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) ∧ π‘˜ ∈ 𝐾) β†’ (0 ↑ π‘˜) = (1rβ€˜π‘†))
66 0zd 12569 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ 0 ∈ β„€)
6763, 65, 23, 29, 66suppssov1 8178 . . . . . . . . . 10 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ ((𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ 𝐿)) supp (1rβ€˜π‘†)) βŠ† (𝑏 supp 0))
6854, 55, 57, 60, 67fsuppsssuppgd 41599 . . . . . . . . 9 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ 𝐿)) finSupp (1rβ€˜π‘†))
691mptexd 7218 . . . . . . . . . . 11 (πœ‘ β†’ (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))) ∈ V)
7069adantr 480 . . . . . . . . . 10 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))) ∈ V)
71 funmpt 6577 . . . . . . . . . . 11 Fun (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))
7271a1i 11 . . . . . . . . . 10 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ Fun (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))
7363, 65, 23, 31, 66suppssov1 8178 . . . . . . . . . 10 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ ((𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))) supp (1rβ€˜π‘†)) βŠ† (𝑏 supp 0))
7470, 55, 72, 60, 73fsuppsssuppgd 41599 . . . . . . . . 9 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))) finSupp (1rβ€˜π‘†))
7532, 42, 35, 44, 2, 49, 50, 51, 52, 68, 74gsummptfsadd 19840 . . . . . . . 8 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ (((π‘β€˜π‘–) ↑ 𝐿) Β· ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))) = (((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ 𝐿))) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))))
76 eqid 2724 . . . . . . . . . 10 {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} = {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}
77 mhphf.n . . . . . . . . . 10 (πœ‘ β†’ 𝑁 ∈ β„•0)
7819, 76, 32, 33, 1, 47, 28, 77mhphflem 41699 . . . . . . . . 9 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ 𝐿))) = (𝑁 ↑ 𝐿))
7978oveq1d 7417 . . . . . . . 8 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ (((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ 𝐿))) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))) = ((𝑁 ↑ 𝐿) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))))
8040, 75, 793eqtrd 2768 . . . . . . 7 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)β€˜π‘–)))) = ((𝑁 ↑ 𝐿) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))))
8180oveq2d 7418 . . . . . 6 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)β€˜π‘–))))) = ((π‘‹β€˜π‘) Β· ((𝑁 ↑ 𝐿) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))))
82 eqid 2724 . . . . . . . . . . 11 (𝐼 mPoly π‘ˆ) = (𝐼 mPoly π‘ˆ)
83 eqid 2724 . . . . . . . . . . 11 (Baseβ€˜π‘ˆ) = (Baseβ€˜π‘ˆ)
84 eqid 2724 . . . . . . . . . . 11 (Baseβ€˜(𝐼 mPoly π‘ˆ)) = (Baseβ€˜(𝐼 mPoly π‘ˆ))
85 mhphf.h . . . . . . . . . . . 12 𝐻 = (𝐼 mHomP π‘ˆ)
86 mhphf.u . . . . . . . . . . . . . 14 π‘ˆ = (𝑆 β†Ύs 𝑅)
8786ovexi 7436 . . . . . . . . . . . . 13 π‘ˆ ∈ V
8887a1i 11 . . . . . . . . . . . 12 (πœ‘ β†’ π‘ˆ ∈ V)
89 mhphf.x . . . . . . . . . . . 12 (πœ‘ β†’ 𝑋 ∈ (π»β€˜π‘))
9085, 82, 84, 1, 88, 77, 89mhpmpl 22016 . . . . . . . . . . 11 (πœ‘ β†’ 𝑋 ∈ (Baseβ€˜(𝐼 mPoly π‘ˆ)))
9182, 83, 84, 19, 90mplelf 21888 . . . . . . . . . 10 (πœ‘ β†’ 𝑋:{β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin}⟢(Baseβ€˜π‘ˆ))
9286subrgbas 20479 . . . . . . . . . . . 12 (𝑅 ∈ (SubRingβ€˜π‘†) β†’ 𝑅 = (Baseβ€˜π‘ˆ))
9392, 26eqsstrrd 4014 . . . . . . . . . . 11 (𝑅 ∈ (SubRingβ€˜π‘†) β†’ (Baseβ€˜π‘ˆ) βŠ† 𝐾)
9424, 93syl 17 . . . . . . . . . 10 (πœ‘ β†’ (Baseβ€˜π‘ˆ) βŠ† 𝐾)
9591, 94fssd 6726 . . . . . . . . 9 (πœ‘ β†’ 𝑋:{β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin}⟢𝐾)
9695ffvelcdmda 7077 . . . . . . . 8 ((πœ‘ ∧ 𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin}) β†’ (π‘‹β€˜π‘) ∈ 𝐾)
9718, 96sylan2 592 . . . . . . 7 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ (π‘‹β€˜π‘) ∈ 𝐾)
9832, 33, 47, 77, 28mulgnn0cld 19018 . . . . . . . 8 (πœ‘ β†’ (𝑁 ↑ 𝐿) ∈ 𝐾)
9998adantr 480 . . . . . . 7 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ (𝑁 ↑ 𝐿) ∈ 𝐾)
1001adantr 480 . . . . . . . . 9 ((πœ‘ ∧ 𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin}) β†’ 𝐼 ∈ 𝑉)
10113adantr 480 . . . . . . . . 9 ((πœ‘ ∧ 𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin}) β†’ 𝑆 ∈ CRing)
1025adantr 480 . . . . . . . . 9 ((πœ‘ ∧ 𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin}) β†’ 𝐴 ∈ (𝐾 ↑m 𝐼))
103 simpr 484 . . . . . . . . 9 ((πœ‘ ∧ 𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin}) β†’ 𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin})
10419, 25, 14, 33, 100, 101, 102, 103evlsvvvallem 41664 . . . . . . . 8 ((πœ‘ ∧ 𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin}) β†’ ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))) ∈ 𝐾)
10518, 104sylan2 592 . . . . . . 7 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))) ∈ 𝐾)
10625, 34, 43, 97, 99, 105crng12d 41621 . . . . . 6 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ ((π‘‹β€˜π‘) Β· ((𝑁 ↑ 𝐿) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))) = ((𝑁 ↑ 𝐿) Β· ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))))
10781, 106eqtrd 2764 . . . . 5 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)β€˜π‘–))))) = ((𝑁 ↑ 𝐿) Β· ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))))
108107mpteq2dva 5239 . . . 4 (πœ‘ β†’ (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ↦ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)β€˜π‘–)))))) = (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ↦ ((𝑁 ↑ 𝐿) Β· ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))))))
109108oveq2d 7418 . . 3 (πœ‘ β†’ (𝑆 Ξ£g (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ↦ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)β€˜π‘–))))))) = (𝑆 Ξ£g (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ↦ ((𝑁 ↑ 𝐿) Β· ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))))))
110 eqid 2724 . . . 4 (0gβ€˜π‘†) = (0gβ€˜π‘†)
111 ovex 7435 . . . . . . 7 (β„•0 ↑m 𝐼) ∈ V
112111rabex 5323 . . . . . 6 {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∈ V
113112rabex 5323 . . . . 5 {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ∈ V
114113a1i 11 . . . 4 (πœ‘ β†’ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ∈ V)
11545adantr 480 . . . . . 6 ((πœ‘ ∧ 𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin}) β†’ 𝑆 ∈ Ring)
11625, 34, 115, 96, 104ringcld 20158 . . . . 5 ((πœ‘ ∧ 𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin}) β†’ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))) ∈ 𝐾)
11718, 116sylan2 592 . . . 4 ((πœ‘ ∧ 𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁}) β†’ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))) ∈ 𝐾)
118 ssrab2 4070 . . . . . 6 {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} βŠ† {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin}
119 mptss 6033 . . . . . 6 ({𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} βŠ† {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} β†’ (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ↦ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))) βŠ† (𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ↦ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))))
120118, 119mp1i 13 . . . . 5 (πœ‘ β†’ (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ↦ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))) βŠ† (𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ↦ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))))
12119, 82, 86, 84, 25, 14, 33, 34, 1, 13, 24, 90, 5evlsvvvallem2 41665 . . . . 5 (πœ‘ β†’ (𝑏 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ↦ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))) finSupp (0gβ€˜π‘†))
122120, 121fsuppss 41600 . . . 4 (πœ‘ β†’ (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ↦ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))) finSupp (0gβ€˜π‘†))
12325, 110, 34, 45, 114, 98, 117, 122gsummulc2 20212 . . 3 (πœ‘ β†’ (𝑆 Ξ£g (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ↦ ((𝑁 ↑ 𝐿) Β· ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))))) = ((𝑁 ↑ 𝐿) Β· (𝑆 Ξ£g (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ↦ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))))))
124109, 123eqtrd 2764 . 2 (πœ‘ β†’ (𝑆 Ξ£g (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ↦ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)β€˜π‘–))))))) = ((𝑁 ↑ 𝐿) Β· (𝑆 Ξ£g (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ↦ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))))))
125 mhphf.q . . 3 𝑄 = ((𝐼 evalSub 𝑆)β€˜π‘…)
12625fvexi 6896 . . . . 5 𝐾 ∈ V
127126a1i 11 . . . 4 (πœ‘ β†’ 𝐾 ∈ V)
12825, 34ringcl 20151 . . . . . . 7 ((𝑆 ∈ Ring ∧ 𝑗 ∈ 𝐾 ∧ π‘˜ ∈ 𝐾) β†’ (𝑗 Β· π‘˜) ∈ 𝐾)
12945, 128syl3an1 1160 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ 𝐾 ∧ π‘˜ ∈ 𝐾) β†’ (𝑗 Β· π‘˜) ∈ 𝐾)
1301293expb 1117 . . . . 5 ((πœ‘ ∧ (𝑗 ∈ 𝐾 ∧ π‘˜ ∈ 𝐾)) β†’ (𝑗 Β· π‘˜) ∈ 𝐾)
131 fconst6g 6771 . . . . . 6 (𝐿 ∈ 𝐾 β†’ (𝐼 Γ— {𝐿}):𝐼⟢𝐾)
13228, 131syl 17 . . . . 5 (πœ‘ β†’ (𝐼 Γ— {𝐿}):𝐼⟢𝐾)
133 inidm 4211 . . . . 5 (𝐼 ∩ 𝐼) = 𝐼
134130, 132, 7, 1, 1, 133off 7682 . . . 4 (πœ‘ β†’ ((𝐼 Γ— {𝐿}) ∘f Β· 𝐴):𝐼⟢𝐾)
135127, 1, 134elmapdd 8832 . . 3 (πœ‘ β†’ ((𝐼 Γ— {𝐿}) ∘f Β· 𝐴) ∈ (𝐾 ↑m 𝐼))
136125, 85, 86, 19, 76, 25, 14, 33, 34, 1, 13, 24, 77, 89, 135evlsmhpvvval 41698 . 2 (πœ‘ β†’ ((π‘„β€˜π‘‹)β€˜((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)) = (𝑆 Ξ£g (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ↦ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)β€˜π‘–))))))))
137125, 85, 86, 19, 76, 25, 14, 33, 34, 1, 13, 24, 77, 89, 5evlsmhpvvval 41698 . . 3 (πœ‘ β†’ ((π‘„β€˜π‘‹)β€˜π΄) = (𝑆 Ξ£g (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ↦ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–))))))))
138137oveq2d 7418 . 2 (πœ‘ β†’ ((𝑁 ↑ 𝐿) Β· ((π‘„β€˜π‘‹)β€˜π΄)) = ((𝑁 ↑ 𝐿) Β· (𝑆 Ξ£g (𝑏 ∈ {𝑔 ∈ {β„Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘β„Ž β€œ β„•) ∈ Fin} ∣ ((β„‚fld β†Ύs β„•0) Ξ£g 𝑔) = 𝑁} ↦ ((π‘‹β€˜π‘) Β· ((mulGrpβ€˜π‘†) Ξ£g (𝑖 ∈ 𝐼 ↦ ((π‘β€˜π‘–) ↑ (π΄β€˜π‘–)))))))))
139124, 136, 1383eqtr4d 2774 1 (πœ‘ β†’ ((π‘„β€˜π‘‹)β€˜((𝐼 Γ— {𝐿}) ∘f Β· 𝐴)) = ((𝑁 ↑ 𝐿) Β· ((π‘„β€˜π‘‹)β€˜π΄)))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ∧ wa 395   = wceq 1533   ∈ wcel 2098  {crab 3424  Vcvv 3466   βŠ† wss 3941  {csn 4621   class class class wbr 5139   ↦ cmpt 5222   Γ— cxp 5665  β—‘ccnv 5666   β€œ cima 5670  Fun wfun 6528   Fn wfn 6529  βŸΆwf 6530  β€˜cfv 6534  (class class class)co 7402   ∘f cof 7662   supp csupp 8141   ↑m cmap 8817  Fincfn 8936   finSupp cfsupp 9358  0cc0 11107  β„•cn 12211  β„•0cn0 12471  β„€cz 12557  Basecbs 17149   β†Ύs cress 17178  .rcmulr 17203  0gc0g 17390   Ξ£g cgsu 17391  Mndcmnd 18663  .gcmg 18991  CMndccmn 19696  mulGrpcmgp 20035  1rcur 20082  Ringcrg 20134  CRingccrg 20135  SubRingcsubrg 20465  β„‚fldccnfld 21234   mPoly cmpl 21789   evalSub ces 21964   mHomP cmhp 22003
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-rep 5276  ax-sep 5290  ax-nul 5297  ax-pow 5354  ax-pr 5418  ax-un 7719  ax-cnex 11163  ax-resscn 11164  ax-1cn 11165  ax-icn 11166  ax-addcl 11167  ax-addrcl 11168  ax-mulcl 11169  ax-mulrcl 11170  ax-mulcom 11171  ax-addass 11172  ax-mulass 11173  ax-distr 11174  ax-i2m1 11175  ax-1ne0 11176  ax-1rid 11177  ax-rnegex 11178  ax-rrecex 11179  ax-cnre 11180  ax-pre-lttri 11181  ax-pre-lttrn 11182  ax-pre-ltadd 11183  ax-pre-mulgt0 11184  ax-addf 11186  ax-mulf 11187
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-nel 3039  df-ral 3054  df-rex 3063  df-rmo 3368  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3771  df-csb 3887  df-dif 3944  df-un 3946  df-in 3948  df-ss 3958  df-pss 3960  df-nul 4316  df-if 4522  df-pw 4597  df-sn 4622  df-pr 4624  df-tp 4626  df-op 4628  df-uni 4901  df-int 4942  df-iun 4990  df-iin 4991  df-br 5140  df-opab 5202  df-mpt 5223  df-tr 5257  df-id 5565  df-eprel 5571  df-po 5579  df-so 5580  df-fr 5622  df-se 5623  df-we 5624  df-xp 5673  df-rel 5674  df-cnv 5675  df-co 5676  df-dm 5677  df-rn 5678  df-res 5679  df-ima 5680  df-pred 6291  df-ord 6358  df-on 6359  df-lim 6360  df-suc 6361  df-iota 6486  df-fun 6536  df-fn 6537  df-f 6538  df-f1 6539  df-fo 6540  df-f1o 6541  df-fv 6542  df-isom 6543  df-riota 7358  df-ov 7405  df-oprab 7406  df-mpo 7407  df-of 7664  df-ofr 7665  df-om 7850  df-1st 7969  df-2nd 7970  df-supp 8142  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-er 8700  df-map 8819  df-pm 8820  df-ixp 8889  df-en 8937  df-dom 8938  df-sdom 8939  df-fin 8940  df-fsupp 9359  df-sup 9434  df-oi 9502  df-card 9931  df-pnf 11249  df-mnf 11250  df-xr 11251  df-ltxr 11252  df-le 11253  df-sub 11445  df-neg 11446  df-nn 12212  df-2 12274  df-3 12275  df-4 12276  df-5 12277  df-6 12278  df-7 12279  df-8 12280  df-9 12281  df-n0 12472  df-z 12558  df-dec 12677  df-uz 12822  df-fz 13486  df-fzo 13629  df-seq 13968  df-hash 14292  df-struct 17085  df-sets 17102  df-slot 17120  df-ndx 17132  df-base 17150  df-ress 17179  df-plusg 17215  df-mulr 17216  df-starv 17217  df-sca 17218  df-vsca 17219  df-ip 17220  df-tset 17221  df-ple 17222  df-ds 17224  df-unif 17225  df-hom 17226  df-cco 17227  df-0g 17392  df-gsum 17393  df-prds 17398  df-pws 17400  df-mre 17535  df-mrc 17536  df-acs 17538  df-mgm 18569  df-sgrp 18648  df-mnd 18664  df-mhm 18709  df-submnd 18710  df-grp 18862  df-minusg 18863  df-sbg 18864  df-mulg 18992  df-subg 19046  df-ghm 19135  df-cntz 19229  df-cmn 19698  df-abl 19699  df-mgp 20036  df-rng 20054  df-ur 20083  df-srg 20088  df-ring 20136  df-cring 20137  df-rhm 20370  df-subrng 20442  df-subrg 20467  df-lmod 20704  df-lss 20775  df-lsp 20815  df-cnfld 21235  df-assa 21737  df-asp 21738  df-ascl 21739  df-psr 21792  df-mvr 21793  df-mpl 21794  df-evls 21966  df-mhp 22010
This theorem is referenced by:  mhphf2  41701  mhphf3  41702
  Copyright terms: Public domain W3C validator