MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  amgmlem Structured version   Visualization version   GIF version

Theorem amgmlem 26323
Description: Lemma for amgm 26324. (Contributed by Mario Carneiro, 21-Jun-2015.)
Hypotheses
Ref Expression
amgm.1 𝑀 = (mulGrp‘ℂfld)
amgm.2 (𝜑𝐴 ∈ Fin)
amgm.3 (𝜑𝐴 ≠ ∅)
amgm.4 (𝜑𝐹:𝐴⟶ℝ+)
Assertion
Ref Expression
amgmlem (𝜑 → ((𝑀 Σg 𝐹)↑𝑐(1 / (♯‘𝐴))) ≤ ((ℂfld Σg 𝐹) / (♯‘𝐴)))

Proof of Theorem amgmlem
Dummy variables 𝑎 𝑏 𝑘 𝑠 𝑢 𝑣 𝑤 𝑥 𝑦 𝑡 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 cnfld0 20806 . . . . . . . 8 0 = (0g‘ℂfld)
2 cnring 20804 . . . . . . . . 9 fld ∈ Ring
3 ringabl 19987 . . . . . . . . 9 (ℂfld ∈ Ring → ℂfld ∈ Abel)
42, 3mp1i 13 . . . . . . . 8 (𝜑 → ℂfld ∈ Abel)
5 amgm.2 . . . . . . . 8 (𝜑𝐴 ∈ Fin)
6 resubdrg 20997 . . . . . . . . . 10 (ℝ ∈ (SubRing‘ℂfld) ∧ ℝfld ∈ DivRing)
76simpli 484 . . . . . . . . 9 ℝ ∈ (SubRing‘ℂfld)
8 subrgsubg 20213 . . . . . . . . 9 (ℝ ∈ (SubRing‘ℂfld) → ℝ ∈ (SubGrp‘ℂfld))
97, 8mp1i 13 . . . . . . . 8 (𝜑 → ℝ ∈ (SubGrp‘ℂfld))
10 amgm.4 . . . . . . . . . . . 12 (𝜑𝐹:𝐴⟶ℝ+)
1110ffvelcdmda 7031 . . . . . . . . . . 11 ((𝜑𝑘𝐴) → (𝐹𝑘) ∈ ℝ+)
1211relogcld 25962 . . . . . . . . . 10 ((𝜑𝑘𝐴) → (log‘(𝐹𝑘)) ∈ ℝ)
1312renegcld 11578 . . . . . . . . 9 ((𝜑𝑘𝐴) → -(log‘(𝐹𝑘)) ∈ ℝ)
1413fmpttd 7059 . . . . . . . 8 (𝜑 → (𝑘𝐴 ↦ -(log‘(𝐹𝑘))):𝐴⟶ℝ)
15 c0ex 11145 . . . . . . . . . 10 0 ∈ V
1615a1i 11 . . . . . . . . 9 (𝜑 → 0 ∈ V)
1714, 5, 16fdmfifsupp 9311 . . . . . . . 8 (𝜑 → (𝑘𝐴 ↦ -(log‘(𝐹𝑘))) finSupp 0)
181, 4, 5, 9, 14, 17gsumsubgcl 19688 . . . . . . 7 (𝜑 → (ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) ∈ ℝ)
1918recnd 11179 . . . . . 6 (𝜑 → (ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) ∈ ℂ)
20 amgm.3 . . . . . . . 8 (𝜑𝐴 ≠ ∅)
21 hashnncl 14258 . . . . . . . . 9 (𝐴 ∈ Fin → ((♯‘𝐴) ∈ ℕ ↔ 𝐴 ≠ ∅))
225, 21syl 17 . . . . . . . 8 (𝜑 → ((♯‘𝐴) ∈ ℕ ↔ 𝐴 ≠ ∅))
2320, 22mpbird 256 . . . . . . 7 (𝜑 → (♯‘𝐴) ∈ ℕ)
2423nncnd 12165 . . . . . 6 (𝜑 → (♯‘𝐴) ∈ ℂ)
2523nnne0d 12199 . . . . . 6 (𝜑 → (♯‘𝐴) ≠ 0)
2619, 24, 25divnegd 11940 . . . . 5 (𝜑 → -((ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) / (♯‘𝐴)) = (-(ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) / (♯‘𝐴)))
2712recnd 11179 . . . . . . . . . 10 ((𝜑𝑘𝐴) → (log‘(𝐹𝑘)) ∈ ℂ)
285, 27gsumfsum 20849 . . . . . . . . 9 (𝜑 → (ℂfld Σg (𝑘𝐴 ↦ (log‘(𝐹𝑘)))) = Σ𝑘𝐴 (log‘(𝐹𝑘)))
2927negnegd 11499 . . . . . . . . . 10 ((𝜑𝑘𝐴) → --(log‘(𝐹𝑘)) = (log‘(𝐹𝑘)))
3029sumeq2dv 15580 . . . . . . . . 9 (𝜑 → Σ𝑘𝐴 --(log‘(𝐹𝑘)) = Σ𝑘𝐴 (log‘(𝐹𝑘)))
3113recnd 11179 . . . . . . . . . 10 ((𝜑𝑘𝐴) → -(log‘(𝐹𝑘)) ∈ ℂ)
325, 31fsumneg 15664 . . . . . . . . 9 (𝜑 → Σ𝑘𝐴 --(log‘(𝐹𝑘)) = -Σ𝑘𝐴 -(log‘(𝐹𝑘)))
3328, 30, 323eqtr2rd 2783 . . . . . . . 8 (𝜑 → -Σ𝑘𝐴 -(log‘(𝐹𝑘)) = (ℂfld Σg (𝑘𝐴 ↦ (log‘(𝐹𝑘)))))
345, 31gsumfsum 20849 . . . . . . . . 9 (𝜑 → (ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) = Σ𝑘𝐴 -(log‘(𝐹𝑘)))
3534negeqd 11391 . . . . . . . 8 (𝜑 → -(ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) = -Σ𝑘𝐴 -(log‘(𝐹𝑘)))
3610feqmptd 6907 . . . . . . . . . 10 (𝜑𝐹 = (𝑘𝐴 ↦ (𝐹𝑘)))
37 relogf1o 25906 . . . . . . . . . . . . 13 (log ↾ ℝ+):ℝ+1-1-onto→ℝ
38 f1of 6781 . . . . . . . . . . . . 13 ((log ↾ ℝ+):ℝ+1-1-onto→ℝ → (log ↾ ℝ+):ℝ+⟶ℝ)
3937, 38mp1i 13 . . . . . . . . . . . 12 (𝜑 → (log ↾ ℝ+):ℝ+⟶ℝ)
4039feqmptd 6907 . . . . . . . . . . 11 (𝜑 → (log ↾ ℝ+) = (𝑥 ∈ ℝ+ ↦ ((log ↾ ℝ+)‘𝑥)))
41 fvres 6858 . . . . . . . . . . . 12 (𝑥 ∈ ℝ+ → ((log ↾ ℝ+)‘𝑥) = (log‘𝑥))
4241mpteq2ia 5206 . . . . . . . . . . 11 (𝑥 ∈ ℝ+ ↦ ((log ↾ ℝ+)‘𝑥)) = (𝑥 ∈ ℝ+ ↦ (log‘𝑥))
4340, 42eqtrdi 2792 . . . . . . . . . 10 (𝜑 → (log ↾ ℝ+) = (𝑥 ∈ ℝ+ ↦ (log‘𝑥)))
44 fveq2 6839 . . . . . . . . . 10 (𝑥 = (𝐹𝑘) → (log‘𝑥) = (log‘(𝐹𝑘)))
4511, 36, 43, 44fmptco 7071 . . . . . . . . 9 (𝜑 → ((log ↾ ℝ+) ∘ 𝐹) = (𝑘𝐴 ↦ (log‘(𝐹𝑘))))
4645oveq2d 7369 . . . . . . . 8 (𝜑 → (ℂfld Σg ((log ↾ ℝ+) ∘ 𝐹)) = (ℂfld Σg (𝑘𝐴 ↦ (log‘(𝐹𝑘)))))
4733, 35, 463eqtr4d 2786 . . . . . . 7 (𝜑 → -(ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) = (ℂfld Σg ((log ↾ ℝ+) ∘ 𝐹)))
48 amgm.1 . . . . . . . . . . . . . . 15 𝑀 = (mulGrp‘ℂfld)
4948oveq1i 7363 . . . . . . . . . . . . . 14 (𝑀s (ℂ ∖ {0})) = ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))
5049rpmsubg 20846 . . . . . . . . . . . . 13 + ∈ (SubGrp‘(𝑀s (ℂ ∖ {0})))
51 subgsubm 18941 . . . . . . . . . . . . 13 (ℝ+ ∈ (SubGrp‘(𝑀s (ℂ ∖ {0}))) → ℝ+ ∈ (SubMnd‘(𝑀s (ℂ ∖ {0}))))
5250, 51ax-mp 5 . . . . . . . . . . . 12 + ∈ (SubMnd‘(𝑀s (ℂ ∖ {0})))
53 cnfldbas 20785 . . . . . . . . . . . . . . 15 ℂ = (Base‘ℂfld)
54 cndrng 20811 . . . . . . . . . . . . . . 15 fld ∈ DivRing
5553, 1, 54drngui 20176 . . . . . . . . . . . . . 14 (ℂ ∖ {0}) = (Unit‘ℂfld)
5655, 48unitsubm 20084 . . . . . . . . . . . . 13 (ℂfld ∈ Ring → (ℂ ∖ {0}) ∈ (SubMnd‘𝑀))
57 eqid 2736 . . . . . . . . . . . . . 14 (𝑀s (ℂ ∖ {0})) = (𝑀s (ℂ ∖ {0}))
5857subsubm 18619 . . . . . . . . . . . . 13 ((ℂ ∖ {0}) ∈ (SubMnd‘𝑀) → (ℝ+ ∈ (SubMnd‘(𝑀s (ℂ ∖ {0}))) ↔ (ℝ+ ∈ (SubMnd‘𝑀) ∧ ℝ+ ⊆ (ℂ ∖ {0}))))
592, 56, 58mp2b 10 . . . . . . . . . . . 12 (ℝ+ ∈ (SubMnd‘(𝑀s (ℂ ∖ {0}))) ↔ (ℝ+ ∈ (SubMnd‘𝑀) ∧ ℝ+ ⊆ (ℂ ∖ {0})))
6052, 59mpbi 229 . . . . . . . . . . 11 (ℝ+ ∈ (SubMnd‘𝑀) ∧ ℝ+ ⊆ (ℂ ∖ {0}))
6160simpli 484 . . . . . . . . . 10 + ∈ (SubMnd‘𝑀)
62 eqid 2736 . . . . . . . . . . 11 (𝑀s+) = (𝑀s+)
6362submbas 18617 . . . . . . . . . 10 (ℝ+ ∈ (SubMnd‘𝑀) → ℝ+ = (Base‘(𝑀s+)))
6461, 63ax-mp 5 . . . . . . . . 9 + = (Base‘(𝑀s+))
65 cnfld1 20807 . . . . . . . . . . . 12 1 = (1r‘ℂfld)
6648, 65ringidval 19906 . . . . . . . . . . 11 1 = (0g𝑀)
6762, 66subm0 18618 . . . . . . . . . 10 (ℝ+ ∈ (SubMnd‘𝑀) → 1 = (0g‘(𝑀s+)))
6861, 67ax-mp 5 . . . . . . . . 9 1 = (0g‘(𝑀s+))
69 cncrng 20803 . . . . . . . . . . 11 fld ∈ CRing
7048crngmgp 19958 . . . . . . . . . . 11 (ℂfld ∈ CRing → 𝑀 ∈ CMnd)
7169, 70mp1i 13 . . . . . . . . . 10 (𝜑𝑀 ∈ CMnd)
7262submmnd 18616 . . . . . . . . . . 11 (ℝ+ ∈ (SubMnd‘𝑀) → (𝑀s+) ∈ Mnd)
7361, 72mp1i 13 . . . . . . . . . 10 (𝜑 → (𝑀s+) ∈ Mnd)
7462subcmn 19606 . . . . . . . . . 10 ((𝑀 ∈ CMnd ∧ (𝑀s+) ∈ Mnd) → (𝑀s+) ∈ CMnd)
7571, 73, 74syl2anc 584 . . . . . . . . 9 (𝜑 → (𝑀s+) ∈ CMnd)
76 df-refld 20994 . . . . . . . . . . . 12 fld = (ℂflds ℝ)
7776subrgring 20210 . . . . . . . . . . 11 (ℝ ∈ (SubRing‘ℂfld) → ℝfld ∈ Ring)
787, 77ax-mp 5 . . . . . . . . . 10 fld ∈ Ring
79 ringmnd 19960 . . . . . . . . . 10 (ℝfld ∈ Ring → ℝfld ∈ Mnd)
8078, 79mp1i 13 . . . . . . . . 9 (𝜑 → ℝfld ∈ Mnd)
8148oveq1i 7363 . . . . . . . . . . . 12 (𝑀s+) = ((mulGrp‘ℂfld) ↾s+)
8281reloggim 25938 . . . . . . . . . . 11 (log ↾ ℝ+) ∈ ((𝑀s+) GrpIso ℝfld)
83 gimghm 19045 . . . . . . . . . . 11 ((log ↾ ℝ+) ∈ ((𝑀s+) GrpIso ℝfld) → (log ↾ ℝ+) ∈ ((𝑀s+) GrpHom ℝfld))
8482, 83ax-mp 5 . . . . . . . . . 10 (log ↾ ℝ+) ∈ ((𝑀s+) GrpHom ℝfld)
85 ghmmhm 19009 . . . . . . . . . 10 ((log ↾ ℝ+) ∈ ((𝑀s+) GrpHom ℝfld) → (log ↾ ℝ+) ∈ ((𝑀s+) MndHom ℝfld))
8684, 85mp1i 13 . . . . . . . . 9 (𝜑 → (log ↾ ℝ+) ∈ ((𝑀s+) MndHom ℝfld))
87 1ex 11147 . . . . . . . . . . 11 1 ∈ V
8887a1i 11 . . . . . . . . . 10 (𝜑 → 1 ∈ V)
8910, 5, 88fdmfifsupp 9311 . . . . . . . . 9 (𝜑𝐹 finSupp 1)
9064, 68, 75, 80, 5, 86, 10, 89gsummhm 19706 . . . . . . . 8 (𝜑 → (ℝfld Σg ((log ↾ ℝ+) ∘ 𝐹)) = ((log ↾ ℝ+)‘((𝑀s+) Σg 𝐹)))
91 subgsubm 18941 . . . . . . . . . 10 (ℝ ∈ (SubGrp‘ℂfld) → ℝ ∈ (SubMnd‘ℂfld))
929, 91syl 17 . . . . . . . . 9 (𝜑 → ℝ ∈ (SubMnd‘ℂfld))
93 fco 6689 . . . . . . . . . 10 (((log ↾ ℝ+):ℝ+⟶ℝ ∧ 𝐹:𝐴⟶ℝ+) → ((log ↾ ℝ+) ∘ 𝐹):𝐴⟶ℝ)
9439, 10, 93syl2anc 584 . . . . . . . . 9 (𝜑 → ((log ↾ ℝ+) ∘ 𝐹):𝐴⟶ℝ)
955, 92, 94, 76gsumsubm 18637 . . . . . . . 8 (𝜑 → (ℂfld Σg ((log ↾ ℝ+) ∘ 𝐹)) = (ℝfld Σg ((log ↾ ℝ+) ∘ 𝐹)))
9661a1i 11 . . . . . . . . . 10 (𝜑 → ℝ+ ∈ (SubMnd‘𝑀))
975, 96, 10, 62gsumsubm 18637 . . . . . . . . 9 (𝜑 → (𝑀 Σg 𝐹) = ((𝑀s+) Σg 𝐹))
9897fveq2d 6843 . . . . . . . 8 (𝜑 → ((log ↾ ℝ+)‘(𝑀 Σg 𝐹)) = ((log ↾ ℝ+)‘((𝑀s+) Σg 𝐹)))
9990, 95, 983eqtr4d 2786 . . . . . . 7 (𝜑 → (ℂfld Σg ((log ↾ ℝ+) ∘ 𝐹)) = ((log ↾ ℝ+)‘(𝑀 Σg 𝐹)))
10066, 71, 5, 96, 10, 89gsumsubmcl 19687 . . . . . . . 8 (𝜑 → (𝑀 Σg 𝐹) ∈ ℝ+)
101100fvresd 6859 . . . . . . 7 (𝜑 → ((log ↾ ℝ+)‘(𝑀 Σg 𝐹)) = (log‘(𝑀 Σg 𝐹)))
10247, 99, 1013eqtrd 2780 . . . . . 6 (𝜑 → -(ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) = (log‘(𝑀 Σg 𝐹)))
103102oveq1d 7368 . . . . 5 (𝜑 → (-(ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) / (♯‘𝐴)) = ((log‘(𝑀 Σg 𝐹)) / (♯‘𝐴)))
104100relogcld 25962 . . . . . . 7 (𝜑 → (log‘(𝑀 Σg 𝐹)) ∈ ℝ)
105104recnd 11179 . . . . . 6 (𝜑 → (log‘(𝑀 Σg 𝐹)) ∈ ℂ)
106105, 24, 25divrec2d 11931 . . . . 5 (𝜑 → ((log‘(𝑀 Σg 𝐹)) / (♯‘𝐴)) = ((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹))))
10726, 103, 1063eqtrd 2780 . . . 4 (𝜑 → -((ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) / (♯‘𝐴)) = ((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹))))
10836oveq2d 7369 . . . . . . . . 9 (𝜑 → (ℂfld Σg 𝐹) = (ℂfld Σg (𝑘𝐴 ↦ (𝐹𝑘))))
10911rpcnd 12951 . . . . . . . . . 10 ((𝜑𝑘𝐴) → (𝐹𝑘) ∈ ℂ)
1105, 109gsumfsum 20849 . . . . . . . . 9 (𝜑 → (ℂfld Σg (𝑘𝐴 ↦ (𝐹𝑘))) = Σ𝑘𝐴 (𝐹𝑘))
111108, 110eqtrd 2776 . . . . . . . 8 (𝜑 → (ℂfld Σg 𝐹) = Σ𝑘𝐴 (𝐹𝑘))
1125, 20, 11fsumrpcl 15614 . . . . . . . 8 (𝜑 → Σ𝑘𝐴 (𝐹𝑘) ∈ ℝ+)
113111, 112eqeltrd 2838 . . . . . . 7 (𝜑 → (ℂfld Σg 𝐹) ∈ ℝ+)
11423nnrpd 12947 . . . . . . 7 (𝜑 → (♯‘𝐴) ∈ ℝ+)
115113, 114rpdivcld 12966 . . . . . 6 (𝜑 → ((ℂfld Σg 𝐹) / (♯‘𝐴)) ∈ ℝ+)
116115relogcld 25962 . . . . 5 (𝜑 → (log‘((ℂfld Σg 𝐹) / (♯‘𝐴))) ∈ ℝ)
11718, 23nndivred 12203 . . . . 5 (𝜑 → ((ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) / (♯‘𝐴)) ∈ ℝ)
118 rpssre 12914 . . . . . . . . 9 + ⊆ ℝ
119118a1i 11 . . . . . . . 8 (𝜑 → ℝ+ ⊆ ℝ)
120 relogcl 25915 . . . . . . . . . . 11 (𝑤 ∈ ℝ+ → (log‘𝑤) ∈ ℝ)
121120adantl 482 . . . . . . . . . 10 ((𝜑𝑤 ∈ ℝ+) → (log‘𝑤) ∈ ℝ)
122121renegcld 11578 . . . . . . . . 9 ((𝜑𝑤 ∈ ℝ+) → -(log‘𝑤) ∈ ℝ)
123122fmpttd 7059 . . . . . . . 8 (𝜑 → (𝑤 ∈ ℝ+ ↦ -(log‘𝑤)):ℝ+⟶ℝ)
124 ioorp 13334 . . . . . . . . . . . 12 (0(,)+∞) = ℝ+
125124eleq2i 2829 . . . . . . . . . . 11 (𝑎 ∈ (0(,)+∞) ↔ 𝑎 ∈ ℝ+)
126124eleq2i 2829 . . . . . . . . . . 11 (𝑏 ∈ (0(,)+∞) ↔ 𝑏 ∈ ℝ+)
127 iccssioo2 13329 . . . . . . . . . . 11 ((𝑎 ∈ (0(,)+∞) ∧ 𝑏 ∈ (0(,)+∞)) → (𝑎[,]𝑏) ⊆ (0(,)+∞))
128125, 126, 127syl2anbr 599 . . . . . . . . . 10 ((𝑎 ∈ ℝ+𝑏 ∈ ℝ+) → (𝑎[,]𝑏) ⊆ (0(,)+∞))
129128, 124sseqtrdi 3992 . . . . . . . . 9 ((𝑎 ∈ ℝ+𝑏 ∈ ℝ+) → (𝑎[,]𝑏) ⊆ ℝ+)
130129adantl 482 . . . . . . . 8 ((𝜑 ∧ (𝑎 ∈ ℝ+𝑏 ∈ ℝ+)) → (𝑎[,]𝑏) ⊆ ℝ+)
13123nnrecred 12200 . . . . . . . . . 10 (𝜑 → (1 / (♯‘𝐴)) ∈ ℝ)
132114rpreccld 12959 . . . . . . . . . . 11 (𝜑 → (1 / (♯‘𝐴)) ∈ ℝ+)
133132rpge0d 12953 . . . . . . . . . 10 (𝜑 → 0 ≤ (1 / (♯‘𝐴)))
134 elrege0 13363 . . . . . . . . . 10 ((1 / (♯‘𝐴)) ∈ (0[,)+∞) ↔ ((1 / (♯‘𝐴)) ∈ ℝ ∧ 0 ≤ (1 / (♯‘𝐴))))
135131, 133, 134sylanbrc 583 . . . . . . . . 9 (𝜑 → (1 / (♯‘𝐴)) ∈ (0[,)+∞))
136 fconst6g 6728 . . . . . . . . 9 ((1 / (♯‘𝐴)) ∈ (0[,)+∞) → (𝐴 × {(1 / (♯‘𝐴))}):𝐴⟶(0[,)+∞))
137135, 136syl 17 . . . . . . . 8 (𝜑 → (𝐴 × {(1 / (♯‘𝐴))}):𝐴⟶(0[,)+∞))
138 0lt1 11673 . . . . . . . . 9 0 < 1
139 fconstmpt 5692 . . . . . . . . . . 11 (𝐴 × {(1 / (♯‘𝐴))}) = (𝑘𝐴 ↦ (1 / (♯‘𝐴)))
140139oveq2i 7364 . . . . . . . . . 10 (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})) = (ℂfld Σg (𝑘𝐴 ↦ (1 / (♯‘𝐴))))
141 ringmnd 19960 . . . . . . . . . . . . 13 (ℂfld ∈ Ring → ℂfld ∈ Mnd)
1422, 141mp1i 13 . . . . . . . . . . . 12 (𝜑 → ℂfld ∈ Mnd)
143131recnd 11179 . . . . . . . . . . . 12 (𝜑 → (1 / (♯‘𝐴)) ∈ ℂ)
144 eqid 2736 . . . . . . . . . . . . 13 (.g‘ℂfld) = (.g‘ℂfld)
14553, 144gsumconst 19702 . . . . . . . . . . . 12 ((ℂfld ∈ Mnd ∧ 𝐴 ∈ Fin ∧ (1 / (♯‘𝐴)) ∈ ℂ) → (ℂfld Σg (𝑘𝐴 ↦ (1 / (♯‘𝐴)))) = ((♯‘𝐴)(.g‘ℂfld)(1 / (♯‘𝐴))))
146142, 5, 143, 145syl3anc 1371 . . . . . . . . . . 11 (𝜑 → (ℂfld Σg (𝑘𝐴 ↦ (1 / (♯‘𝐴)))) = ((♯‘𝐴)(.g‘ℂfld)(1 / (♯‘𝐴))))
14723nnzd 12522 . . . . . . . . . . . 12 (𝜑 → (♯‘𝐴) ∈ ℤ)
148 cnfldmulg 20814 . . . . . . . . . . . 12 (((♯‘𝐴) ∈ ℤ ∧ (1 / (♯‘𝐴)) ∈ ℂ) → ((♯‘𝐴)(.g‘ℂfld)(1 / (♯‘𝐴))) = ((♯‘𝐴) · (1 / (♯‘𝐴))))
149147, 143, 148syl2anc 584 . . . . . . . . . . 11 (𝜑 → ((♯‘𝐴)(.g‘ℂfld)(1 / (♯‘𝐴))) = ((♯‘𝐴) · (1 / (♯‘𝐴))))
15024, 25recidd 11922 . . . . . . . . . . 11 (𝜑 → ((♯‘𝐴) · (1 / (♯‘𝐴))) = 1)
151146, 149, 1503eqtrd 2780 . . . . . . . . . 10 (𝜑 → (ℂfld Σg (𝑘𝐴 ↦ (1 / (♯‘𝐴)))) = 1)
152140, 151eqtrid 2788 . . . . . . . . 9 (𝜑 → (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})) = 1)
153138, 152breqtrrid 5141 . . . . . . . 8 (𝜑 → 0 < (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})))
154 logccv 26002 . . . . . . . . . . . 12 (((𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦))) < (log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))))
1551543adant1 1130 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦))) < (log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))))
156 ioossre 13317 . . . . . . . . . . . . . . 15 (0(,)1) ⊆ ℝ
157 simp3 1138 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → 𝑡 ∈ (0(,)1))
158156, 157sselid 3940 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → 𝑡 ∈ ℝ)
159 simp21 1206 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → 𝑥 ∈ ℝ+)
160159relogcld 25962 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (log‘𝑥) ∈ ℝ)
161158, 160remulcld 11181 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (𝑡 · (log‘𝑥)) ∈ ℝ)
162 1re 11151 . . . . . . . . . . . . . . 15 1 ∈ ℝ
163 resubcl 11461 . . . . . . . . . . . . . . 15 ((1 ∈ ℝ ∧ 𝑡 ∈ ℝ) → (1 − 𝑡) ∈ ℝ)
164162, 158, 163sylancr 587 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (1 − 𝑡) ∈ ℝ)
165 simp22 1207 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → 𝑦 ∈ ℝ+)
166165relogcld 25962 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (log‘𝑦) ∈ ℝ)
167164, 166remulcld 11181 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((1 − 𝑡) · (log‘𝑦)) ∈ ℝ)
168161, 167readdcld 11180 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦))) ∈ ℝ)
169 simp1 1136 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → 𝜑)
170 ioossicc 13342 . . . . . . . . . . . . . . 15 (0(,)1) ⊆ (0[,]1)
171170, 157sselid 3940 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → 𝑡 ∈ (0[,]1))
172119, 130cvxcl 26318 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑡 ∈ (0[,]1))) → ((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦)) ∈ ℝ+)
173169, 159, 165, 171, 172syl13anc 1372 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦)) ∈ ℝ+)
174173relogcld 25962 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) ∈ ℝ)
175168, 174ltnegd 11729 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦))) < (log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) ↔ -(log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) < -((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦)))))
176155, 175mpbid 231 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → -(log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) < -((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦))))
177 fveq2 6839 . . . . . . . . . . . . 13 (𝑤 = ((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦)) → (log‘𝑤) = (log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))))
178177negeqd 11391 . . . . . . . . . . . 12 (𝑤 = ((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦)) → -(log‘𝑤) = -(log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))))
179 eqid 2736 . . . . . . . . . . . 12 (𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) = (𝑤 ∈ ℝ+ ↦ -(log‘𝑤))
180 negex 11395 . . . . . . . . . . . 12 -(log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) ∈ V
181178, 179, 180fvmpt 6945 . . . . . . . . . . 11 (((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦)) ∈ ℝ+ → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) = -(log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))))
182173, 181syl 17 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) = -(log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))))
183 fveq2 6839 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑥 → (log‘𝑤) = (log‘𝑥))
184183negeqd 11391 . . . . . . . . . . . . . . . 16 (𝑤 = 𝑥 → -(log‘𝑤) = -(log‘𝑥))
185 negex 11395 . . . . . . . . . . . . . . . 16 -(log‘𝑥) ∈ V
186184, 179, 185fvmpt 6945 . . . . . . . . . . . . . . 15 (𝑥 ∈ ℝ+ → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑥) = -(log‘𝑥))
187159, 186syl 17 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑥) = -(log‘𝑥))
188187oveq2d 7369 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (𝑡 · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑥)) = (𝑡 · -(log‘𝑥)))
189158recnd 11179 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → 𝑡 ∈ ℂ)
190160recnd 11179 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (log‘𝑥) ∈ ℂ)
191189, 190mulneg2d 11605 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (𝑡 · -(log‘𝑥)) = -(𝑡 · (log‘𝑥)))
192188, 191eqtrd 2776 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (𝑡 · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑥)) = -(𝑡 · (log‘𝑥)))
193 fveq2 6839 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑦 → (log‘𝑤) = (log‘𝑦))
194193negeqd 11391 . . . . . . . . . . . . . . . 16 (𝑤 = 𝑦 → -(log‘𝑤) = -(log‘𝑦))
195 negex 11395 . . . . . . . . . . . . . . . 16 -(log‘𝑦) ∈ V
196194, 179, 195fvmpt 6945 . . . . . . . . . . . . . . 15 (𝑦 ∈ ℝ+ → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑦) = -(log‘𝑦))
197165, 196syl 17 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑦) = -(log‘𝑦))
198197oveq2d 7369 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((1 − 𝑡) · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑦)) = ((1 − 𝑡) · -(log‘𝑦)))
199164recnd 11179 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (1 − 𝑡) ∈ ℂ)
200166recnd 11179 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (log‘𝑦) ∈ ℂ)
201199, 200mulneg2d 11605 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((1 − 𝑡) · -(log‘𝑦)) = -((1 − 𝑡) · (log‘𝑦)))
202198, 201eqtrd 2776 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((1 − 𝑡) · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑦)) = -((1 − 𝑡) · (log‘𝑦)))
203192, 202oveq12d 7371 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑡 · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑥)) + ((1 − 𝑡) · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑦))) = (-(𝑡 · (log‘𝑥)) + -((1 − 𝑡) · (log‘𝑦))))
204161recnd 11179 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (𝑡 · (log‘𝑥)) ∈ ℂ)
205167recnd 11179 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((1 − 𝑡) · (log‘𝑦)) ∈ ℂ)
206204, 205negdid 11521 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → -((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦))) = (-(𝑡 · (log‘𝑥)) + -((1 − 𝑡) · (log‘𝑦))))
207203, 206eqtr4d 2779 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑡 · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑥)) + ((1 − 𝑡) · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑦))) = -((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦))))
208176, 182, 2073brtr4d 5135 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℝ+𝑦 ∈ ℝ+𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) < ((𝑡 · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑥)) + ((1 − 𝑡) · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑦))))
209119, 123, 130, 208scvxcvx 26319 . . . . . . . 8 ((𝜑 ∧ (𝑢 ∈ ℝ+𝑣 ∈ ℝ+𝑠 ∈ (0[,]1))) → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((𝑠 · 𝑢) + ((1 − 𝑠) · 𝑣))) ≤ ((𝑠 · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑢)) + ((1 − 𝑠) · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑣))))
210119, 123, 130, 5, 137, 10, 153, 209jensen 26322 . . . . . . 7 (𝜑 → (((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))}))) ∈ ℝ+ ∧ ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})))) ≤ ((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹))) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})))))
211210simprd 496 . . . . . 6 (𝜑 → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})))) ≤ ((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹))) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))}))))
212131adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑘𝐴) → (1 / (♯‘𝐴)) ∈ ℝ)
213139a1i 11 . . . . . . . . . . . . 13 (𝜑 → (𝐴 × {(1 / (♯‘𝐴))}) = (𝑘𝐴 ↦ (1 / (♯‘𝐴))))
2145, 212, 11, 213, 36offval2 7633 . . . . . . . . . . . 12 (𝜑 → ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹) = (𝑘𝐴 ↦ ((1 / (♯‘𝐴)) · (𝐹𝑘))))
215214oveq2d 7369 . . . . . . . . . . 11 (𝜑 → (ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) = (ℂfld Σg (𝑘𝐴 ↦ ((1 / (♯‘𝐴)) · (𝐹𝑘)))))
216 cnfldadd 20786 . . . . . . . . . . . 12 + = (+g‘ℂfld)
217 cnfldmul 20787 . . . . . . . . . . . 12 · = (.r‘ℂfld)
2182a1i 11 . . . . . . . . . . . 12 (𝜑 → ℂfld ∈ Ring)
219109fmpttd 7059 . . . . . . . . . . . . 13 (𝜑 → (𝑘𝐴 ↦ (𝐹𝑘)):𝐴⟶ℂ)
220219, 5, 16fdmfifsupp 9311 . . . . . . . . . . . 12 (𝜑 → (𝑘𝐴 ↦ (𝐹𝑘)) finSupp 0)
22153, 1, 216, 217, 218, 5, 143, 109, 220gsummulc2 20016 . . . . . . . . . . 11 (𝜑 → (ℂfld Σg (𝑘𝐴 ↦ ((1 / (♯‘𝐴)) · (𝐹𝑘)))) = ((1 / (♯‘𝐴)) · (ℂfld Σg (𝑘𝐴 ↦ (𝐹𝑘)))))
222 fss 6682 . . . . . . . . . . . . . . . 16 ((𝐹:𝐴⟶ℝ+ ∧ ℝ+ ⊆ ℝ) → 𝐹:𝐴⟶ℝ)
22310, 118, 222sylancl 586 . . . . . . . . . . . . . . 15 (𝜑𝐹:𝐴⟶ℝ)
22410, 5, 16fdmfifsupp 9311 . . . . . . . . . . . . . . 15 (𝜑𝐹 finSupp 0)
2251, 4, 5, 9, 223, 224gsumsubgcl 19688 . . . . . . . . . . . . . 14 (𝜑 → (ℂfld Σg 𝐹) ∈ ℝ)
226225recnd 11179 . . . . . . . . . . . . 13 (𝜑 → (ℂfld Σg 𝐹) ∈ ℂ)
227226, 24, 25divrec2d 11931 . . . . . . . . . . . 12 (𝜑 → ((ℂfld Σg 𝐹) / (♯‘𝐴)) = ((1 / (♯‘𝐴)) · (ℂfld Σg 𝐹)))
228108oveq2d 7369 . . . . . . . . . . . 12 (𝜑 → ((1 / (♯‘𝐴)) · (ℂfld Σg 𝐹)) = ((1 / (♯‘𝐴)) · (ℂfld Σg (𝑘𝐴 ↦ (𝐹𝑘)))))
229227, 228eqtr2d 2777 . . . . . . . . . . 11 (𝜑 → ((1 / (♯‘𝐴)) · (ℂfld Σg (𝑘𝐴 ↦ (𝐹𝑘)))) = ((ℂfld Σg 𝐹) / (♯‘𝐴)))
230215, 221, 2293eqtrd 2780 . . . . . . . . . 10 (𝜑 → (ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) = ((ℂfld Σg 𝐹) / (♯‘𝐴)))
231230, 152oveq12d 7371 . . . . . . . . 9 (𝜑 → ((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))}))) = (((ℂfld Σg 𝐹) / (♯‘𝐴)) / 1))
232225, 23nndivred 12203 . . . . . . . . . . 11 (𝜑 → ((ℂfld Σg 𝐹) / (♯‘𝐴)) ∈ ℝ)
233232recnd 11179 . . . . . . . . . 10 (𝜑 → ((ℂfld Σg 𝐹) / (♯‘𝐴)) ∈ ℂ)
234233div1d 11919 . . . . . . . . 9 (𝜑 → (((ℂfld Σg 𝐹) / (♯‘𝐴)) / 1) = ((ℂfld Σg 𝐹) / (♯‘𝐴)))
235231, 234eqtrd 2776 . . . . . . . 8 (𝜑 → ((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))}))) = ((ℂfld Σg 𝐹) / (♯‘𝐴)))
236235fveq2d 6843 . . . . . . 7 (𝜑 → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})))) = ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
237 fveq2 6839 . . . . . . . . . 10 (𝑤 = ((ℂfld Σg 𝐹) / (♯‘𝐴)) → (log‘𝑤) = (log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
238237negeqd 11391 . . . . . . . . 9 (𝑤 = ((ℂfld Σg 𝐹) / (♯‘𝐴)) → -(log‘𝑤) = -(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
239 negex 11395 . . . . . . . . 9 -(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))) ∈ V
240238, 179, 239fvmpt 6945 . . . . . . . 8 (((ℂfld Σg 𝐹) / (♯‘𝐴)) ∈ ℝ+ → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((ℂfld Σg 𝐹) / (♯‘𝐴))) = -(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
241115, 240syl 17 . . . . . . 7 (𝜑 → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((ℂfld Σg 𝐹) / (♯‘𝐴))) = -(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
242236, 241eqtrd 2776 . . . . . 6 (𝜑 → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})))) = -(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
24353, 1, 216, 217, 218, 5, 143, 31, 17gsummulc2 20016 . . . . . . . . 9 (𝜑 → (ℂfld Σg (𝑘𝐴 ↦ ((1 / (♯‘𝐴)) · -(log‘(𝐹𝑘))))) = ((1 / (♯‘𝐴)) · (ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘))))))
244 negex 11395 . . . . . . . . . . . 12 -(log‘(𝐹𝑘)) ∈ V
245244a1i 11 . . . . . . . . . . 11 ((𝜑𝑘𝐴) → -(log‘(𝐹𝑘)) ∈ V)
246 eqidd 2737 . . . . . . . . . . . 12 (𝜑 → (𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) = (𝑤 ∈ ℝ+ ↦ -(log‘𝑤)))
247 fveq2 6839 . . . . . . . . . . . . 13 (𝑤 = (𝐹𝑘) → (log‘𝑤) = (log‘(𝐹𝑘)))
248247negeqd 11391 . . . . . . . . . . . 12 (𝑤 = (𝐹𝑘) → -(log‘𝑤) = -(log‘(𝐹𝑘)))
24911, 36, 246, 248fmptco 7071 . . . . . . . . . . 11 (𝜑 → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹) = (𝑘𝐴 ↦ -(log‘(𝐹𝑘))))
2505, 212, 245, 213, 249offval2 7633 . . . . . . . . . 10 (𝜑 → ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹)) = (𝑘𝐴 ↦ ((1 / (♯‘𝐴)) · -(log‘(𝐹𝑘)))))
251250oveq2d 7369 . . . . . . . . 9 (𝜑 → (ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹))) = (ℂfld Σg (𝑘𝐴 ↦ ((1 / (♯‘𝐴)) · -(log‘(𝐹𝑘))))))
25219, 24, 25divrec2d 11931 . . . . . . . . 9 (𝜑 → ((ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) / (♯‘𝐴)) = ((1 / (♯‘𝐴)) · (ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘))))))
253243, 251, 2523eqtr4d 2786 . . . . . . . 8 (𝜑 → (ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹))) = ((ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) / (♯‘𝐴)))
254253, 152oveq12d 7371 . . . . . . 7 (𝜑 → ((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹))) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))}))) = (((ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) / (♯‘𝐴)) / 1))
255117recnd 11179 . . . . . . . 8 (𝜑 → ((ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) / (♯‘𝐴)) ∈ ℂ)
256255div1d 11919 . . . . . . 7 (𝜑 → (((ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) / (♯‘𝐴)) / 1) = ((ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) / (♯‘𝐴)))
257254, 256eqtrd 2776 . . . . . 6 (𝜑 → ((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹))) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))}))) = ((ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) / (♯‘𝐴)))
258211, 242, 2573brtr3d 5134 . . . . 5 (𝜑 → -(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))) ≤ ((ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) / (♯‘𝐴)))
259116, 117, 258lenegcon1d 11733 . . . 4 (𝜑 → -((ℂfld Σg (𝑘𝐴 ↦ -(log‘(𝐹𝑘)))) / (♯‘𝐴)) ≤ (log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
260107, 259eqbrtrrd 5127 . . 3 (𝜑 → ((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹))) ≤ (log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
261131, 104remulcld 11181 . . . 4 (𝜑 → ((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹))) ∈ ℝ)
262 efle 15992 . . . 4 ((((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹))) ∈ ℝ ∧ (log‘((ℂfld Σg 𝐹) / (♯‘𝐴))) ∈ ℝ) → (((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹))) ≤ (log‘((ℂfld Σg 𝐹) / (♯‘𝐴))) ↔ (exp‘((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹)))) ≤ (exp‘(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))))
263261, 116, 262syl2anc 584 . . 3 (𝜑 → (((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹))) ≤ (log‘((ℂfld Σg 𝐹) / (♯‘𝐴))) ↔ (exp‘((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹)))) ≤ (exp‘(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))))
264260, 263mpbid 231 . 2 (𝜑 → (exp‘((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹)))) ≤ (exp‘(log‘((ℂfld Σg 𝐹) / (♯‘𝐴)))))
265100rpcnd 12951 . . 3 (𝜑 → (𝑀 Σg 𝐹) ∈ ℂ)
266100rpne0d 12954 . . 3 (𝜑 → (𝑀 Σg 𝐹) ≠ 0)
267265, 266, 143cxpefd 26051 . 2 (𝜑 → ((𝑀 Σg 𝐹)↑𝑐(1 / (♯‘𝐴))) = (exp‘((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹)))))
268115reeflogd 25963 . . 3 (𝜑 → (exp‘(log‘((ℂfld Σg 𝐹) / (♯‘𝐴)))) = ((ℂfld Σg 𝐹) / (♯‘𝐴)))
269268eqcomd 2742 . 2 (𝜑 → ((ℂfld Σg 𝐹) / (♯‘𝐴)) = (exp‘(log‘((ℂfld Σg 𝐹) / (♯‘𝐴)))))
270264, 267, 2693brtr4d 5135 1 (𝜑 → ((𝑀 Σg 𝐹)↑𝑐(1 / (♯‘𝐴))) ≤ ((ℂfld Σg 𝐹) / (♯‘𝐴)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396  w3a 1087   = wceq 1541  wcel 2106  wne 2941  Vcvv 3443  cdif 3905  wss 3908  c0 4280  {csn 4584   class class class wbr 5103  cmpt 5186   × cxp 5629  cres 5633  ccom 5635  wf 6489  1-1-ontowf1o 6492  cfv 6493  (class class class)co 7353  f cof 7611  Fincfn 8879  cc 11045  cr 11046  0cc0 11047  1c1 11048   + caddc 11050   · cmul 11052  +∞cpnf 11182   < clt 11185  cle 11186  cmin 11381  -cneg 11382   / cdiv 11808  cn 12149  cz 12495  +crp 12907  (,)cioo 13256  [,)cico 13258  [,]cicc 13259  chash 14222  Σcsu 15562  expce 15936  Basecbs 17075  s cress 17104  0gc0g 17313   Σg cgsu 17314  Mndcmnd 18548   MndHom cmhm 18591  SubMndcsubmnd 18592  .gcmg 18863  SubGrpcsubg 18913   GrpHom cghm 18996   GrpIso cgim 19038  CMndccmn 19553  Abelcabl 19554  mulGrpcmgp 19887  Ringcrg 19950  CRingccrg 19951  DivRingcdr 20170  SubRingcsubrg 20203  fldccnfld 20781  fldcrefld 20993  logclog 25894  𝑐ccxp 25895
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5240  ax-sep 5254  ax-nul 5261  ax-pow 5318  ax-pr 5382  ax-un 7668  ax-inf2 9573  ax-cnex 11103  ax-resscn 11104  ax-1cn 11105  ax-icn 11106  ax-addcl 11107  ax-addrcl 11108  ax-mulcl 11109  ax-mulrcl 11110  ax-mulcom 11111  ax-addass 11112  ax-mulass 11113  ax-distr 11114  ax-i2m1 11115  ax-1ne0 11116  ax-1rid 11117  ax-rnegex 11118  ax-rrecex 11119  ax-cnre 11120  ax-pre-lttri 11121  ax-pre-lttrn 11122  ax-pre-ltadd 11123  ax-pre-mulgt0 11124  ax-pre-sup 11125  ax-addf 11126  ax-mulf 11127
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2887  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3351  df-reu 3352  df-rab 3406  df-v 3445  df-sbc 3738  df-csb 3854  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-pss 3927  df-nul 4281  df-if 4485  df-pw 4560  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-uni 4864  df-int 4906  df-iun 4954  df-iin 4955  df-br 5104  df-opab 5166  df-mpt 5187  df-tr 5221  df-id 5529  df-eprel 5535  df-po 5543  df-so 5544  df-fr 5586  df-se 5587  df-we 5588  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6251  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6445  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-isom 6502  df-riota 7309  df-ov 7356  df-oprab 7357  df-mpo 7358  df-of 7613  df-om 7799  df-1st 7917  df-2nd 7918  df-supp 8089  df-tpos 8153  df-frecs 8208  df-wrecs 8239  df-recs 8313  df-rdg 8352  df-1o 8408  df-2o 8409  df-er 8644  df-map 8763  df-pm 8764  df-ixp 8832  df-en 8880  df-dom 8881  df-sdom 8882  df-fin 8883  df-fsupp 9302  df-fi 9343  df-sup 9374  df-inf 9375  df-oi 9442  df-card 9871  df-pnf 11187  df-mnf 11188  df-xr 11189  df-ltxr 11190  df-le 11191  df-sub 11383  df-neg 11384  df-div 11809  df-nn 12150  df-2 12212  df-3 12213  df-4 12214  df-5 12215  df-6 12216  df-7 12217  df-8 12218  df-9 12219  df-n0 12410  df-z 12496  df-dec 12615  df-uz 12760  df-q 12866  df-rp 12908  df-xneg 13025  df-xadd 13026  df-xmul 13027  df-ioo 13260  df-ioc 13261  df-ico 13262  df-icc 13263  df-fz 13417  df-fzo 13560  df-fl 13689  df-mod 13767  df-seq 13899  df-exp 13960  df-fac 14166  df-bc 14195  df-hash 14223  df-shft 14944  df-cj 14976  df-re 14977  df-im 14978  df-sqrt 15112  df-abs 15113  df-limsup 15345  df-clim 15362  df-rlim 15363  df-sum 15563  df-ef 15942  df-sin 15944  df-cos 15945  df-pi 15947  df-struct 17011  df-sets 17028  df-slot 17046  df-ndx 17058  df-base 17076  df-ress 17105  df-plusg 17138  df-mulr 17139  df-starv 17140  df-sca 17141  df-vsca 17142  df-ip 17143  df-tset 17144  df-ple 17145  df-ds 17147  df-unif 17148  df-hom 17149  df-cco 17150  df-rest 17296  df-topn 17297  df-0g 17315  df-gsum 17316  df-topgen 17317  df-pt 17318  df-prds 17321  df-xrs 17376  df-qtop 17381  df-imas 17382  df-xps 17384  df-mre 17458  df-mrc 17459  df-acs 17461  df-mgm 18489  df-sgrp 18538  df-mnd 18549  df-mhm 18593  df-submnd 18594  df-grp 18743  df-minusg 18744  df-mulg 18864  df-subg 18916  df-ghm 18997  df-gim 19040  df-cntz 19088  df-cmn 19555  df-abl 19556  df-mgp 19888  df-ur 19905  df-ring 19952  df-cring 19953  df-oppr 20034  df-dvdsr 20055  df-unit 20056  df-invr 20086  df-dvr 20097  df-drng 20172  df-subrg 20205  df-psmet 20773  df-xmet 20774  df-met 20775  df-bl 20776  df-mopn 20777  df-fbas 20778  df-fg 20779  df-cnfld 20782  df-refld 20994  df-top 22227  df-topon 22244  df-topsp 22266  df-bases 22280  df-cld 22354  df-ntr 22355  df-cls 22356  df-nei 22433  df-lp 22471  df-perf 22472  df-cn 22562  df-cnp 22563  df-haus 22650  df-cmp 22722  df-tx 22897  df-hmeo 23090  df-fil 23181  df-fm 23273  df-flim 23274  df-flf 23275  df-xms 23657  df-ms 23658  df-tms 23659  df-cncf 24225  df-limc 25214  df-dv 25215  df-log 25896  df-cxp 25897
This theorem is referenced by:  amgm  26324  amgm2d  42413  amgm3d  42414  amgm4d  42415
  Copyright terms: Public domain W3C validator