Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  mzpsubst Structured version   Visualization version   GIF version

Theorem mzpsubst 37628
Description: Substituting polynomials for the variables of a polynomial results in a polynomial. 𝐺 is expected to depend on 𝑦 and provide the polynomials which are being substituted. (Contributed by Stefan O'Rear, 5-Oct-2014.)
Assertion
Ref Expression
mzpsubst ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝐹‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))
Distinct variable groups:   𝑥,𝑊,𝑦   𝑥,𝐹   𝑥,𝑉,𝑦   𝑥,𝐺
Allowed substitution hints:   𝐹(𝑦)   𝐺(𝑦)

Proof of Theorem mzpsubst
Dummy variables 𝑎 𝑏 𝑐 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simp1 1081 . 2 ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) → 𝑊 ∈ V)
2 elfvex 6259 . . 3 (𝐹 ∈ (mzPoly‘𝑉) → 𝑉 ∈ V)
323ad2ant2 1103 . 2 ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) → 𝑉 ∈ V)
4 simp3 1083 . 2 ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) → ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊))
5 simp2 1082 . 2 ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) → 𝐹 ∈ (mzPoly‘𝑉))
6 simpr 476 . . . . . . 7 ((((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏 ∈ ℤ) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → 𝑥 ∈ (ℤ ↑𝑚 𝑊))
7 simpll3 1122 . . . . . . 7 ((((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏 ∈ ℤ) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊))
8 simpll2 1121 . . . . . . 7 ((((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏 ∈ ℤ) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → 𝑉 ∈ V)
9 mzpf 37616 . . . . . . . . . . . . . 14 (𝐺 ∈ (mzPoly‘𝑊) → 𝐺:(ℤ ↑𝑚 𝑊)⟶ℤ)
109ffvelrnda 6399 . . . . . . . . . . . . 13 ((𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → (𝐺𝑥) ∈ ℤ)
1110expcom 450 . . . . . . . . . . . 12 (𝑥 ∈ (ℤ ↑𝑚 𝑊) → (𝐺 ∈ (mzPoly‘𝑊) → (𝐺𝑥) ∈ ℤ))
1211ralimdv 2992 . . . . . . . . . . 11 (𝑥 ∈ (ℤ ↑𝑚 𝑊) → (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) → ∀𝑦𝑉 (𝐺𝑥) ∈ ℤ))
1312imp 444 . . . . . . . . . 10 ((𝑥 ∈ (ℤ ↑𝑚 𝑊) ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) → ∀𝑦𝑉 (𝐺𝑥) ∈ ℤ)
14 eqid 2651 . . . . . . . . . . 11 (𝑦𝑉 ↦ (𝐺𝑥)) = (𝑦𝑉 ↦ (𝐺𝑥))
1514fmpt 6421 . . . . . . . . . 10 (∀𝑦𝑉 (𝐺𝑥) ∈ ℤ ↔ (𝑦𝑉 ↦ (𝐺𝑥)):𝑉⟶ℤ)
1613, 15sylib 208 . . . . . . . . 9 ((𝑥 ∈ (ℤ ↑𝑚 𝑊) ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) → (𝑦𝑉 ↦ (𝐺𝑥)):𝑉⟶ℤ)
1716adantr 480 . . . . . . . 8 (((𝑥 ∈ (ℤ ↑𝑚 𝑊) ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑉 ∈ V) → (𝑦𝑉 ↦ (𝐺𝑥)):𝑉⟶ℤ)
18 zex 11424 . . . . . . . . 9 ℤ ∈ V
19 simpr 476 . . . . . . . . 9 (((𝑥 ∈ (ℤ ↑𝑚 𝑊) ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑉 ∈ V) → 𝑉 ∈ V)
20 elmapg 7912 . . . . . . . . 9 ((ℤ ∈ V ∧ 𝑉 ∈ V) → ((𝑦𝑉 ↦ (𝐺𝑥)) ∈ (ℤ ↑𝑚 𝑉) ↔ (𝑦𝑉 ↦ (𝐺𝑥)):𝑉⟶ℤ))
2118, 19, 20sylancr 696 . . . . . . . 8 (((𝑥 ∈ (ℤ ↑𝑚 𝑊) ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑉 ∈ V) → ((𝑦𝑉 ↦ (𝐺𝑥)) ∈ (ℤ ↑𝑚 𝑉) ↔ (𝑦𝑉 ↦ (𝐺𝑥)):𝑉⟶ℤ))
2217, 21mpbird 247 . . . . . . 7 (((𝑥 ∈ (ℤ ↑𝑚 𝑊) ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑉 ∈ V) → (𝑦𝑉 ↦ (𝐺𝑥)) ∈ (ℤ ↑𝑚 𝑉))
236, 7, 8, 22syl21anc 1365 . . . . . 6 ((((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏 ∈ ℤ) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → (𝑦𝑉 ↦ (𝐺𝑥)) ∈ (ℤ ↑𝑚 𝑉))
24 vex 3234 . . . . . . 7 𝑏 ∈ V
2524fvconst2 6510 . . . . . 6 ((𝑦𝑉 ↦ (𝐺𝑥)) ∈ (ℤ ↑𝑚 𝑉) → (((ℤ ↑𝑚 𝑉) × {𝑏})‘(𝑦𝑉 ↦ (𝐺𝑥))) = 𝑏)
2623, 25syl 17 . . . . 5 ((((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏 ∈ ℤ) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → (((ℤ ↑𝑚 𝑉) × {𝑏})‘(𝑦𝑉 ↦ (𝐺𝑥))) = 𝑏)
2726mpteq2dva 4777 . . . 4 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏 ∈ ℤ) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (((ℤ ↑𝑚 𝑉) × {𝑏})‘(𝑦𝑉 ↦ (𝐺𝑥)))) = (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ 𝑏))
28 mzpconstmpt 37620 . . . . 5 ((𝑊 ∈ V ∧ 𝑏 ∈ ℤ) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ 𝑏) ∈ (mzPoly‘𝑊))
29283ad2antl1 1243 . . . 4 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏 ∈ ℤ) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ 𝑏) ∈ (mzPoly‘𝑊))
3027, 29eqeltrd 2730 . . 3 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏 ∈ ℤ) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (((ℤ ↑𝑚 𝑉) × {𝑏})‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))
31 simpr 476 . . . . . . . . 9 ((((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → 𝑥 ∈ (ℤ ↑𝑚 𝑊))
32 simpll3 1122 . . . . . . . . 9 ((((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊))
33 simpll2 1121 . . . . . . . . 9 ((((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → 𝑉 ∈ V)
3431, 32, 33, 22syl21anc 1365 . . . . . . . 8 ((((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → (𝑦𝑉 ↦ (𝐺𝑥)) ∈ (ℤ ↑𝑚 𝑉))
35 fveq1 6228 . . . . . . . . 9 (𝑐 = (𝑦𝑉 ↦ (𝐺𝑥)) → (𝑐𝑏) = ((𝑦𝑉 ↦ (𝐺𝑥))‘𝑏))
36 eqid 2651 . . . . . . . . 9 (𝑐 ∈ (ℤ ↑𝑚 𝑉) ↦ (𝑐𝑏)) = (𝑐 ∈ (ℤ ↑𝑚 𝑉) ↦ (𝑐𝑏))
37 fvex 6239 . . . . . . . . 9 ((𝑦𝑉 ↦ (𝐺𝑥))‘𝑏) ∈ V
3835, 36, 37fvmpt 6321 . . . . . . . 8 ((𝑦𝑉 ↦ (𝐺𝑥)) ∈ (ℤ ↑𝑚 𝑉) → ((𝑐 ∈ (ℤ ↑𝑚 𝑉) ↦ (𝑐𝑏))‘(𝑦𝑉 ↦ (𝐺𝑥))) = ((𝑦𝑉 ↦ (𝐺𝑥))‘𝑏))
3934, 38syl 17 . . . . . . 7 ((((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → ((𝑐 ∈ (ℤ ↑𝑚 𝑉) ↦ (𝑐𝑏))‘(𝑦𝑉 ↦ (𝐺𝑥))) = ((𝑦𝑉 ↦ (𝐺𝑥))‘𝑏))
40 simplr 807 . . . . . . . 8 ((((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → 𝑏𝑉)
41 fvex 6239 . . . . . . . 8 (𝑏 / 𝑦𝐺𝑥) ∈ V
42 csbeq1 3569 . . . . . . . . . 10 (𝑎 = 𝑏𝑎 / 𝑦𝐺 = 𝑏 / 𝑦𝐺)
4342fveq1d 6231 . . . . . . . . 9 (𝑎 = 𝑏 → (𝑎 / 𝑦𝐺𝑥) = (𝑏 / 𝑦𝐺𝑥))
44 nfcv 2793 . . . . . . . . . 10 𝑎(𝐺𝑥)
45 nfcsb1v 3582 . . . . . . . . . . 11 𝑦𝑎 / 𝑦𝐺
46 nfcv 2793 . . . . . . . . . . 11 𝑦𝑥
4745, 46nffv 6236 . . . . . . . . . 10 𝑦(𝑎 / 𝑦𝐺𝑥)
48 csbeq1a 3575 . . . . . . . . . . 11 (𝑦 = 𝑎𝐺 = 𝑎 / 𝑦𝐺)
4948fveq1d 6231 . . . . . . . . . 10 (𝑦 = 𝑎 → (𝐺𝑥) = (𝑎 / 𝑦𝐺𝑥))
5044, 47, 49cbvmpt 4782 . . . . . . . . 9 (𝑦𝑉 ↦ (𝐺𝑥)) = (𝑎𝑉 ↦ (𝑎 / 𝑦𝐺𝑥))
5143, 50fvmptg 6319 . . . . . . . 8 ((𝑏𝑉 ∧ (𝑏 / 𝑦𝐺𝑥) ∈ V) → ((𝑦𝑉 ↦ (𝐺𝑥))‘𝑏) = (𝑏 / 𝑦𝐺𝑥))
5240, 41, 51sylancl 695 . . . . . . 7 ((((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → ((𝑦𝑉 ↦ (𝐺𝑥))‘𝑏) = (𝑏 / 𝑦𝐺𝑥))
5339, 52eqtrd 2685 . . . . . 6 ((((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → ((𝑐 ∈ (ℤ ↑𝑚 𝑉) ↦ (𝑐𝑏))‘(𝑦𝑉 ↦ (𝐺𝑥))) = (𝑏 / 𝑦𝐺𝑥))
5453mpteq2dva 4777 . . . . 5 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑐 ∈ (ℤ ↑𝑚 𝑉) ↦ (𝑐𝑏))‘(𝑦𝑉 ↦ (𝐺𝑥)))) = (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏 / 𝑦𝐺𝑥)))
55 simpr 476 . . . . . . . 8 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) → 𝑏𝑉)
56 simpl3 1086 . . . . . . . 8 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) → ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊))
57 nfcsb1v 3582 . . . . . . . . . 10 𝑦𝑏 / 𝑦𝐺
5857nfel1 2808 . . . . . . . . 9 𝑦𝑏 / 𝑦𝐺 ∈ (mzPoly‘𝑊)
59 csbeq1a 3575 . . . . . . . . . 10 (𝑦 = 𝑏𝐺 = 𝑏 / 𝑦𝐺)
6059eleq1d 2715 . . . . . . . . 9 (𝑦 = 𝑏 → (𝐺 ∈ (mzPoly‘𝑊) ↔ 𝑏 / 𝑦𝐺 ∈ (mzPoly‘𝑊)))
6158, 60rspc 3334 . . . . . . . 8 (𝑏𝑉 → (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) → 𝑏 / 𝑦𝐺 ∈ (mzPoly‘𝑊)))
6255, 56, 61sylc 65 . . . . . . 7 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) → 𝑏 / 𝑦𝐺 ∈ (mzPoly‘𝑊))
63 mzpf 37616 . . . . . . 7 (𝑏 / 𝑦𝐺 ∈ (mzPoly‘𝑊) → 𝑏 / 𝑦𝐺:(ℤ ↑𝑚 𝑊)⟶ℤ)
6462, 63syl 17 . . . . . 6 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) → 𝑏 / 𝑦𝐺:(ℤ ↑𝑚 𝑊)⟶ℤ)
6564feqmptd 6288 . . . . 5 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) → 𝑏 / 𝑦𝐺 = (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏 / 𝑦𝐺𝑥)))
6654, 65eqtr4d 2688 . . . 4 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑐 ∈ (ℤ ↑𝑚 𝑉) ↦ (𝑐𝑏))‘(𝑦𝑉 ↦ (𝐺𝑥)))) = 𝑏 / 𝑦𝐺)
6766, 62eqeltrd 2730 . . 3 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝑏𝑉) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑐 ∈ (ℤ ↑𝑚 𝑉) ↦ (𝑐𝑏))‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))
68 simp2l 1107 . . . . . 6 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) ∧ (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))) → 𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ)
69 ffn 6083 . . . . . 6 (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ → 𝑏 Fn (ℤ ↑𝑚 𝑉))
7068, 69syl 17 . . . . 5 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) ∧ (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))) → 𝑏 Fn (ℤ ↑𝑚 𝑉))
71 simp3l 1109 . . . . . 6 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) ∧ (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))) → 𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ)
72 ffn 6083 . . . . . 6 (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ → 𝑐 Fn (ℤ ↑𝑚 𝑉))
7371, 72syl 17 . . . . 5 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) ∧ (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))) → 𝑐 Fn (ℤ ↑𝑚 𝑉))
74 simp13 1113 . . . . 5 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) ∧ (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))) → ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊))
75 simp12 1112 . . . . 5 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) ∧ (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))) → 𝑉 ∈ V)
76 simplll 813 . . . . . . 7 ((((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑉 ∈ V)) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → 𝑏 Fn (ℤ ↑𝑚 𝑉))
77 simpllr 815 . . . . . . 7 ((((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑉 ∈ V)) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → 𝑐 Fn (ℤ ↑𝑚 𝑉))
78 ovexd 6720 . . . . . . 7 ((((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑉 ∈ V)) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → (ℤ ↑𝑚 𝑉) ∈ V)
79 simpr 476 . . . . . . . . . 10 ((((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑉 ∈ V)) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → 𝑥 ∈ (ℤ ↑𝑚 𝑊))
80 simplrl 817 . . . . . . . . . 10 ((((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑉 ∈ V)) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊))
8179, 80, 12sylc 65 . . . . . . . . 9 ((((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑉 ∈ V)) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → ∀𝑦𝑉 (𝐺𝑥) ∈ ℤ)
8281, 15sylib 208 . . . . . . . 8 ((((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑉 ∈ V)) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → (𝑦𝑉 ↦ (𝐺𝑥)):𝑉⟶ℤ)
83 simplrr 818 . . . . . . . . 9 ((((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑉 ∈ V)) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → 𝑉 ∈ V)
8418, 83, 20sylancr 696 . . . . . . . 8 ((((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑉 ∈ V)) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → ((𝑦𝑉 ↦ (𝐺𝑥)) ∈ (ℤ ↑𝑚 𝑉) ↔ (𝑦𝑉 ↦ (𝐺𝑥)):𝑉⟶ℤ))
8582, 84mpbird 247 . . . . . . 7 ((((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑉 ∈ V)) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → (𝑦𝑉 ↦ (𝐺𝑥)) ∈ (ℤ ↑𝑚 𝑉))
86 fnfvof 6953 . . . . . . 7 (((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ ((ℤ ↑𝑚 𝑉) ∈ V ∧ (𝑦𝑉 ↦ (𝐺𝑥)) ∈ (ℤ ↑𝑚 𝑉))) → ((𝑏𝑓 + 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥))) = ((𝑏‘(𝑦𝑉 ↦ (𝐺𝑥))) + (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))))
8776, 77, 78, 85, 86syl22anc 1367 . . . . . 6 ((((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑉 ∈ V)) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → ((𝑏𝑓 + 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥))) = ((𝑏‘(𝑦𝑉 ↦ (𝐺𝑥))) + (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))))
8887mpteq2dva 4777 . . . . 5 (((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑉 ∈ V)) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏𝑓 + 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥)))) = (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏‘(𝑦𝑉 ↦ (𝐺𝑥))) + (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥))))))
8970, 73, 74, 75, 88syl22anc 1367 . . . 4 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) ∧ (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏𝑓 + 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥)))) = (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏‘(𝑦𝑉 ↦ (𝐺𝑥))) + (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥))))))
90 simp2r 1108 . . . . 5 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) ∧ (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))
91 simp3r 1110 . . . . 5 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) ∧ (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))
92 mzpaddmpt 37621 . . . . 5 (((𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊) ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏‘(𝑦𝑉 ↦ (𝐺𝑥))) + (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥))))) ∈ (mzPoly‘𝑊))
9390, 91, 92syl2anc 694 . . . 4 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) ∧ (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏‘(𝑦𝑉 ↦ (𝐺𝑥))) + (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥))))) ∈ (mzPoly‘𝑊))
9489, 93eqeltrd 2730 . . 3 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) ∧ (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏𝑓 + 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))
95 fnfvof 6953 . . . . . . 7 (((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ ((ℤ ↑𝑚 𝑉) ∈ V ∧ (𝑦𝑉 ↦ (𝐺𝑥)) ∈ (ℤ ↑𝑚 𝑉))) → ((𝑏𝑓 · 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥))) = ((𝑏‘(𝑦𝑉 ↦ (𝐺𝑥))) · (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))))
9676, 77, 78, 85, 95syl22anc 1367 . . . . . 6 ((((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑉 ∈ V)) ∧ 𝑥 ∈ (ℤ ↑𝑚 𝑊)) → ((𝑏𝑓 · 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥))) = ((𝑏‘(𝑦𝑉 ↦ (𝐺𝑥))) · (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))))
9796mpteq2dva 4777 . . . . 5 (((𝑏 Fn (ℤ ↑𝑚 𝑉) ∧ 𝑐 Fn (ℤ ↑𝑚 𝑉)) ∧ (∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊) ∧ 𝑉 ∈ V)) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏𝑓 · 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥)))) = (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏‘(𝑦𝑉 ↦ (𝐺𝑥))) · (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥))))))
9870, 73, 74, 75, 97syl22anc 1367 . . . 4 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) ∧ (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏𝑓 · 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥)))) = (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏‘(𝑦𝑉 ↦ (𝐺𝑥))) · (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥))))))
99 mzpmulmpt 37622 . . . . 5 (((𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊) ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏‘(𝑦𝑉 ↦ (𝐺𝑥))) · (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥))))) ∈ (mzPoly‘𝑊))
10090, 91, 99syl2anc 694 . . . 4 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) ∧ (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏‘(𝑦𝑉 ↦ (𝐺𝑥))) · (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥))))) ∈ (mzPoly‘𝑊))
10198, 100eqeltrd 2730 . . 3 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ (𝑏:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)) ∧ (𝑐:(ℤ ↑𝑚 𝑉)⟶ℤ ∧ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏𝑓 · 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))
102 fveq1 6228 . . . . 5 (𝑎 = ((ℤ ↑𝑚 𝑉) × {𝑏}) → (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥))) = (((ℤ ↑𝑚 𝑉) × {𝑏})‘(𝑦𝑉 ↦ (𝐺𝑥))))
103102mpteq2dv 4778 . . . 4 (𝑎 = ((ℤ ↑𝑚 𝑉) × {𝑏}) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥)))) = (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (((ℤ ↑𝑚 𝑉) × {𝑏})‘(𝑦𝑉 ↦ (𝐺𝑥)))))
104103eleq1d 2715 . . 3 (𝑎 = ((ℤ ↑𝑚 𝑉) × {𝑏}) → ((𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊) ↔ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (((ℤ ↑𝑚 𝑉) × {𝑏})‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)))
105 fveq1 6228 . . . . 5 (𝑎 = (𝑐 ∈ (ℤ ↑𝑚 𝑉) ↦ (𝑐𝑏)) → (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥))) = ((𝑐 ∈ (ℤ ↑𝑚 𝑉) ↦ (𝑐𝑏))‘(𝑦𝑉 ↦ (𝐺𝑥))))
106105mpteq2dv 4778 . . . 4 (𝑎 = (𝑐 ∈ (ℤ ↑𝑚 𝑉) ↦ (𝑐𝑏)) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥)))) = (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑐 ∈ (ℤ ↑𝑚 𝑉) ↦ (𝑐𝑏))‘(𝑦𝑉 ↦ (𝐺𝑥)))))
107106eleq1d 2715 . . 3 (𝑎 = (𝑐 ∈ (ℤ ↑𝑚 𝑉) ↦ (𝑐𝑏)) → ((𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊) ↔ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑐 ∈ (ℤ ↑𝑚 𝑉) ↦ (𝑐𝑏))‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)))
108 fveq1 6228 . . . . 5 (𝑎 = 𝑏 → (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥))) = (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥))))
109108mpteq2dv 4778 . . . 4 (𝑎 = 𝑏 → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥)))) = (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))))
110109eleq1d 2715 . . 3 (𝑎 = 𝑏 → ((𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊) ↔ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑏‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)))
111 fveq1 6228 . . . . 5 (𝑎 = 𝑐 → (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥))) = (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥))))
112111mpteq2dv 4778 . . . 4 (𝑎 = 𝑐 → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥)))) = (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))))
113112eleq1d 2715 . . 3 (𝑎 = 𝑐 → ((𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊) ↔ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑐‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)))
114 fveq1 6228 . . . . 5 (𝑎 = (𝑏𝑓 + 𝑐) → (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥))) = ((𝑏𝑓 + 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥))))
115114mpteq2dv 4778 . . . 4 (𝑎 = (𝑏𝑓 + 𝑐) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥)))) = (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏𝑓 + 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥)))))
116115eleq1d 2715 . . 3 (𝑎 = (𝑏𝑓 + 𝑐) → ((𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊) ↔ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏𝑓 + 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)))
117 fveq1 6228 . . . . 5 (𝑎 = (𝑏𝑓 · 𝑐) → (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥))) = ((𝑏𝑓 · 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥))))
118117mpteq2dv 4778 . . . 4 (𝑎 = (𝑏𝑓 · 𝑐) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥)))) = (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏𝑓 · 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥)))))
119118eleq1d 2715 . . 3 (𝑎 = (𝑏𝑓 · 𝑐) → ((𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊) ↔ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ ((𝑏𝑓 · 𝑐)‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)))
120 fveq1 6228 . . . . 5 (𝑎 = 𝐹 → (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥))) = (𝐹‘(𝑦𝑉 ↦ (𝐺𝑥))))
121120mpteq2dv 4778 . . . 4 (𝑎 = 𝐹 → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥)))) = (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝐹‘(𝑦𝑉 ↦ (𝐺𝑥)))))
122121eleq1d 2715 . . 3 (𝑎 = 𝐹 → ((𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝑎‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊) ↔ (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝐹‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊)))
12330, 67, 94, 101, 104, 107, 110, 113, 116, 119, 122mzpindd 37626 . 2 (((𝑊 ∈ V ∧ 𝑉 ∈ V ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) ∧ 𝐹 ∈ (mzPoly‘𝑉)) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝐹‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))
1241, 3, 4, 5, 123syl31anc 1369 1 ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ ∀𝑦𝑉 𝐺 ∈ (mzPoly‘𝑊)) → (𝑥 ∈ (ℤ ↑𝑚 𝑊) ↦ (𝐹‘(𝑦𝑉 ↦ (𝐺𝑥)))) ∈ (mzPoly‘𝑊))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 383  w3a 1054   = wceq 1523  wcel 2030  wral 2941  Vcvv 3231  csb 3566  {csn 4210  cmpt 4762   × cxp 5141   Fn wfn 5921  wf 5922  cfv 5926  (class class class)co 6690  𝑓 cof 6937  𝑚 cmap 7899   + caddc 9977   · cmul 9979  cz 11415  mzPolycmzp 37602
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-8 2032  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-13 2282  ax-ext 2631  ax-rep 4804  ax-sep 4814  ax-nul 4822  ax-pow 4873  ax-pr 4936  ax-un 6991  ax-cnex 10030  ax-resscn 10031  ax-1cn 10032  ax-icn 10033  ax-addcl 10034  ax-addrcl 10035  ax-mulcl 10036  ax-mulrcl 10037  ax-mulcom 10038  ax-addass 10039  ax-mulass 10040  ax-distr 10041  ax-i2m1 10042  ax-1ne0 10043  ax-1rid 10044  ax-rnegex 10045  ax-rrecex 10046  ax-cnre 10047  ax-pre-lttri 10048  ax-pre-lttrn 10049  ax-pre-ltadd 10050  ax-pre-mulgt0 10051
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1055  df-3an 1056  df-tru 1526  df-ex 1745  df-nf 1750  df-sb 1938  df-eu 2502  df-mo 2503  df-clab 2638  df-cleq 2644  df-clel 2647  df-nfc 2782  df-ne 2824  df-nel 2927  df-ral 2946  df-rex 2947  df-reu 2948  df-rab 2950  df-v 3233  df-sbc 3469  df-csb 3567  df-dif 3610  df-un 3612  df-in 3614  df-ss 3621  df-pss 3623  df-nul 3949  df-if 4120  df-pw 4193  df-sn 4211  df-pr 4213  df-tp 4215  df-op 4217  df-uni 4469  df-int 4508  df-iun 4554  df-br 4686  df-opab 4746  df-mpt 4763  df-tr 4786  df-id 5053  df-eprel 5058  df-po 5064  df-so 5065  df-fr 5102  df-we 5104  df-xp 5149  df-rel 5150  df-cnv 5151  df-co 5152  df-dm 5153  df-rn 5154  df-res 5155  df-ima 5156  df-pred 5718  df-ord 5764  df-on 5765  df-lim 5766  df-suc 5767  df-iota 5889  df-fun 5928  df-fn 5929  df-f 5930  df-f1 5931  df-fo 5932  df-f1o 5933  df-fv 5934  df-riota 6651  df-ov 6693  df-oprab 6694  df-mpt2 6695  df-of 6939  df-om 7108  df-wrecs 7452  df-recs 7513  df-rdg 7551  df-er 7787  df-map 7901  df-en 7998  df-dom 7999  df-sdom 8000  df-pnf 10114  df-mnf 10115  df-xr 10116  df-ltxr 10117  df-le 10118  df-sub 10306  df-neg 10307  df-nn 11059  df-n0 11331  df-z 11416  df-mzpcl 37603  df-mzp 37604
This theorem is referenced by:  mzprename  37629
  Copyright terms: Public domain W3C validator