Metamath Proof Explorer


Theorem amgmlemALT

Description: Alternate proof of amgmlem using amgmwlem . (Contributed by Kunhao Zheng, 20-Jun-2021) (Proof modification is discouraged.) (New usage is discouraged.)

Ref Expression
Hypotheses amgmlemALT.0 ⊢ M = mulGrp ℂ fld
amgmlemALT.1 ⊢ φ → A ∈ Fin
amgmlemALT.2 ⊢ φ → A ≠ ∅
amgmlemALT.3 ⊢ φ → F : A ⟶ ℝ +
Assertion amgmlemALT ⊢ φ → ∑ M F 1 A ≤ ∑ ℂ fld F A

Proof

Step Hyp Ref Expression
1 amgmlemALT.0 ⊢ M = mulGrp ℂ fld
2 amgmlemALT.1 ⊢ φ → A ∈ Fin
3 amgmlemALT.2 ⊢ φ → A ≠ ∅
4 amgmlemALT.3 ⊢ φ → F : A ⟶ ℝ +
5 hashnncl ⊢ A ∈ Fin → A ∈ ℕ ↔ A ≠ ∅
6 2 5 syl ⊢ φ → A ∈ ℕ ↔ A ≠ ∅
7 3 6 mpbird ⊢ φ → A ∈ ℕ
8 7 nnrpd ⊢ φ → A ∈ ℝ +
9 8 rpreccld ⊢ φ → 1 A ∈ ℝ +
10 fconst6g ⊢ 1 A ∈ ℝ + → A × 1 A : A ⟶ ℝ +
11 9 10 syl ⊢ φ → A × 1 A : A ⟶ ℝ +
12 fconstmpt ⊢ A × 1 A = k ∈ A ⟼ 1 A
13 12 a1i ⊢ φ → A × 1 A = k ∈ A ⟼ 1 A
14 13 oveq2d ⊢ φ → ∑ ℂ fld A × 1 A = ∑ ℂ fld k ∈ A 1 A
15 7 nnrecred ⊢ φ → 1 A ∈ ℝ
16 15 recnd ⊢ φ → 1 A ∈ ℂ
17 simpl ⊢ A ∈ Fin ∧ 1 A ∈ ℂ → A ∈ Fin
18 simplr ⊢ A ∈ Fin ∧ 1 A ∈ ℂ ∧ k ∈ A → 1 A ∈ ℂ
19 17 18 gsumfsum ⊢ A ∈ Fin ∧ 1 A ∈ ℂ → ∑ ℂ fld k ∈ A 1 A = ∑ k ∈ A 1 A
20 2 16 19 syl2anc ⊢ φ → ∑ ℂ fld k ∈ A 1 A = ∑ k ∈ A 1 A
21 fsumconst ⊢ A ∈ Fin ∧ 1 A ∈ ℂ → ∑ k ∈ A 1 A = A ⁢ 1 A
22 2 16 21 syl2anc ⊢ φ → ∑ k ∈ A 1 A = A ⁢ 1 A
23 7 nncnd ⊢ φ → A ∈ ℂ
24 7 nnne0d ⊢ φ → A ≠ 0
25 23 24 recidd ⊢ φ → A ⁢ 1 A = 1
26 22 25 eqtrd ⊢ φ → ∑ k ∈ A 1 A = 1
27 14 20 26 3eqtrd ⊢ φ → ∑ ℂ fld A × 1 A = 1
28 1 2 3 4 11 27 amgmwlem ⊢ φ → ∑ M F ↑ c f A × 1 A ≤ ∑ ℂ fld F × f A × 1 A
29 rpssre ⊢ ℝ + ⊆ ℝ
30 ax-resscn ⊢ ℝ ⊆ ℂ
31 29 30 sstri ⊢ ℝ + ⊆ ℂ
32 eqid ⊢ M ↾ 𝑠 ℝ + = M ↾ 𝑠 ℝ +
33 cnfldbas ⊢ ℂ = Base ℂ fld
34 1 33 mgpbas ⊢ ℂ = Base M
35 32 34 ressbas2 ⊢ ℝ + ⊆ ℂ → ℝ + = Base M ↾ 𝑠 ℝ +
36 31 35 ax-mp ⊢ ℝ + = Base M ↾ 𝑠 ℝ +
37 cnfld1 ⊢ 1 = 1 ℂ fld
38 1 37 ringidval ⊢ 1 = 0 M
39 1 oveq1i ⊢ M ↾ 𝑠 ℂ ∖ 0 = mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0
40 39 rpmsubg ⊢ ℝ + ∈ SubGrp ⁡ M ↾ 𝑠 ℂ ∖ 0
41 subgsubm ⊢ ℝ + ∈ SubGrp ⁡ M ↾ 𝑠 ℂ ∖ 0 → ℝ + ∈ SubMnd ⁡ M ↾ 𝑠 ℂ ∖ 0
42 40 41 ax-mp ⊢ ℝ + ∈ SubMnd ⁡ M ↾ 𝑠 ℂ ∖ 0
43 cnring ⊢ ℂ fld ∈ Ring
44 cnfld0 ⊢ 0 = 0 ℂ fld
45 cndrng ⊢ ℂ fld ∈ DivRing
46 33 44 45 drngui ⊢ ℂ ∖ 0 = Unit ⁡ ℂ fld
47 46 1 unitsubm ⊢ ℂ fld ∈ Ring → ℂ ∖ 0 ∈ SubMnd ⁡ M
48 43 47 ax-mp ⊢ ℂ ∖ 0 ∈ SubMnd ⁡ M
49 eqid ⊢ M ↾ 𝑠 ℂ ∖ 0 = M ↾ 𝑠 ℂ ∖ 0
50 49 subsubm ⊢ ℂ ∖ 0 ∈ SubMnd ⁡ M → ℝ + ∈ SubMnd ⁡ M ↾ 𝑠 ℂ ∖ 0 ↔ ℝ + ∈ SubMnd ⁡ M ∧ ℝ + ⊆ ℂ ∖ 0
51 48 50 ax-mp ⊢ ℝ + ∈ SubMnd ⁡ M ↾ 𝑠 ℂ ∖ 0 ↔ ℝ + ∈ SubMnd ⁡ M ∧ ℝ + ⊆ ℂ ∖ 0
52 42 51 mpbi ⊢ ℝ + ∈ SubMnd ⁡ M ∧ ℝ + ⊆ ℂ ∖ 0
53 52 simpli ⊢ ℝ + ∈ SubMnd ⁡ M
54 eqid ⊢ 0 M = 0 M
55 32 54 subm0 ⊢ ℝ + ∈ SubMnd ⁡ M → 0 M = 0 M ↾ 𝑠 ℝ +
56 53 55 ax-mp ⊢ 0 M = 0 M ↾ 𝑠 ℝ +
57 38 56 eqtri ⊢ 1 = 0 M ↾ 𝑠 ℝ +
58 cncrng ⊢ ℂ fld ∈ CRing
59 1 crngmgp ⊢ ℂ fld ∈ CRing → M ∈ CMnd
60 58 59 ax-mp ⊢ M ∈ CMnd
61 32 submmnd ⊢ ℝ + ∈ SubMnd ⁡ M → M ↾ 𝑠 ℝ + ∈ Mnd
62 53 61 mp1i ⊢ φ → M ↾ 𝑠 ℝ + ∈ Mnd
63 32 subcmn ⊢ M ∈ CMnd ∧ M ↾ 𝑠 ℝ + ∈ Mnd → M ↾ 𝑠 ℝ + ∈ CMnd
64 60 62 63 sylancr ⊢ φ → M ↾ 𝑠 ℝ + ∈ CMnd
65 reex ⊢ ℝ ∈ V
66 65 29 ssexi ⊢ ℝ + ∈ V
67 cnfldmul ⊢ × = ⋅ ℂ fld
68 1 67 mgpplusg ⊢ × = + M
69 32 68 ressplusg ⊢ ℝ + ∈ V → × = + M ↾ 𝑠 ℝ +
70 66 69 ax-mp ⊢ × = + M ↾ 𝑠 ℝ +
71 eqid ⊢ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 = mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0
72 71 rpmsubg ⊢ ℝ + ∈ SubGrp ⁡ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0
73 1 oveq1i ⊢ M ↾ 𝑠 ℝ + = mulGrp ℂ fld ↾ 𝑠 ℝ +
74 cnex ⊢ ℂ ∈ V
75 difss ⊢ ℂ ∖ 0 ⊆ ℂ
76 74 75 ssexi ⊢ ℂ ∖ 0 ∈ V
77 rpcndif0 ⊢ w ∈ ℝ + → w ∈ ℂ ∖ 0
78 77 ssriv ⊢ ℝ + ⊆ ℂ ∖ 0
79 ressabs ⊢ ℂ ∖ 0 ∈ V ∧ ℝ + ⊆ ℂ ∖ 0 → mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 ↾ 𝑠 ℝ + = mulGrp ℂ fld ↾ 𝑠 ℝ +
80 76 78 79 mp2an ⊢ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 ↾ 𝑠 ℝ + = mulGrp ℂ fld ↾ 𝑠 ℝ +
81 73 80 eqtr4i ⊢ M ↾ 𝑠 ℝ + = mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 ↾ 𝑠 ℝ +
82 81 subggrp ⊢ ℝ + ∈ SubGrp ⁡ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 → M ↾ 𝑠 ℝ + ∈ Grp
83 72 82 mp1i ⊢ φ → M ↾ 𝑠 ℝ + ∈ Grp
84 simpr ⊢ φ ∧ k ∈ ℝ + → k ∈ ℝ +
85 15 adantr ⊢ φ ∧ k ∈ ℝ + → 1 A ∈ ℝ
86 84 85 rpcxpcld ⊢ φ ∧ k ∈ ℝ + → k 1 A ∈ ℝ +
87 eqid ⊢ k ∈ ℝ + ⟼ k 1 A = k ∈ ℝ + ⟼ k 1 A
88 86 87 fmptd ⊢ φ → k ∈ ℝ + ⟼ k 1 A : ℝ + ⟶ ℝ +
89 simprl ⊢ φ ∧ x ∈ ℝ + ∧ y ∈ ℝ + → x ∈ ℝ +
90 89 rprege0d ⊢ φ ∧ x ∈ ℝ + ∧ y ∈ ℝ + → x ∈ ℝ ∧ 0 ≤ x
91 simprr ⊢ φ ∧ x ∈ ℝ + ∧ y ∈ ℝ + → y ∈ ℝ +
92 91 rprege0d ⊢ φ ∧ x ∈ ℝ + ∧ y ∈ ℝ + → y ∈ ℝ ∧ 0 ≤ y
93 16 adantr ⊢ φ ∧ x ∈ ℝ + ∧ y ∈ ℝ + → 1 A ∈ ℂ
94 mulcxp ⊢ x ∈ ℝ ∧ 0 ≤ x ∧ y ∈ ℝ ∧ 0 ≤ y ∧ 1 A ∈ ℂ → x ⁢ y 1 A = x 1 A ⁢ y 1 A
95 90 92 93 94 syl3anc ⊢ φ ∧ x ∈ ℝ + ∧ y ∈ ℝ + → x ⁢ y 1 A = x 1 A ⁢ y 1 A
96 rpmulcl ⊢ x ∈ ℝ + ∧ y ∈ ℝ + → x ⁢ y ∈ ℝ +
97 96 adantl ⊢ φ ∧ x ∈ ℝ + ∧ y ∈ ℝ + → x ⁢ y ∈ ℝ +
98 oveq1 ⊢ k = x ⁢ y → k 1 A = x ⁢ y 1 A
99 ovex ⊢ k 1 A ∈ V
100 98 87 99 fvmpt3i ⊢ x ⁢ y ∈ ℝ + → k ∈ ℝ + ⟼ k 1 A ⁡ x ⁢ y = x ⁢ y 1 A
101 97 100 syl ⊢ φ ∧ x ∈ ℝ + ∧ y ∈ ℝ + → k ∈ ℝ + ⟼ k 1 A ⁡ x ⁢ y = x ⁢ y 1 A
102 oveq1 ⊢ k = x → k 1 A = x 1 A
103 102 87 99 fvmpt3i ⊢ x ∈ ℝ + → k ∈ ℝ + ⟼ k 1 A ⁡ x = x 1 A
104 89 103 syl ⊢ φ ∧ x ∈ ℝ + ∧ y ∈ ℝ + → k ∈ ℝ + ⟼ k 1 A ⁡ x = x 1 A
105 oveq1 ⊢ k = y → k 1 A = y 1 A
106 105 87 99 fvmpt3i ⊢ y ∈ ℝ + → k ∈ ℝ + ⟼ k 1 A ⁡ y = y 1 A
107 91 106 syl ⊢ φ ∧ x ∈ ℝ + ∧ y ∈ ℝ + → k ∈ ℝ + ⟼ k 1 A ⁡ y = y 1 A
108 104 107 oveq12d ⊢ φ ∧ x ∈ ℝ + ∧ y ∈ ℝ + → k ∈ ℝ + ⟼ k 1 A ⁡ x ⁢ k ∈ ℝ + ⟼ k 1 A ⁡ y = x 1 A ⁢ y 1 A
109 95 101 108 3eqtr4d ⊢ φ ∧ x ∈ ℝ + ∧ y ∈ ℝ + → k ∈ ℝ + ⟼ k 1 A ⁡ x ⁢ y = k ∈ ℝ + ⟼ k 1 A ⁡ x ⁢ k ∈ ℝ + ⟼ k 1 A ⁡ y
110 36 36 70 70 83 83 88 109 isghmd ⊢ φ → k ∈ ℝ + ⟼ k 1 A ∈ M ↾ 𝑠 ℝ + GrpHom M ↾ 𝑠 ℝ +
111 ghmmhm ⊢ k ∈ ℝ + ⟼ k 1 A ∈ M ↾ 𝑠 ℝ + GrpHom M ↾ 𝑠 ℝ + → k ∈ ℝ + ⟼ k 1 A ∈ M ↾ 𝑠 ℝ + MndHom M ↾ 𝑠 ℝ +
112 110 111 syl ⊢ φ → k ∈ ℝ + ⟼ k 1 A ∈ M ↾ 𝑠 ℝ + MndHom M ↾ 𝑠 ℝ +
113 1red ⊢ φ → 1 ∈ ℝ
114 4 2 113 fdmfifsupp ⊢ φ → finSupp 1 ⁡ F
115 36 57 64 62 2 112 4 114 gsummhm ⊢ φ → ∑ M ↾ 𝑠 ℝ + k ∈ ℝ + ⟼ k 1 A ∘ F = k ∈ ℝ + ⟼ k 1 A ⁡ ∑ M ↾ 𝑠 ℝ + F
116 53 a1i ⊢ φ → ℝ + ∈ SubMnd ⁡ M
117 4 ffvelcdmda ⊢ φ ∧ k ∈ A → F ⁡ k ∈ ℝ +
118 15 adantr ⊢ φ ∧ k ∈ A → 1 A ∈ ℝ
119 117 118 rpcxpcld ⊢ φ ∧ k ∈ A → F ⁡ k 1 A ∈ ℝ +
120 eqid ⊢ k ∈ A ⟼ F ⁡ k 1 A = k ∈ A ⟼ F ⁡ k 1 A
121 119 120 fmptd ⊢ φ → k ∈ A ⟼ F ⁡ k 1 A : A ⟶ ℝ +
122 2 116 121 32 gsumsubm ⊢ φ → ∑ M k ∈ A F ⁡ k 1 A = ∑ M ↾ 𝑠 ℝ + k ∈ A F ⁡ k 1 A
123 9 adantr ⊢ φ ∧ k ∈ A → 1 A ∈ ℝ +
124 4 feqmptd ⊢ φ → F = k ∈ A ⟼ F ⁡ k
125 2 117 123 124 13 offval2 ⊢ φ → F ↑ c f A × 1 A = k ∈ A ⟼ F ⁡ k 1 A
126 125 oveq2d ⊢ φ → ∑ M F ↑ c f A × 1 A = ∑ M k ∈ A F ⁡ k 1 A
127 102 cbvmptv ⊢ k ∈ ℝ + ⟼ k 1 A = x ∈ ℝ + ⟼ x 1 A
128 127 a1i ⊢ φ → k ∈ ℝ + ⟼ k 1 A = x ∈ ℝ + ⟼ x 1 A
129 oveq1 ⊢ x = F ⁡ k → x 1 A = F ⁡ k 1 A
130 117 124 128 129 fmptco ⊢ φ → k ∈ ℝ + ⟼ k 1 A ∘ F = k ∈ A ⟼ F ⁡ k 1 A
131 130 oveq2d ⊢ φ → ∑ M ↾ 𝑠 ℝ + k ∈ ℝ + ⟼ k 1 A ∘ F = ∑ M ↾ 𝑠 ℝ + k ∈ A F ⁡ k 1 A
132 122 126 131 3eqtr4rd ⊢ φ → ∑ M ↾ 𝑠 ℝ + k ∈ ℝ + ⟼ k 1 A ∘ F = ∑ M F ↑ c f A × 1 A
133 36 57 64 2 4 114 gsumcl ⊢ φ → ∑ M ↾ 𝑠 ℝ + F ∈ ℝ +
134 oveq1 ⊢ k = ∑ M ↾ 𝑠 ℝ + F → k 1 A = ∑ M ↾ 𝑠 ℝ + F 1 A
135 134 87 99 fvmpt3i ⊢ ∑ M ↾ 𝑠 ℝ + F ∈ ℝ + → k ∈ ℝ + ⟼ k 1 A ⁡ ∑ M ↾ 𝑠 ℝ + F = ∑ M ↾ 𝑠 ℝ + F 1 A
136 133 135 syl ⊢ φ → k ∈ ℝ + ⟼ k 1 A ⁡ ∑ M ↾ 𝑠 ℝ + F = ∑ M ↾ 𝑠 ℝ + F 1 A
137 2 116 4 32 gsumsubm ⊢ φ → ∑ M F = ∑ M ↾ 𝑠 ℝ + F
138 137 oveq1d ⊢ φ → ∑ M F 1 A = ∑ M ↾ 𝑠 ℝ + F 1 A
139 136 138 eqtr4d ⊢ φ → k ∈ ℝ + ⟼ k 1 A ⁡ ∑ M ↾ 𝑠 ℝ + F = ∑ M F 1 A
140 115 132 139 3eqtr3d ⊢ φ → ∑ M F ↑ c f A × 1 A = ∑ M F 1 A
141 117 rpcnd ⊢ φ ∧ k ∈ A → F ⁡ k ∈ ℂ
142 2 141 fsumcl ⊢ φ → ∑ k ∈ A F ⁡ k ∈ ℂ
143 142 23 24 divrecd ⊢ φ → ∑ k ∈ A F ⁡ k A = ∑ k ∈ A F ⁡ k ⁢ 1 A
144 2 16 141 fsummulc1 ⊢ φ → ∑ k ∈ A F ⁡ k ⁢ 1 A = ∑ k ∈ A F ⁡ k ⁢ 1 A
145 143 144 eqtr2d ⊢ φ → ∑ k ∈ A F ⁡ k ⁢ 1 A = ∑ k ∈ A F ⁡ k A
146 16 adantr ⊢ φ ∧ k ∈ A → 1 A ∈ ℂ
147 141 146 mulcld ⊢ φ ∧ k ∈ A → F ⁡ k ⁢ 1 A ∈ ℂ
148 2 147 gsumfsum ⊢ φ → ∑ ℂ fld k ∈ A F ⁡ k ⁢ 1 A = ∑ k ∈ A F ⁡ k ⁢ 1 A
149 2 141 gsumfsum ⊢ φ → ∑ ℂ fld k ∈ A F ⁡ k = ∑ k ∈ A F ⁡ k
150 149 oveq1d ⊢ φ → ∑ ℂ fld k ∈ A F ⁡ k A = ∑ k ∈ A F ⁡ k A
151 145 148 150 3eqtr4d ⊢ φ → ∑ ℂ fld k ∈ A F ⁡ k ⁢ 1 A = ∑ ℂ fld k ∈ A F ⁡ k A
152 2 117 146 124 13 offval2 ⊢ φ → F × f A × 1 A = k ∈ A ⟼ F ⁡ k ⁢ 1 A
153 152 oveq2d ⊢ φ → ∑ ℂ fld F × f A × 1 A = ∑ ℂ fld k ∈ A F ⁡ k ⁢ 1 A
154 124 oveq2d ⊢ φ → ∑ ℂ fld F = ∑ ℂ fld k ∈ A F ⁡ k
155 154 oveq1d ⊢ φ → ∑ ℂ fld F A = ∑ ℂ fld k ∈ A F ⁡ k A
156 151 153 155 3eqtr4d ⊢ φ → ∑ ℂ fld F × f A × 1 A = ∑ ℂ fld F A
157 28 140 156 3brtr3d ⊢ φ → ∑ M F 1 A ≤ ∑ ℂ fld F A