Metamath Proof Explorer


Theorem mplvrpmrhm

Description: The action of permuting variables in a multivariate polynomial is a ring homomorphism. (Contributed by Thierry Arnoux, 15-Jan-2026)

Ref Expression
Hypotheses mplvrpmga.1 ⊢ S = SymGrp ⁡ I
mplvrpmga.2 ⊢ P = Base S
mplvrpmga.3 ⊢ M = Base I mPoly R
mplvrpmga.4 ⊢ A = d ∈ P , f ∈ M ⟼ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ f ⁡ x ∘ d
mplvrpmga.5 ⊢ φ → I ∈ V
mplvrpmmhm.f ⊢ F = f ∈ M ⟼ D A f
mplvrpmmhm.w ⊢ W = I mPoly R
mplvrpmmhm.1 ⊢ φ → R ∈ Ring
mplvrpmmhm.2 ⊢ φ → D ∈ P
Assertion mplvrpmrhm ⊢ φ → F ∈ W RingHom W

Proof

Step Hyp Ref Expression
1 mplvrpmga.1 ⊢ S = SymGrp ⁡ I
2 mplvrpmga.2 ⊢ P = Base S
3 mplvrpmga.3 ⊢ M = Base I mPoly R
4 mplvrpmga.4 ⊢ A = d ∈ P , f ∈ M ⟼ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ f ⁡ x ∘ d
5 mplvrpmga.5 ⊢ φ → I ∈ V
6 mplvrpmmhm.f ⊢ F = f ∈ M ⟼ D A f
7 mplvrpmmhm.w ⊢ W = I mPoly R
8 mplvrpmmhm.1 ⊢ φ → R ∈ Ring
9 mplvrpmmhm.2 ⊢ φ → D ∈ P
10 7 fveq2i ⊢ Base W = Base I mPoly R
11 3 10 eqtr4i ⊢ M = Base W
12 eqid ⊢ 1 W = 1 W
13 eqid ⊢ ⋅ W = ⋅ W
14 7 5 8 mplringd ⊢ φ → W ∈ Ring
15 oveq2 ⊢ f = 1 W → D A f = D A 1 W
16 4 a1i ⊢ φ → A = d ∈ P , f ∈ M ⟼ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ f ⁡ x ∘ d
17 simpr ⊢ d = D ∧ f = 1 W → f = 1 W
18 simpl ⊢ d = D ∧ f = 1 W → d = D
19 18 coeq2d ⊢ d = D ∧ f = 1 W → x ∘ d = x ∘ D
20 17 19 fveq12d ⊢ d = D ∧ f = 1 W → f ⁡ x ∘ d = 1 W ⁡ x ∘ D
21 20 ad2antlr ⊢ φ ∧ d = D ∧ f = 1 W ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → f ⁡ x ∘ d = 1 W ⁡ x ∘ D
22 eqid ⊢ h ∈ ℕ 0 I | finSupp 0 ⁡ h = h ∈ ℕ 0 I | finSupp 0 ⁡ h
23 22 psrbasfsupp ⊢ h ∈ ℕ 0 I | finSupp 0 ⁡ h = h ∈ ℕ 0 I | h -1 ℕ ∈ Fin
24 eqid ⊢ 0 R = 0 R
25 eqid ⊢ 1 R = 1 R
26 7 23 24 25 12 5 8 mpl1 ⊢ φ → 1 W = y ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ if y = I × 0 1 R 0 R
27 26 adantr ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → 1 W = y ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ if y = I × 0 1 R 0 R
28 eqeq1 ⊢ y = x ∘ D → y = I × 0 ↔ x ∘ D = I × 0
29 9 adantr ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → D ∈ P
30 1 2 symgbasf1o ⊢ D ∈ P → D : I ⟶ 1-1 onto I
31 f1ococnv2 ⊢ D : I ⟶ 1-1 onto I → D ∘ D -1 = I ↾ I
32 29 30 31 3syl ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → D ∘ D -1 = I ↾ I
33 32 adantr ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x ∘ D = I × 0 → D ∘ D -1 = I ↾ I
34 33 coeq2d ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x ∘ D = I × 0 → x ∘ D ∘ D -1 = x ∘ I ↾ I
35 simpr ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x ∘ D = I × 0 → x ∘ D = I × 0
36 35 coeq1d ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x ∘ D = I × 0 → x ∘ D ∘ D -1 = I × 0 ∘ D -1
37 coass ⊢ x ∘ D ∘ D -1 = x ∘ D ∘ D -1
38 37 a1i ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x ∘ D = I × 0 → x ∘ D ∘ D -1 = x ∘ D ∘ D -1
39 9 30 syl ⊢ φ → D : I ⟶ 1-1 onto I
40 f1ocnv ⊢ D : I ⟶ 1-1 onto I → D -1 : I ⟶ 1-1 onto I
41 f1of ⊢ D -1 : I ⟶ 1-1 onto I → D -1 : I ⟶ I
42 39 40 41 3syl ⊢ φ → D -1 : I ⟶ I
43 0nn0 ⊢ 0 ∈ ℕ 0
44 43 a1i ⊢ φ → 0 ∈ ℕ 0
45 42 44 constcof ⊢ φ → I × 0 ∘ D -1 = I × 0
46 45 ad2antrr ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x ∘ D = I × 0 → I × 0 ∘ D -1 = I × 0
47 36 38 46 3eqtr3d ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x ∘ D = I × 0 → x ∘ D ∘ D -1 = I × 0
48 ssrab2 ⊢ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⊆ ℕ 0 I
49 simpr ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h
50 48 49 sselid ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → x ∈ ℕ 0 I
51 50 elmaprd ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → x : I ⟶ ℕ 0
52 fcoi1 ⊢ x : I ⟶ ℕ 0 → x ∘ I ↾ I = x
53 51 52 syl ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → x ∘ I ↾ I = x
54 53 adantr ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x ∘ D = I × 0 → x ∘ I ↾ I = x
55 34 47 54 3eqtr3rd ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x ∘ D = I × 0 → x = I × 0
56 simpr ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x = I × 0 → x = I × 0
57 56 coeq1d ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x = I × 0 → x ∘ D = I × 0 ∘ D
58 f1of ⊢ D : I ⟶ 1-1 onto I → D : I ⟶ I
59 9 30 58 3syl ⊢ φ → D : I ⟶ I
60 59 44 constcof ⊢ φ → I × 0 ∘ D = I × 0
61 60 ad2antrr ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x = I × 0 → I × 0 ∘ D = I × 0
62 57 61 eqtrd ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x = I × 0 → x ∘ D = I × 0
63 55 62 impbida ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → x ∘ D = I × 0 ↔ x = I × 0
64 28 63 sylan9bbr ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y = x ∘ D → y = I × 0 ↔ x = I × 0
65 64 ifbid ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y = x ∘ D → if y = I × 0 1 R 0 R = if x = I × 0 1 R 0 R
66 5 adantr ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → I ∈ V
67 1 2 66 29 49 mplvrpmlem ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → x ∘ D ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h
68 fvexd ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → 1 R ∈ V
69 fvexd ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → 0 R ∈ V
70 68 69 ifcld ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → if x = I × 0 1 R 0 R ∈ V
71 27 65 67 70 fvmptd ⊢ φ ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → 1 W ⁡ x ∘ D = if x = I × 0 1 R 0 R
72 71 adantlr ⊢ φ ∧ d = D ∧ f = 1 W ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → 1 W ⁡ x ∘ D = if x = I × 0 1 R 0 R
73 21 72 eqtrd ⊢ φ ∧ d = D ∧ f = 1 W ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → f ⁡ x ∘ d = if x = I × 0 1 R 0 R
74 73 mpteq2dva ⊢ φ ∧ d = D ∧ f = 1 W → x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ f ⁡ x ∘ d = x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ if x = I × 0 1 R 0 R
75 11 12 14 ringidcld ⊢ φ → 1 W ∈ M
76 ovex ⊢ ℕ 0 I ∈ V
77 76 rabex ⊢ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∈ V
78 77 a1i ⊢ φ → h ∈ ℕ 0 I | finSupp 0 ⁡ h ∈ V
79 78 mptexd ⊢ φ → x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ if x = I × 0 1 R 0 R ∈ V
80 16 74 9 75 79 ovmpod ⊢ φ → D A 1 W = x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ if x = I × 0 1 R 0 R
81 eqid ⊢ I mPwSer R = I mPwSer R
82 eqid ⊢ 1 I mPwSer R = 1 I mPwSer R
83 81 5 8 23 24 25 82 psr1 ⊢ φ → 1 I mPwSer R = x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ if x = I × 0 1 R 0 R
84 81 7 11 5 8 mplsubrg ⊢ φ → M ∈ SubRing ⁡ I mPwSer R
85 7 81 11 mplval2 ⊢ W = I mPwSer R ↾ 𝑠 M
86 85 82 subrg1 ⊢ M ∈ SubRing ⁡ I mPwSer R → 1 I mPwSer R = 1 W
87 84 86 syl ⊢ φ → 1 I mPwSer R = 1 W
88 80 83 87 3eqtr2d ⊢ φ → D A 1 W = 1 W
89 15 88 sylan9eqr ⊢ φ ∧ f = 1 W → D A f = 1 W
90 6 89 75 75 fvmptd2 ⊢ φ → F ⁡ 1 W = 1 W
91 nfcv ⊢ Ⅎ _ v i ⁡ y ∘ D ⋅ R j ⁡ x ∘ D − f y ∘ D
92 eqid ⊢ Base R = Base R
93 fveq2 ⊢ v = y ∘ D → i ⁡ v = i ⁡ y ∘ D
94 oveq2 ⊢ v = y ∘ D → x ∘ D − f v = x ∘ D − f y ∘ D
95 94 fveq2d ⊢ v = y ∘ D → j ⁡ x ∘ D − f v = j ⁡ x ∘ D − f y ∘ D
96 93 95 oveq12d ⊢ v = y ∘ D → i ⁡ v ⋅ R j ⁡ x ∘ D − f v = i ⁡ y ∘ D ⋅ R j ⁡ x ∘ D − f y ∘ D
97 8 ringcmnd ⊢ φ → R ∈ CMnd
98 97 ad3antrrr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → R ∈ CMnd
99 77 rabex ⊢ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D ∈ V
100 99 a1i ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D ∈ V
101 eqid ⊢ Base I mPwSer R = Base I mPwSer R
102 7 81 11 101 mplbasss ⊢ M ⊆ Base I mPwSer R
103 simplr ⊢ φ ∧ i ∈ M ∧ j ∈ M → i ∈ M
104 102 103 sselid ⊢ φ ∧ i ∈ M ∧ j ∈ M → i ∈ Base I mPwSer R
105 104 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → i ∈ Base I mPwSer R
106 81 92 23 101 105 psrelbas ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → i : h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟶ Base R
107 106 feqmptd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → i = v ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ i ⁡ v
108 103 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → i ∈ M
109 7 11 24 108 mplelsfi ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → finSupp 0 R⁡ i
110 107 109 eqbrtrrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → finSupp 0 R⁡ v ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ i ⁡ v
111 ssrab2 ⊢ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D ⊆ h ∈ ℕ 0 I | finSupp 0 ⁡ h
112 111 a1i ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D ⊆ h ∈ ℕ 0 I | finSupp 0 ⁡ h
113 fvexd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → 0 R ∈ V
114 110 112 113 fmptssfisupp ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → finSupp 0 R⁡ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D ⟼ i ⁡ v
115 eqid ⊢ ⋅ R = ⋅ R
116 8 ad4antr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ n ∈ Base R → R ∈ Ring
117 simpr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ n ∈ Base R → n ∈ Base R
118 92 115 24 116 117 ringlzd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ n ∈ Base R → 0 R ⋅ R n = 0 R
119 106 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → i : h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟶ Base R
120 elrabi ⊢ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → v ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h
121 120 adantl ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → v ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h
122 119 121 ffvelcdmd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → i ⁡ v ∈ Base R
123 simpr ⊢ φ ∧ i ∈ M ∧ j ∈ M → j ∈ M
124 102 123 sselid ⊢ φ ∧ i ∈ M ∧ j ∈ M → j ∈ Base I mPwSer R
125 124 ad2antrr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → j ∈ Base I mPwSer R
126 81 92 23 101 125 psrelbas ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → j : h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟶ Base R
127 67 ad5ant14 ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → x ∘ D ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h
128 48 121 sselid ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → v ∈ ℕ 0 I
129 128 elmaprd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → v : I ⟶ ℕ 0
130 breq1 ⊢ w = v → w ≤ f x ∘ D ↔ v ≤ f x ∘ D
131 simpr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D
132 130 131 elrabrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → v ≤ f x ∘ D
133 23 psrbagcon ⊢ x ∘ D ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v : I ⟶ ℕ 0 ∧ v ≤ f x ∘ D → x ∘ D − f v ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x ∘ D − f v ≤ f x ∘ D
134 127 129 132 133 syl3anc ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → x ∘ D − f v ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ x ∘ D − f v ≤ f x ∘ D
135 134 simpld ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → x ∘ D − f v ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h
136 126 135 ffvelcdmd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → j ⁡ x ∘ D − f v ∈ Base R
137 114 118 122 136 113 fsuppssov1 ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → finSupp 0 R⁡ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D ⟼ i ⁡ v ⋅ R j ⁡ x ∘ D − f v
138 ssidd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → Base R ⊆ Base R
139 8 ad4antr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → R ∈ Ring
140 92 115 139 122 136 ringcld ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → i ⁡ v ⋅ R j ⁡ x ∘ D − f v ∈ Base R
141 breq1 ⊢ w = y ∘ D → w ≤ f x ∘ D ↔ y ∘ D ≤ f x ∘ D
142 5 ad4antr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → I ∈ V
143 9 ad2antrr ⊢ φ ∧ i ∈ M ∧ j ∈ M → D ∈ P
144 143 ad2antrr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → D ∈ P
145 ssrab2 ⊢ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ⊆ h ∈ ℕ 0 I | finSupp 0 ⁡ h
146 simpr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x
147 145 146 sselid ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → y ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h
148 147 adantlr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → y ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h
149 1 2 142 144 148 mplvrpmlem ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → y ∘ D ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h
150 48 a1i ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → h ∈ ℕ 0 I | finSupp 0 ⁡ h ⊆ ℕ 0 I
151 145 150 sstrid ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ⊆ ℕ 0 I
152 151 sselda ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → y ∈ ℕ 0 I
153 152 elmaprd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → y : I ⟶ ℕ 0
154 153 ffnd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → y Fn I
155 51 ad4ant14 ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → x : I ⟶ ℕ 0
156 155 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → x : I ⟶ ℕ 0
157 156 ffnd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → x Fn I
158 59 ad4antr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → D : I ⟶ I
159 breq1 ⊢ z = y → z ≤ f x ↔ y ≤ f x
160 simpr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x
161 159 160 elrabrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → y ≤ f x
162 154 157 158 142 142 161 ofrco ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → y ∘ D ≤ f x ∘ D
163 141 149 162 elrabd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → y ∘ D ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D
164 breq1 ⊢ z = v ∘ D -1 → z ≤ f x ↔ v ∘ D -1 ≤ f x
165 breq1 ⊢ h = v ∘ D -1 → finSupp 0 ⁡ h ↔ finSupp 0 ⁡ v ∘ D -1
166 nn0ex ⊢ ℕ 0 ∈ V
167 166 a1i ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → ℕ 0 ∈ V
168 5 ad4antr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → I ∈ V
169 42 ad4antr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → D -1 : I ⟶ I
170 129 169 fcod ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → v ∘ D -1 : I ⟶ ℕ 0
171 167 168 170 elmapdd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → v ∘ D -1 ∈ ℕ 0 I
172 breq1 ⊢ h = v → finSupp 0 ⁡ h ↔ finSupp 0 ⁡ v
173 172 121 elrabrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → finSupp 0 ⁡ v
174 39 ad4antr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → D : I ⟶ 1-1 onto I
175 f1of1 ⊢ D -1 : I ⟶ 1-1 onto I → D -1 : I ⟶ 1-1 I
176 174 40 175 3syl ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → D -1 : I ⟶ 1-1 I
177 43 a1i ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → 0 ∈ ℕ 0
178 173 176 177 121 fsuppco ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → finSupp 0 ⁡ v ∘ D -1
179 165 171 178 elrabd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → v ∘ D -1 ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h
180 129 ffnd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → v Fn I
181 155 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → x : I ⟶ ℕ 0
182 181 ffnd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → x Fn I
183 59 ad4antr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → D : I ⟶ I
184 fnfco ⊢ x Fn I ∧ D : I ⟶ I → x ∘ D Fn I
185 182 183 184 syl2anc ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → x ∘ D Fn I
186 180 185 169 168 168 132 ofrco ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → v ∘ D -1 ≤ f x ∘ D ∘ D -1
187 174 31 syl ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → D ∘ D -1 = I ↾ I
188 187 coeq2d ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → x ∘ D ∘ D -1 = x ∘ I ↾ I
189 181 52 syl ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → x ∘ I ↾ I = x
190 188 189 eqtrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → x ∘ D ∘ D -1 = x
191 37 190 eqtrid ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → x ∘ D ∘ D -1 = x
192 186 191 breqtrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → v ∘ D -1 ≤ f x
193 164 179 192 elrabd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → v ∘ D -1 ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x
194 129 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → v : I ⟶ ℕ 0
195 153 adantlr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → y : I ⟶ ℕ 0
196 39 ad5antr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → D : I ⟶ 1-1 onto I
197 194 195 196 cocnvf1o ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → v = y ∘ D ↔ y = v ∘ D -1
198 193 197 reu6dv ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D → ∃! y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x v = y ∘ D
199 91 92 24 96 98 100 137 138 140 163 198 gsummptfsf1o ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D i ⁡ v ⋅ R j ⁡ x ∘ D − f v = ∑ R y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x i ⁡ y ∘ D ⋅ R j ⁡ x ∘ D − f y ∘ D
200 coeq1 ⊢ t = y → t ∘ D = y ∘ D
201 200 fveq2d ⊢ t = y → i ⁡ t ∘ D = i ⁡ y ∘ D
202 oveq2 ⊢ f = i → D A f = D A i
203 103 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → i ∈ M
204 ovexd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → D A i ∈ V
205 6 202 203 204 fvmptd3 ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → F ⁡ i = D A i
206 4 a1i ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → A = d ∈ P , f ∈ M ⟼ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ f ⁡ x ∘ d
207 simpr ⊢ d = D ∧ f = i → f = i
208 coeq2 ⊢ d = D → x ∘ d = x ∘ D
209 208 adantr ⊢ d = D ∧ f = i → x ∘ d = x ∘ D
210 207 209 fveq12d ⊢ d = D ∧ f = i → f ⁡ x ∘ d = i ⁡ x ∘ D
211 210 mpteq2dv ⊢ d = D ∧ f = i → x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ f ⁡ x ∘ d = x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ i ⁡ x ∘ D
212 coeq1 ⊢ x = t → x ∘ D = t ∘ D
213 212 fveq2d ⊢ x = t → i ⁡ x ∘ D = i ⁡ t ∘ D
214 213 cbvmptv ⊢ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ i ⁡ x ∘ D = t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ i ⁡ t ∘ D
215 211 214 eqtrdi ⊢ d = D ∧ f = i → x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ f ⁡ x ∘ d = t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ i ⁡ t ∘ D
216 215 adantl ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ d = D ∧ f = i → x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ f ⁡ x ∘ d = t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ i ⁡ t ∘ D
217 143 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → D ∈ P
218 77 a1i ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → h ∈ ℕ 0 I | finSupp 0 ⁡ h ∈ V
219 218 mptexd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ i ⁡ t ∘ D ∈ V
220 206 216 217 203 219 ovmpod ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → D A i = t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ i ⁡ t ∘ D
221 205 220 eqtrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → F ⁡ i = t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ i ⁡ t ∘ D
222 fvexd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → i ⁡ y ∘ D ∈ V
223 201 221 147 222 fvmptd4 ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → F ⁡ i ⁡ y = i ⁡ y ∘ D
224 223 adantlr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → F ⁡ i ⁡ y = i ⁡ y ∘ D
225 oveq2 ⊢ f = j → D A f = D A j
226 simpr ⊢ d = D ∧ f = j → f = j
227 208 adantr ⊢ d = D ∧ f = j → x ∘ d = x ∘ D
228 226 227 fveq12d ⊢ d = D ∧ f = j → f ⁡ x ∘ d = j ⁡ x ∘ D
229 228 mpteq2dv ⊢ d = D ∧ f = j → x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ f ⁡ x ∘ d = x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ j ⁡ x ∘ D
230 212 fveq2d ⊢ x = t → j ⁡ x ∘ D = j ⁡ t ∘ D
231 230 cbvmptv ⊢ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ j ⁡ x ∘ D = t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ j ⁡ t ∘ D
232 229 231 eqtrdi ⊢ d = D ∧ f = j → x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ f ⁡ x ∘ d = t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ j ⁡ t ∘ D
233 232 adantl ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ d = D ∧ f = j → x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ f ⁡ x ∘ d = t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ j ⁡ t ∘ D
234 simplr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → j ∈ M
235 218 mptexd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ j ⁡ t ∘ D ∈ V
236 206 233 217 234 235 ovmpod ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → D A j = t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ j ⁡ t ∘ D
237 225 236 sylan9eqr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ f = j → D A f = t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ j ⁡ t ∘ D
238 237 adantllr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ f = j → D A f = t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ j ⁡ t ∘ D
239 123 ad2antrr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → j ∈ M
240 77 a1i ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → h ∈ ℕ 0 I | finSupp 0 ⁡ h ∈ V
241 240 mptexd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ j ⁡ t ∘ D ∈ V
242 6 238 239 241 fvmptd2 ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → F ⁡ j = t ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ j ⁡ t ∘ D
243 coeq1 ⊢ t = x − f y → t ∘ D = x − f y ∘ D
244 243 fveq2d ⊢ t = x − f y → j ⁡ t ∘ D = j ⁡ x − f y ∘ D
245 244 adantl ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ t = x − f y → j ⁡ t ∘ D = j ⁡ x − f y ∘ D
246 155 ad2antrr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ t = x − f y → x : I ⟶ ℕ 0
247 246 ffnd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ t = x − f y → x Fn I
248 152 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ t = x − f y → y ∈ ℕ 0 I
249 248 elmaprd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ t = x − f y → y : I ⟶ ℕ 0
250 249 ffnd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ t = x − f y → y Fn I
251 59 ad5antr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ t = x − f y → D : I ⟶ I
252 5 ad5antr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ t = x − f y → I ∈ V
253 inidm ⊢ I ∩ I = I
254 247 250 251 252 252 252 253 ofco ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ t = x − f y → x − f y ∘ D = x ∘ D − f y ∘ D
255 254 fveq2d ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ t = x − f y → j ⁡ x − f y ∘ D = j ⁡ x ∘ D − f y ∘ D
256 245 255 eqtrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ t = x − f y → j ⁡ t ∘ D = j ⁡ x ∘ D − f y ∘ D
257 breq1 ⊢ h = x − f y → finSupp 0 ⁡ h ↔ finSupp 0 ⁡ x − f y
258 166 a1i ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → ℕ 0 ∈ V
259 157 154 142 142 253 offn ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → x − f y Fn I
260 157 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I → x Fn I
261 154 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I → y Fn I
262 142 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I → I ∈ V
263 simpr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I → a ∈ I
264 fnfvof ⊢ x Fn I ∧ y Fn I ∧ I ∈ V ∧ a ∈ I → x − f y ⁡ a = x ⁡ a − y ⁡ a
265 260 261 262 263 264 syl22anc ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I → x − f y ⁡ a = x ⁡ a − y ⁡ a
266 153 ffvelcdmda ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I → y ⁡ a ∈ ℕ 0
267 156 ffvelcdmda ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I → x ⁡ a ∈ ℕ 0
268 simplr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I → y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x
269 159 268 elrabrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I → y ≤ f x
270 261 260 262 269 263 fnfvor ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I → y ⁡ a ≤ x ⁡ a
271 nn0sub ⊢ y ⁡ a ∈ ℕ 0 ∧ x ⁡ a ∈ ℕ 0 → y ⁡ a ≤ x ⁡ a ↔ x ⁡ a − y ⁡ a ∈ ℕ 0
272 271 biimpa ⊢ y ⁡ a ∈ ℕ 0 ∧ x ⁡ a ∈ ℕ 0 ∧ y ⁡ a ≤ x ⁡ a → x ⁡ a − y ⁡ a ∈ ℕ 0
273 266 267 270 272 syl21anc ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I → x ⁡ a − y ⁡ a ∈ ℕ 0
274 265 273 eqeltrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I → x − f y ⁡ a ∈ ℕ 0
275 274 ralrimiva ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → ∀ a ∈ I x − f y ⁡ a ∈ ℕ 0
276 ffnfv ⊢ x − f y : I ⟶ ℕ 0 ↔ x − f y Fn I ∧ ∀ a ∈ I x − f y ⁡ a ∈ ℕ 0
277 259 275 276 sylanbrc ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → x − f y : I ⟶ ℕ 0
278 258 142 277 elmapdd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → x − f y ∈ ℕ 0 I
279 ovexd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → x − f y ∈ V
280 43 a1i ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → 0 ∈ ℕ 0
281 157 154 142 142 offun ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → Fun ⁡ x − f y
282 23 psrbagfsupp ⊢ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → finSupp 0 ⁡ x
283 282 ad2antlr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → finSupp 0 ⁡ x
284 dffn2 ⊢ x − f y Fn I ↔ x − f y : I ⟶ V
285 259 284 sylib ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → x − f y : I ⟶ V
286 157 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → x Fn I
287 154 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → y Fn I
288 142 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → I ∈ V
289 simpr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → a ∈ I ∖ supp 0 ⁡ x
290 289 eldifad ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → a ∈ I
291 286 287 288 290 264 syl22anc ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → x − f y ⁡ a = x ⁡ a − y ⁡ a
292 43 a1i ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → 0 ∈ ℕ 0
293 286 288 292 289 fvdifsupp ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → x ⁡ a = 0
294 153 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → y : I ⟶ ℕ 0
295 294 290 ffvelcdmd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → y ⁡ a ∈ ℕ 0
296 simplr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x
297 159 296 elrabrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → y ≤ f x
298 287 286 288 297 290 fnfvor ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → y ⁡ a ≤ x ⁡ a
299 298 293 breqtrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → y ⁡ a ≤ 0
300 nn0le0eq0 ⊢ y ⁡ a ∈ ℕ 0 → y ⁡ a ≤ 0 ↔ y ⁡ a = 0
301 300 biimpa ⊢ y ⁡ a ∈ ℕ 0 ∧ y ⁡ a ≤ 0 → y ⁡ a = 0
302 295 299 301 syl2anc ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → y ⁡ a = 0
303 293 302 oveq12d ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → x ⁡ a − y ⁡ a = 0 − 0
304 0m0e0 ⊢ 0 − 0 = 0
305 304 a1i ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → 0 − 0 = 0
306 291 303 305 3eqtrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ∧ a ∈ I ∖ supp 0 ⁡ x → x − f y ⁡ a = 0
307 285 306 suppss ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → x − f y supp 0 ⊆ x supp 0
308 279 280 281 283 307 fsuppsssuppgd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → finSupp 0 ⁡ x − f y
309 257 278 308 elrabd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → x − f y ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h
310 fvexd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → j ⁡ x ∘ D − f y ∘ D ∈ V
311 242 256 309 310 fvmptd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → F ⁡ j ⁡ x − f y = j ⁡ x ∘ D − f y ∘ D
312 224 311 oveq12d ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x → F ⁡ i ⁡ y ⋅ R F ⁡ j ⁡ x − f y = i ⁡ y ∘ D ⋅ R j ⁡ x ∘ D − f y ∘ D
313 312 mpteq2dva ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ⟼ F ⁡ i ⁡ y ⋅ R F ⁡ j ⁡ x − f y = y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x ⟼ i ⁡ y ∘ D ⋅ R j ⁡ x ∘ D − f y ∘ D
314 313 oveq2d ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → ∑ R y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x F ⁡ i ⁡ y ⋅ R F ⁡ j ⁡ x − f y = ∑ R y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x i ⁡ y ∘ D ⋅ R j ⁡ x ∘ D − f y ∘ D
315 199 314 eqtr4d ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D i ⁡ v ⋅ R j ⁡ x ∘ D − f v = ∑ R y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x F ⁡ i ⁡ y ⋅ R F ⁡ j ⁡ x − f y
316 315 mpteq2dva ⊢ φ ∧ i ∈ M ∧ j ∈ M → x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D i ⁡ v ⋅ R j ⁡ x ∘ D − f v = x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ ∑ R y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x F ⁡ i ⁡ y ⋅ R F ⁡ j ⁡ x − f y
317 oveq2 ⊢ f = i ⋅ W j → D A f = D A i ⋅ W j
318 4 a1i ⊢ φ ∧ i ∈ M ∧ j ∈ M → A = d ∈ P , f ∈ M ⟼ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ f ⁡ x ∘ d
319 simprr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j → f = i ⋅ W j
320 7 11 115 13 23 103 123 mplmul ⊢ φ ∧ i ∈ M ∧ j ∈ M → i ⋅ W j = u ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f u i ⁡ v ⋅ R j ⁡ u − f v
321 320 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j → i ⋅ W j = u ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f u i ⁡ v ⋅ R j ⁡ u − f v
322 319 321 eqtrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j → f = u ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f u i ⁡ v ⋅ R j ⁡ u − f v
323 322 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → f = u ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f u i ⁡ v ⋅ R j ⁡ u − f v
324 simpr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ u = x ∘ d → u = x ∘ d
325 simplrl ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → d = D
326 325 adantr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ u = x ∘ d → d = D
327 326 coeq2d ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ u = x ∘ d → x ∘ d = x ∘ D
328 324 327 eqtrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ u = x ∘ d → u = x ∘ D
329 328 breq2d ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ u = x ∘ d → w ≤ f u ↔ w ≤ f x ∘ D
330 329 rabbidv ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ u = x ∘ d → w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f u = w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D
331 328 fvoveq1d ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ u = x ∘ d → j ⁡ u − f v = j ⁡ x ∘ D − f v
332 331 oveq2d ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ u = x ∘ d → i ⁡ v ⋅ R j ⁡ u − f v = i ⁡ v ⋅ R j ⁡ x ∘ D − f v
333 330 332 mpteq12dv ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ u = x ∘ d → v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f u ⟼ i ⁡ v ⋅ R j ⁡ u − f v = v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D ⟼ i ⁡ v ⋅ R j ⁡ x ∘ D − f v
334 333 oveq2d ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ u = x ∘ d → ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f u i ⁡ v ⋅ R j ⁡ u − f v = ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D i ⁡ v ⋅ R j ⁡ x ∘ D − f v
335 5 ad4antr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → I ∈ V
336 9 ad4antr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → D ∈ P
337 325 336 eqeltrd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → d ∈ P
338 simpr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h
339 1 2 335 337 338 mplvrpmlem ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → x ∘ d ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h
340 ovexd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D i ⁡ v ⋅ R j ⁡ x ∘ D − f v ∈ V
341 323 334 339 340 fvmptd ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j ∧ x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → f ⁡ x ∘ d = ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D i ⁡ v ⋅ R j ⁡ x ∘ D − f v
342 341 mpteq2dva ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ d = D ∧ f = i ⋅ W j → x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ f ⁡ x ∘ d = x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D i ⁡ v ⋅ R j ⁡ x ∘ D − f v
343 14 ad2antrr ⊢ φ ∧ i ∈ M ∧ j ∈ M → W ∈ Ring
344 11 13 343 103 123 ringcld ⊢ φ ∧ i ∈ M ∧ j ∈ M → i ⋅ W j ∈ M
345 77 a1i ⊢ φ ∧ i ∈ M ∧ j ∈ M → h ∈ ℕ 0 I | finSupp 0 ⁡ h ∈ V
346 345 mptexd ⊢ φ ∧ i ∈ M ∧ j ∈ M → x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D i ⁡ v ⋅ R j ⁡ x ∘ D − f v ∈ V
347 318 342 143 344 346 ovmpod ⊢ φ ∧ i ∈ M ∧ j ∈ M → D A i ⋅ W j = x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D i ⁡ v ⋅ R j ⁡ x ∘ D − f v
348 317 347 sylan9eqr ⊢ φ ∧ i ∈ M ∧ j ∈ M ∧ f = i ⋅ W j → D A f = x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D i ⁡ v ⋅ R j ⁡ x ∘ D − f v
349 6 348 344 346 fvmptd2 ⊢ φ ∧ i ∈ M ∧ j ∈ M → F ⁡ i ⋅ W j = x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ ∑ R v ∈ w ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | w ≤ f x ∘ D i ⁡ v ⋅ R j ⁡ x ∘ D − f v
350 1 2 3 4 5 mplvrpmga ⊢ φ → A ∈ S GrpAct M
351 2 gaf ⊢ A ∈ S GrpAct M → A : P × M ⟶ M
352 350 351 syl ⊢ φ → A : P × M ⟶ M
353 352 fovcld ⊢ φ ∧ D ∈ P ∧ f ∈ M → D A f ∈ M
354 353 3expa ⊢ φ ∧ D ∈ P ∧ f ∈ M → D A f ∈ M
355 354 an32s ⊢ φ ∧ f ∈ M ∧ D ∈ P → D A f ∈ M
356 9 355 mpidan ⊢ φ ∧ f ∈ M → D A f ∈ M
357 356 6 fmptd ⊢ φ → F : M ⟶ M
358 357 ad2antrr ⊢ φ ∧ i ∈ M ∧ j ∈ M → F : M ⟶ M
359 358 103 ffvelcdmd ⊢ φ ∧ i ∈ M ∧ j ∈ M → F ⁡ i ∈ M
360 358 123 ffvelcdmd ⊢ φ ∧ i ∈ M ∧ j ∈ M → F ⁡ j ∈ M
361 7 11 115 13 23 359 360 mplmul ⊢ φ ∧ i ∈ M ∧ j ∈ M → F ⁡ i ⋅ W F ⁡ j = x ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ ∑ R y ∈ z ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h | z ≤ f x F ⁡ i ⁡ y ⋅ R F ⁡ j ⁡ x − f y
362 316 349 361 3eqtr4d ⊢ φ ∧ i ∈ M ∧ j ∈ M → F ⁡ i ⋅ W j = F ⁡ i ⋅ W F ⁡ j
363 362 anasss ⊢ φ ∧ i ∈ M ∧ j ∈ M → F ⁡ i ⋅ W j = F ⁡ i ⋅ W F ⁡ j
364 eqid ⊢ + W = + W
365 1 2 3 4 5 6 7 8 9 mplvrpmmhm ⊢ φ → F ∈ W MndHom W
366 365 ad2antrr ⊢ φ ∧ i ∈ M ∧ j ∈ M → F ∈ W MndHom W
367 11 364 364 mhmlin ⊢ F ∈ W MndHom W ∧ i ∈ M ∧ j ∈ M → F ⁡ i + W j = F ⁡ i + W F ⁡ j
368 366 103 123 367 syl3anc ⊢ φ ∧ i ∈ M ∧ j ∈ M → F ⁡ i + W j = F ⁡ i + W F ⁡ j
369 368 anasss ⊢ φ ∧ i ∈ M ∧ j ∈ M → F ⁡ i + W j = F ⁡ i + W F ⁡ j
370 11 12 12 13 13 14 14 90 363 11 364 364 357 369 isrhmd ⊢ φ → F ∈ W RingHom W