Theorem amgmlem 25826

Description: Lemma for amgm 25827. (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.

Step	Hyp	Ref	Expression
1		cnfld0 20341	. . . . . . . 8 ⊢ 0 = (0g‘ℂfld)
2		cnring 20339	. . . . . . . . 9 ⊢ ℂfld ∈ Ring
3		ringabl 19552	. . . . . . . . 9 ⊢ (ℂfld ∈ Ring → ℂfld ∈ Abel)
4	2, 3	mp1i 13	. . . . . . . 8 ⊢ (𝜑 → ℂfld ∈ Abel)
5		amgm.2	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ Fin)
6		resubdrg 20524	. . . . . . . . . 10 ⊢ (ℝ ∈ (SubRing‘ℂfld) ∧ ℝfld ∈ DivRing)
7	6	simpli 487	. . . . . . . . 9 ⊢ ℝ ∈ (SubRing‘ℂfld)
8		subrgsubg 19760	. . . . . . . . 9 ⊢ (ℝ ∈ (SubRing‘ℂfld) → ℝ ∈ (SubGrp‘ℂfld))
9	7, 8	mp1i 13	. . . . . . . 8 ⊢ (𝜑 → ℝ ∈ (SubGrp‘ℂfld))
10		amgm.4	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐹:𝐴⟶ℝ+)
11	10	ffvelrnda 6882	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → (𝐹‘𝑘) ∈ ℝ+)
12	11	relogcld 25465	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → (log‘(𝐹‘𝑘)) ∈ ℝ)
13	12	renegcld 11224	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → -(log‘(𝐹‘𝑘)) ∈ ℝ)
14	13	fmpttd 6910	. . . . . . . 8 ⊢ (𝜑 → (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘))):𝐴⟶ℝ)
15		c0ex 10792	. . . . . . . . . 10 ⊢ 0 ∈ V
16	15	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 0 ∈ V)
17	14, 5, 16	fdmfifsupp 8973	. . . . . . . 8 ⊢ (𝜑 → (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘))) finSupp 0)
18	1, 4, 5, 9, 14, 17	gsumsubgcl 19259	. . . . . . 7 ⊢ (𝜑 → (ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) ∈ ℝ)
19	18	recnd 10826	. . . . . 6 ⊢ (𝜑 → (ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) ∈ ℂ)
20		amgm.3	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ≠ ∅)
21		hashnncl 13898	. . . . . . . . 9 ⊢ (𝐴 ∈ Fin → ((♯‘𝐴) ∈ ℕ ↔ 𝐴 ≠ ∅))
22	5, 21	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((♯‘𝐴) ∈ ℕ ↔ 𝐴 ≠ ∅))
23	20, 22	mpbird 260	. . . . . . 7 ⊢ (𝜑 → (♯‘𝐴) ∈ ℕ)
24	23	nncnd 11811	. . . . . 6 ⊢ (𝜑 → (♯‘𝐴) ∈ ℂ)
25	23	nnne0d 11845	. . . . . 6 ⊢ (𝜑 → (♯‘𝐴) ≠ 0)
26	19, 24, 25	divnegd 11586	. . . . 5 ⊢ (𝜑 → -((ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) / (♯‘𝐴)) = (-(ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) / (♯‘𝐴)))
27	12	recnd 10826	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → (log‘(𝐹‘𝑘)) ∈ ℂ)
28	5, 27	gsumfsum 20384	. . . . . . . . 9 ⊢ (𝜑 → (ℂfld Σg (𝑘 ∈ 𝐴 ↦ (log‘(𝐹‘𝑘)))) = Σ𝑘 ∈ 𝐴 (log‘(𝐹‘𝑘)))
29	27	negnegd 11145	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → --(log‘(𝐹‘𝑘)) = (log‘(𝐹‘𝑘)))
30	29	sumeq2dv 15232	. . . . . . . . 9 ⊢ (𝜑 → Σ𝑘 ∈ 𝐴 --(log‘(𝐹‘𝑘)) = Σ𝑘 ∈ 𝐴 (log‘(𝐹‘𝑘)))
31	13	recnd 10826	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → -(log‘(𝐹‘𝑘)) ∈ ℂ)
32	5, 31	fsumneg 15314	. . . . . . . . 9 ⊢ (𝜑 → Σ𝑘 ∈ 𝐴 --(log‘(𝐹‘𝑘)) = -Σ𝑘 ∈ 𝐴 -(log‘(𝐹‘𝑘)))
33	28, 30, 32	3eqtr2rd 2778	. . . . . . . 8 ⊢ (𝜑 → -Σ𝑘 ∈ 𝐴 -(log‘(𝐹‘𝑘)) = (ℂfld Σg (𝑘 ∈ 𝐴 ↦ (log‘(𝐹‘𝑘)))))
34	5, 31	gsumfsum 20384	. . . . . . . . 9 ⊢ (𝜑 → (ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) = Σ𝑘 ∈ 𝐴 -(log‘(𝐹‘𝑘)))
35	34	negeqd 11037	. . . . . . . 8 ⊢ (𝜑 → -(ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) = -Σ𝑘 ∈ 𝐴 -(log‘(𝐹‘𝑘)))
36	10	feqmptd 6758	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 = (𝑘 ∈ 𝐴 ↦ (𝐹‘𝑘)))
37		relogf1o 25409	. . . . . . . . . . . . 13 ⊢ (log ↾ ℝ+):ℝ+–1-1-onto→ℝ
38		f1of 6639	. . . . . . . . . . . . 13 ⊢ ((log ↾ ℝ+):ℝ+–1-1-onto→ℝ → (log ↾ ℝ+):ℝ+⟶ℝ)
39	37, 38	mp1i 13	. . . . . . . . . . . 12 ⊢ (𝜑 → (log ↾ ℝ+):ℝ+⟶ℝ)
40	39	feqmptd 6758	. . . . . . . . . . 11 ⊢ (𝜑 → (log ↾ ℝ+) = (𝑥 ∈ ℝ+ ↦ ((log ↾ ℝ+)‘𝑥)))
41		fvres 6714	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ ℝ+ → ((log ↾ ℝ+)‘𝑥) = (log‘𝑥))
42	41	mpteq2ia 5131	. . . . . . . . . . 11 ⊢ (𝑥 ∈ ℝ+ ↦ ((log ↾ ℝ+)‘𝑥)) = (𝑥 ∈ ℝ+ ↦ (log‘𝑥))
43	40, 42	eqtrdi 2787	. . . . . . . . . 10 ⊢ (𝜑 → (log ↾ ℝ+) = (𝑥 ∈ ℝ+ ↦ (log‘𝑥)))
44		fveq2 6695	. . . . . . . . . 10 ⊢ (𝑥 = (𝐹‘𝑘) → (log‘𝑥) = (log‘(𝐹‘𝑘)))
45	11, 36, 43, 44	fmptco 6922	. . . . . . . . 9 ⊢ (𝜑 → ((log ↾ ℝ+) ∘ 𝐹) = (𝑘 ∈ 𝐴 ↦ (log‘(𝐹‘𝑘))))
46	45	oveq2d 7207	. . . . . . . 8 ⊢ (𝜑 → (ℂfld Σg ((log ↾ ℝ+) ∘ 𝐹)) = (ℂfld Σg (𝑘 ∈ 𝐴 ↦ (log‘(𝐹‘𝑘)))))
47	33, 35, 46	3eqtr4d 2781	. . . . . . 7 ⊢ (𝜑 → -(ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) = (ℂfld Σg ((log ↾ ℝ+) ∘ 𝐹)))
48		amgm.1	. . . . . . . . . . . . . . 15 ⊢ 𝑀 = (mulGrp‘ℂfld)
49	48	oveq1i 7201	. . . . . . . . . . . . . 14 ⊢ (𝑀 ↾s (ℂ ∖ {0})) = ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))
50	49	rpmsubg 20381	. . . . . . . . . . . . 13 ⊢ ℝ+ ∈ (SubGrp‘(𝑀 ↾s (ℂ ∖ {0})))
51		subgsubm 18519	. . . . . . . . . . . . 13 ⊢ (ℝ+ ∈ (SubGrp‘(𝑀 ↾s (ℂ ∖ {0}))) → ℝ+ ∈ (SubMnd‘(𝑀 ↾s (ℂ ∖ {0}))))
52	50, 51	ax-mp 5	. . . . . . . . . . . 12 ⊢ ℝ+ ∈ (SubMnd‘(𝑀 ↾s (ℂ ∖ {0})))
53		cnfldbas 20321	. . . . . . . . . . . . . . 15 ⊢ ℂ = (Base‘ℂfld)
54		cndrng 20346	. . . . . . . . . . . . . . 15 ⊢ ℂfld ∈ DivRing
55	53, 1, 54	drngui 19727	. . . . . . . . . . . . . 14 ⊢ (ℂ ∖ {0}) = (Unit‘ℂfld)
56	55, 48	unitsubm 19642	. . . . . . . . . . . . 13 ⊢ (ℂfld ∈ Ring → (ℂ ∖ {0}) ∈ (SubMnd‘𝑀))
57		eqid 2736	. . . . . . . . . . . . . 14 ⊢ (𝑀 ↾s (ℂ ∖ {0})) = (𝑀 ↾s (ℂ ∖ {0}))
58	57	subsubm 18197	. . . . . . . . . . . . 13 ⊢ ((ℂ ∖ {0}) ∈ (SubMnd‘𝑀) → (ℝ+ ∈ (SubMnd‘(𝑀 ↾s (ℂ ∖ {0}))) ↔ (ℝ+ ∈ (SubMnd‘𝑀) ∧ ℝ+ ⊆ (ℂ ∖ {0}))))
59	2, 56, 58	mp2b 10	. . . . . . . . . . . 12 ⊢ (ℝ+ ∈ (SubMnd‘(𝑀 ↾s (ℂ ∖ {0}))) ↔ (ℝ+ ∈ (SubMnd‘𝑀) ∧ ℝ+ ⊆ (ℂ ∖ {0})))
60	52, 59	mpbi 233	. . . . . . . . . . 11 ⊢ (ℝ+ ∈ (SubMnd‘𝑀) ∧ ℝ+ ⊆ (ℂ ∖ {0}))
61	60	simpli 487	. . . . . . . . . 10 ⊢ ℝ+ ∈ (SubMnd‘𝑀)
62		eqid 2736	. . . . . . . . . . 11 ⊢ (𝑀 ↾s ℝ+) = (𝑀 ↾s ℝ+)
63	62	submbas 18195	. . . . . . . . . 10 ⊢ (ℝ+ ∈ (SubMnd‘𝑀) → ℝ+ = (Base‘(𝑀 ↾s ℝ+)))
64	61, 63	ax-mp 5	. . . . . . . . 9 ⊢ ℝ+ = (Base‘(𝑀 ↾s ℝ+))
65		cnfld1 20342	. . . . . . . . . . . 12 ⊢ 1 = (1r‘ℂfld)
66	48, 65	ringidval 19472	. . . . . . . . . . 11 ⊢ 1 = (0g‘𝑀)
67	62, 66	subm0 18196	. . . . . . . . . 10 ⊢ (ℝ+ ∈ (SubMnd‘𝑀) → 1 = (0g‘(𝑀 ↾s ℝ+)))
68	61, 67	ax-mp 5	. . . . . . . . 9 ⊢ 1 = (0g‘(𝑀 ↾s ℝ+))
69		cncrng 20338	. . . . . . . . . . 11 ⊢ ℂfld ∈ CRing
70	48	crngmgp 19524	. . . . . . . . . . 11 ⊢ (ℂfld ∈ CRing → 𝑀 ∈ CMnd)
71	69, 70	mp1i 13	. . . . . . . . . 10 ⊢ (𝜑 → 𝑀 ∈ CMnd)
72	62	submmnd 18194	. . . . . . . . . . 11 ⊢ (ℝ+ ∈ (SubMnd‘𝑀) → (𝑀 ↾s ℝ+) ∈ Mnd)
73	61, 72	mp1i 13	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 ↾s ℝ+) ∈ Mnd)
74	62	subcmn 19176	. . . . . . . . . 10 ⊢ ((𝑀 ∈ CMnd ∧ (𝑀 ↾s ℝ+) ∈ Mnd) → (𝑀 ↾s ℝ+) ∈ CMnd)
75	71, 73, 74	syl2anc 587	. . . . . . . . 9 ⊢ (𝜑 → (𝑀 ↾s ℝ+) ∈ CMnd)
76		df-refld 20521	. . . . . . . . . . . 12 ⊢ ℝfld = (ℂfld ↾s ℝ)
77	76	subrgring 19757	. . . . . . . . . . 11 ⊢ (ℝ ∈ (SubRing‘ℂfld) → ℝfld ∈ Ring)
78	7, 77	ax-mp 5	. . . . . . . . . 10 ⊢ ℝfld ∈ Ring
79		ringmnd 19526	. . . . . . . . . 10 ⊢ (ℝfld ∈ Ring → ℝfld ∈ Mnd)
80	78, 79	mp1i 13	. . . . . . . . 9 ⊢ (𝜑 → ℝfld ∈ Mnd)
81	48	oveq1i 7201	. . . . . . . . . . . 12 ⊢ (𝑀 ↾s ℝ+) = ((mulGrp‘ℂfld) ↾s ℝ+)
82	81	reloggim 25441	. . . . . . . . . . 11 ⊢ (log ↾ ℝ+) ∈ ((𝑀 ↾s ℝ+) GrpIso ℝfld)
83		gimghm 18622	. . . . . . . . . . 11 ⊢ ((log ↾ ℝ+) ∈ ((𝑀 ↾s ℝ+) GrpIso ℝfld) → (log ↾ ℝ+) ∈ ((𝑀 ↾s ℝ+) GrpHom ℝfld))
84	82, 83	ax-mp 5	. . . . . . . . . 10 ⊢ (log ↾ ℝ+) ∈ ((𝑀 ↾s ℝ+) GrpHom ℝfld)
85		ghmmhm 18586	. . . . . . . . . 10 ⊢ ((log ↾ ℝ+) ∈ ((𝑀 ↾s ℝ+) GrpHom ℝfld) → (log ↾ ℝ+) ∈ ((𝑀 ↾s ℝ+) MndHom ℝfld))
86	84, 85	mp1i 13	. . . . . . . . 9 ⊢ (𝜑 → (log ↾ ℝ+) ∈ ((𝑀 ↾s ℝ+) MndHom ℝfld))
87		1ex 10794	. . . . . . . . . . 11 ⊢ 1 ∈ V
88	87	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → 1 ∈ V)
89	10, 5, 88	fdmfifsupp 8973	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 finSupp 1)
90	64, 68, 75, 80, 5, 86, 10, 89	gsummhm 19277	. . . . . . . 8 ⊢ (𝜑 → (ℝfld Σg ((log ↾ ℝ+) ∘ 𝐹)) = ((log ↾ ℝ+)‘((𝑀 ↾s ℝ+) Σg 𝐹)))
91		subgsubm 18519	. . . . . . . . . 10 ⊢ (ℝ ∈ (SubGrp‘ℂfld) → ℝ ∈ (SubMnd‘ℂfld))
92	9, 91	syl 17	. . . . . . . . 9 ⊢ (𝜑 → ℝ ∈ (SubMnd‘ℂfld))
93		fco 6547	. . . . . . . . . 10 ⊢ (((log ↾ ℝ+):ℝ+⟶ℝ ∧ 𝐹:𝐴⟶ℝ+) → ((log ↾ ℝ+) ∘ 𝐹):𝐴⟶ℝ)
94	39, 10, 93	syl2anc 587	. . . . . . . . 9 ⊢ (𝜑 → ((log ↾ ℝ+) ∘ 𝐹):𝐴⟶ℝ)
95	5, 92, 94, 76	gsumsubm 18215	. . . . . . . 8 ⊢ (𝜑 → (ℂfld Σg ((log ↾ ℝ+) ∘ 𝐹)) = (ℝfld Σg ((log ↾ ℝ+) ∘ 𝐹)))
96	61	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → ℝ+ ∈ (SubMnd‘𝑀))
97	5, 96, 10, 62	gsumsubm 18215	. . . . . . . . 9 ⊢ (𝜑 → (𝑀 Σg 𝐹) = ((𝑀 ↾s ℝ+) Σg 𝐹))
98	97	fveq2d 6699	. . . . . . . 8 ⊢ (𝜑 → ((log ↾ ℝ+)‘(𝑀 Σg 𝐹)) = ((log ↾ ℝ+)‘((𝑀 ↾s ℝ+) Σg 𝐹)))
99	90, 95, 98	3eqtr4d 2781	. . . . . . 7 ⊢ (𝜑 → (ℂfld Σg ((log ↾ ℝ+) ∘ 𝐹)) = ((log ↾ ℝ+)‘(𝑀 Σg 𝐹)))
100	66, 71, 5, 96, 10, 89	gsumsubmcl 19258	. . . . . . . 8 ⊢ (𝜑 → (𝑀 Σg 𝐹) ∈ ℝ+)
101	100	fvresd 6715	. . . . . . 7 ⊢ (𝜑 → ((log ↾ ℝ+)‘(𝑀 Σg 𝐹)) = (log‘(𝑀 Σg 𝐹)))
102	47, 99, 101	3eqtrd 2775	. . . . . 6 ⊢ (𝜑 → -(ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) = (log‘(𝑀 Σg 𝐹)))
103	102	oveq1d 7206	. . . . 5 ⊢ (𝜑 → (-(ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) / (♯‘𝐴)) = ((log‘(𝑀 Σg 𝐹)) / (♯‘𝐴)))
104	100	relogcld 25465	. . . . . . 7 ⊢ (𝜑 → (log‘(𝑀 Σg 𝐹)) ∈ ℝ)
105	104	recnd 10826	. . . . . 6 ⊢ (𝜑 → (log‘(𝑀 Σg 𝐹)) ∈ ℂ)
106	105, 24, 25	divrec2d 11577	. . . . 5 ⊢ (𝜑 → ((log‘(𝑀 Σg 𝐹)) / (♯‘𝐴)) = ((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹))))
107	26, 103, 106	3eqtrd 2775	. . . 4 ⊢ (𝜑 → -((ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) / (♯‘𝐴)) = ((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹))))
108	36	oveq2d 7207	. . . . . . . . 9 ⊢ (𝜑 → (ℂfld Σg 𝐹) = (ℂfld Σg (𝑘 ∈ 𝐴 ↦ (𝐹‘𝑘))))
109	11	rpcnd 12595	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → (𝐹‘𝑘) ∈ ℂ)
110	5, 109	gsumfsum 20384	. . . . . . . . 9 ⊢ (𝜑 → (ℂfld Σg (𝑘 ∈ 𝐴 ↦ (𝐹‘𝑘))) = Σ𝑘 ∈ 𝐴 (𝐹‘𝑘))
111	108, 110	eqtrd 2771	. . . . . . . 8 ⊢ (𝜑 → (ℂfld Σg 𝐹) = Σ𝑘 ∈ 𝐴 (𝐹‘𝑘))
112	5, 20, 11	fsumrpcl 15266	. . . . . . . 8 ⊢ (𝜑 → Σ𝑘 ∈ 𝐴 (𝐹‘𝑘) ∈ ℝ+)
113	111, 112	eqeltrd 2831	. . . . . . 7 ⊢ (𝜑 → (ℂfld Σg 𝐹) ∈ ℝ+)
114	23	nnrpd 12591	. . . . . . 7 ⊢ (𝜑 → (♯‘𝐴) ∈ ℝ+)
115	113, 114	rpdivcld 12610	. . . . . 6 ⊢ (𝜑 → ((ℂfld Σg 𝐹) / (♯‘𝐴)) ∈ ℝ+)
116	115	relogcld 25465	. . . . 5 ⊢ (𝜑 → (log‘((ℂfld Σg 𝐹) / (♯‘𝐴))) ∈ ℝ)
117	18, 23	nndivred 11849	. . . . 5 ⊢ (𝜑 → ((ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) / (♯‘𝐴)) ∈ ℝ)
118		rpssre 12558	. . . . . . . . 9 ⊢ ℝ+ ⊆ ℝ
119	118	a1i 11	. . . . . . . 8 ⊢ (𝜑 → ℝ+ ⊆ ℝ)
120		relogcl 25418	. . . . . . . . . . 11 ⊢ (𝑤 ∈ ℝ+ → (log‘𝑤) ∈ ℝ)
121	120	adantl 485	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ+) → (log‘𝑤) ∈ ℝ)
122	121	renegcld 11224	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ+) → -(log‘𝑤) ∈ ℝ)
123	122	fmpttd 6910	. . . . . . . 8 ⊢ (𝜑 → (𝑤 ∈ ℝ+ ↦ -(log‘𝑤)):ℝ+⟶ℝ)
124		ioorp 12978	. . . . . . . . . . . 12 ⊢ (0(,)+∞) = ℝ+
125	124	eleq2i 2822	. . . . . . . . . . 11 ⊢ (𝑎 ∈ (0(,)+∞) ↔ 𝑎 ∈ ℝ+)
126	124	eleq2i 2822	. . . . . . . . . . 11 ⊢ (𝑏 ∈ (0(,)+∞) ↔ 𝑏 ∈ ℝ+)
127		iccssioo2 12973	. . . . . . . . . . 11 ⊢ ((𝑎 ∈ (0(,)+∞) ∧ 𝑏 ∈ (0(,)+∞)) → (𝑎[,]𝑏) ⊆ (0(,)+∞))
128	125, 126, 127	syl2anbr 602	. . . . . . . . . 10 ⊢ ((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) → (𝑎[,]𝑏) ⊆ (0(,)+∞))
129	128, 124	sseqtrdi 3937	. . . . . . . . 9 ⊢ ((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) → (𝑎[,]𝑏) ⊆ ℝ+)
130	129	adantl 485	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+)) → (𝑎[,]𝑏) ⊆ ℝ+)
131	23	nnrecred 11846	. . . . . . . . . 10 ⊢ (𝜑 → (1 / (♯‘𝐴)) ∈ ℝ)
132	114	rpreccld 12603	. . . . . . . . . . 11 ⊢ (𝜑 → (1 / (♯‘𝐴)) ∈ ℝ+)
133	132	rpge0d 12597	. . . . . . . . . 10 ⊢ (𝜑 → 0 ≤ (1 / (♯‘𝐴)))
134		elrege0 13007	. . . . . . . . . 10 ⊢ ((1 / (♯‘𝐴)) ∈ (0[,)+∞) ↔ ((1 / (♯‘𝐴)) ∈ ℝ ∧ 0 ≤ (1 / (♯‘𝐴))))
135	131, 133, 134	sylanbrc 586	. . . . . . . . 9 ⊢ (𝜑 → (1 / (♯‘𝐴)) ∈ (0[,)+∞))
136		fconst6g 6586	. . . . . . . . 9 ⊢ ((1 / (♯‘𝐴)) ∈ (0[,)+∞) → (𝐴 × {(1 / (♯‘𝐴))}):𝐴⟶(0[,)+∞))
137	135, 136	syl 17	. . . . . . . 8 ⊢ (𝜑 → (𝐴 × {(1 / (♯‘𝐴))}):𝐴⟶(0[,)+∞))
138		0lt1 11319	. . . . . . . . 9 ⊢ 0 < 1
139		fconstmpt 5596	. . . . . . . . . . 11 ⊢ (𝐴 × {(1 / (♯‘𝐴))}) = (𝑘 ∈ 𝐴 ↦ (1 / (♯‘𝐴)))
140	139	oveq2i 7202	. . . . . . . . . 10 ⊢ (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})) = (ℂfld Σg (𝑘 ∈ 𝐴 ↦ (1 / (♯‘𝐴))))
141		ringmnd 19526	. . . . . . . . . . . . 13 ⊢ (ℂfld ∈ Ring → ℂfld ∈ Mnd)
142	2, 141	mp1i 13	. . . . . . . . . . . 12 ⊢ (𝜑 → ℂfld ∈ Mnd)
143	131	recnd 10826	. . . . . . . . . . . 12 ⊢ (𝜑 → (1 / (♯‘𝐴)) ∈ ℂ)
144		eqid 2736	. . . . . . . . . . . . 13 ⊢ (.g‘ℂfld) = (.g‘ℂfld)
145	53, 144	gsumconst 19273	. . . . . . . . . . . 12 ⊢ ((ℂfld ∈ Mnd ∧ 𝐴 ∈ Fin ∧ (1 / (♯‘𝐴)) ∈ ℂ) → (ℂfld Σg (𝑘 ∈ 𝐴 ↦ (1 / (♯‘𝐴)))) = ((♯‘𝐴)(.g‘ℂfld)(1 / (♯‘𝐴))))
146	142, 5, 143, 145	syl3anc 1373	. . . . . . . . . . 11 ⊢ (𝜑 → (ℂfld Σg (𝑘 ∈ 𝐴 ↦ (1 / (♯‘𝐴)))) = ((♯‘𝐴)(.g‘ℂfld)(1 / (♯‘𝐴))))
147	23	nnzd 12246	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘𝐴) ∈ ℤ)
148		cnfldmulg 20349	. . . . . . . . . . . 12 ⊢ (((♯‘𝐴) ∈ ℤ ∧ (1 / (♯‘𝐴)) ∈ ℂ) → ((♯‘𝐴)(.g‘ℂfld)(1 / (♯‘𝐴))) = ((♯‘𝐴) · (1 / (♯‘𝐴))))
149	147, 143, 148	syl2anc 587	. . . . . . . . . . 11 ⊢ (𝜑 → ((♯‘𝐴)(.g‘ℂfld)(1 / (♯‘𝐴))) = ((♯‘𝐴) · (1 / (♯‘𝐴))))
150	24, 25	recidd 11568	. . . . . . . . . . 11 ⊢ (𝜑 → ((♯‘𝐴) · (1 / (♯‘𝐴))) = 1)
151	146, 149, 150	3eqtrd 2775	. . . . . . . . . 10 ⊢ (𝜑 → (ℂfld Σg (𝑘 ∈ 𝐴 ↦ (1 / (♯‘𝐴)))) = 1)
152	140, 151	syl5eq 2783	. . . . . . . . 9 ⊢ (𝜑 → (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})) = 1)
153	138, 152	breqtrrid 5077	. . . . . . . 8 ⊢ (𝜑 → 0 < (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})))
154		logccv 25505	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦))) < (log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))))
155	154	3adant1 1132	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦))) < (log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))))
156		ioossre 12961	. . . . . . . . . . . . . . 15 ⊢ (0(,)1) ⊆ ℝ
157		simp3 1140	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → 𝑡 ∈ (0(,)1))
158	156, 157	sseldi 3885	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → 𝑡 ∈ ℝ)
159		simp21 1208	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → 𝑥 ∈ ℝ+)
160	159	relogcld 25465	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (log‘𝑥) ∈ ℝ)
161	158, 160	remulcld 10828	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (𝑡 · (log‘𝑥)) ∈ ℝ)
162		1re 10798	. . . . . . . . . . . . . . 15 ⊢ 1 ∈ ℝ
163		resubcl 11107	. . . . . . . . . . . . . . 15 ⊢ ((1 ∈ ℝ ∧ 𝑡 ∈ ℝ) → (1 − 𝑡) ∈ ℝ)
164	162, 158, 163	sylancr 590	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (1 − 𝑡) ∈ ℝ)
165		simp22 1209	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → 𝑦 ∈ ℝ+)
166	165	relogcld 25465	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (log‘𝑦) ∈ ℝ)
167	164, 166	remulcld 10828	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((1 − 𝑡) · (log‘𝑦)) ∈ ℝ)
168	161, 167	readdcld 10827	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦))) ∈ ℝ)
169		simp1 1138	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → 𝜑)
170		ioossicc 12986	. . . . . . . . . . . . . . 15 ⊢ (0(,)1) ⊆ (0[,]1)
171	170, 157	sseldi 3885	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → 𝑡 ∈ (0[,]1))
172	119, 130	cvxcl 25821	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑡 ∈ (0[,]1))) → ((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦)) ∈ ℝ+)
173	169, 159, 165, 171, 172	syl13anc 1374	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦)) ∈ ℝ+)
174	173	relogcld 25465	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) ∈ ℝ)
175	168, 174	ltnegd 11375	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦))) < (log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) ↔ -(log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) < -((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦)))))
176	155, 175	mpbid 235	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → -(log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) < -((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦))))
177		fveq2 6695	. . . . . . . . . . . . 13 ⊢ (𝑤 = ((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦)) → (log‘𝑤) = (log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))))
178	177	negeqd 11037	. . . . . . . . . . . 12 ⊢ (𝑤 = ((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦)) → -(log‘𝑤) = -(log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))))
179		eqid 2736	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) = (𝑤 ∈ ℝ+ ↦ -(log‘𝑤))
180		negex 11041	. . . . . . . . . . . 12 ⊢ -(log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) ∈ V
181	178, 179, 180	fvmpt 6796	. . . . . . . . . . 11 ⊢ (((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦)) ∈ ℝ+ → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) = -(log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))))
182	173, 181	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) = -(log‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))))
183		fveq2 6695	. . . . . . . . . . . . . . . . 17 ⊢ (𝑤 = 𝑥 → (log‘𝑤) = (log‘𝑥))
184	183	negeqd 11037	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = 𝑥 → -(log‘𝑤) = -(log‘𝑥))
185		negex 11041	. . . . . . . . . . . . . . . 16 ⊢ -(log‘𝑥) ∈ V
186	184, 179, 185	fvmpt 6796	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ ℝ+ → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑥) = -(log‘𝑥))
187	159, 186	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑥) = -(log‘𝑥))
188	187	oveq2d 7207	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (𝑡 · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑥)) = (𝑡 · -(log‘𝑥)))
189	158	recnd 10826	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → 𝑡 ∈ ℂ)
190	160	recnd 10826	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (log‘𝑥) ∈ ℂ)
191	189, 190	mulneg2d 11251	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (𝑡 · -(log‘𝑥)) = -(𝑡 · (log‘𝑥)))
192	188, 191	eqtrd 2771	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (𝑡 · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑥)) = -(𝑡 · (log‘𝑥)))
193		fveq2 6695	. . . . . . . . . . . . . . . . 17 ⊢ (𝑤 = 𝑦 → (log‘𝑤) = (log‘𝑦))
194	193	negeqd 11037	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = 𝑦 → -(log‘𝑤) = -(log‘𝑦))
195		negex 11041	. . . . . . . . . . . . . . . 16 ⊢ -(log‘𝑦) ∈ V
196	194, 179, 195	fvmpt 6796	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ ℝ+ → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑦) = -(log‘𝑦))
197	165, 196	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑦) = -(log‘𝑦))
198	197	oveq2d 7207	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((1 − 𝑡) · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑦)) = ((1 − 𝑡) · -(log‘𝑦)))
199	164	recnd 10826	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (1 − 𝑡) ∈ ℂ)
200	166	recnd 10826	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (log‘𝑦) ∈ ℂ)
201	199, 200	mulneg2d 11251	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((1 − 𝑡) · -(log‘𝑦)) = -((1 − 𝑡) · (log‘𝑦)))
202	198, 201	eqtrd 2771	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((1 − 𝑡) · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑦)) = -((1 − 𝑡) · (log‘𝑦)))
203	192, 202	oveq12d 7209	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑡 · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑥)) + ((1 − 𝑡) · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑦))) = (-(𝑡 · (log‘𝑥)) + -((1 − 𝑡) · (log‘𝑦))))
204	161	recnd 10826	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → (𝑡 · (log‘𝑥)) ∈ ℂ)
205	167	recnd 10826	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((1 − 𝑡) · (log‘𝑦)) ∈ ℂ)
206	204, 205	negdid 11167	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → -((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦))) = (-(𝑡 · (log‘𝑥)) + -((1 − 𝑡) · (log‘𝑦))))
207	203, 206	eqtr4d 2774	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑡 · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑥)) + ((1 − 𝑡) · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑦))) = -((𝑡 · (log‘𝑥)) + ((1 − 𝑡) · (log‘𝑦))))
208	176, 182, 207	3brtr4d 5071	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 𝑦 ∈ ℝ+ ∧ 𝑥 < 𝑦) ∧ 𝑡 ∈ (0(,)1)) → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((𝑡 · 𝑥) + ((1 − 𝑡) · 𝑦))) < ((𝑡 · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑥)) + ((1 − 𝑡) · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑦))))
209	119, 123, 130, 208	scvxcvx 25822	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑢 ∈ ℝ+ ∧ 𝑣 ∈ ℝ+ ∧ 𝑠 ∈ (0[,]1))) → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((𝑠 · 𝑢) + ((1 − 𝑠) · 𝑣))) ≤ ((𝑠 · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑢)) + ((1 − 𝑠) · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘𝑣))))
210	119, 123, 130, 5, 137, 10, 153, 209	jensen 25825	. . . . . . 7 ⊢ (𝜑 → (((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))}))) ∈ ℝ+ ∧ ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})))) ≤ ((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹))) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})))))
211	210	simprd 499	. . . . . 6 ⊢ (𝜑 → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})))) ≤ ((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹))) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))}))))
212	131	adantr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → (1 / (♯‘𝐴)) ∈ ℝ)
213	139	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴 × {(1 / (♯‘𝐴))}) = (𝑘 ∈ 𝐴 ↦ (1 / (♯‘𝐴))))
214	5, 212, 11, 213, 36	offval2 7466	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹) = (𝑘 ∈ 𝐴 ↦ ((1 / (♯‘𝐴)) · (𝐹‘𝑘))))
215	214	oveq2d 7207	. . . . . . . . . . 11 ⊢ (𝜑 → (ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) = (ℂfld Σg (𝑘 ∈ 𝐴 ↦ ((1 / (♯‘𝐴)) · (𝐹‘𝑘)))))
216		cnfldadd 20322	. . . . . . . . . . . 12 ⊢ + = (+g‘ℂfld)
217		cnfldmul 20323	. . . . . . . . . . . 12 ⊢ · = (.r‘ℂfld)
218	2	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → ℂfld ∈ Ring)
219	109	fmpttd 6910	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑘 ∈ 𝐴 ↦ (𝐹‘𝑘)):𝐴⟶ℂ)
220	219, 5, 16	fdmfifsupp 8973	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑘 ∈ 𝐴 ↦ (𝐹‘𝑘)) finSupp 0)
221	53, 1, 216, 217, 218, 5, 143, 109, 220	gsummulc2 19579	. . . . . . . . . . 11 ⊢ (𝜑 → (ℂfld Σg (𝑘 ∈ 𝐴 ↦ ((1 / (♯‘𝐴)) · (𝐹‘𝑘)))) = ((1 / (♯‘𝐴)) · (ℂfld Σg (𝑘 ∈ 𝐴 ↦ (𝐹‘𝑘)))))
222		fss 6540	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹:𝐴⟶ℝ+ ∧ ℝ+ ⊆ ℝ) → 𝐹:𝐴⟶ℝ)
223	10, 118, 222	sylancl 589	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹:𝐴⟶ℝ)
224	10, 5, 16	fdmfifsupp 8973	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹 finSupp 0)
225	1, 4, 5, 9, 223, 224	gsumsubgcl 19259	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (ℂfld Σg 𝐹) ∈ ℝ)
226	225	recnd 10826	. . . . . . . . . . . . 13 ⊢ (𝜑 → (ℂfld Σg 𝐹) ∈ ℂ)
227	226, 24, 25	divrec2d 11577	. . . . . . . . . . . 12 ⊢ (𝜑 → ((ℂfld Σg 𝐹) / (♯‘𝐴)) = ((1 / (♯‘𝐴)) · (ℂfld Σg 𝐹)))
228	108	oveq2d 7207	. . . . . . . . . . . 12 ⊢ (𝜑 → ((1 / (♯‘𝐴)) · (ℂfld Σg 𝐹)) = ((1 / (♯‘𝐴)) · (ℂfld Σg (𝑘 ∈ 𝐴 ↦ (𝐹‘𝑘)))))
229	227, 228	eqtr2d 2772	. . . . . . . . . . 11 ⊢ (𝜑 → ((1 / (♯‘𝐴)) · (ℂfld Σg (𝑘 ∈ 𝐴 ↦ (𝐹‘𝑘)))) = ((ℂfld Σg 𝐹) / (♯‘𝐴)))
230	215, 221, 229	3eqtrd 2775	. . . . . . . . . 10 ⊢ (𝜑 → (ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) = ((ℂfld Σg 𝐹) / (♯‘𝐴)))
231	230, 152	oveq12d 7209	. . . . . . . . 9 ⊢ (𝜑 → ((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))}))) = (((ℂfld Σg 𝐹) / (♯‘𝐴)) / 1))
232	225, 23	nndivred 11849	. . . . . . . . . . 11 ⊢ (𝜑 → ((ℂfld Σg 𝐹) / (♯‘𝐴)) ∈ ℝ)
233	232	recnd 10826	. . . . . . . . . 10 ⊢ (𝜑 → ((ℂfld Σg 𝐹) / (♯‘𝐴)) ∈ ℂ)
234	233	div1d 11565	. . . . . . . . 9 ⊢ (𝜑 → (((ℂfld Σg 𝐹) / (♯‘𝐴)) / 1) = ((ℂfld Σg 𝐹) / (♯‘𝐴)))
235	231, 234	eqtrd 2771	. . . . . . . 8 ⊢ (𝜑 → ((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))}))) = ((ℂfld Σg 𝐹) / (♯‘𝐴)))
236	235	fveq2d 6699	. . . . . . 7 ⊢ (𝜑 → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})))) = ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
237		fveq2 6695	. . . . . . . . . 10 ⊢ (𝑤 = ((ℂfld Σg 𝐹) / (♯‘𝐴)) → (log‘𝑤) = (log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
238	237	negeqd 11037	. . . . . . . . 9 ⊢ (𝑤 = ((ℂfld Σg 𝐹) / (♯‘𝐴)) → -(log‘𝑤) = -(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
239		negex 11041	. . . . . . . . 9 ⊢ -(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))) ∈ V
240	238, 179, 239	fvmpt 6796	. . . . . . . 8 ⊢ (((ℂfld Σg 𝐹) / (♯‘𝐴)) ∈ ℝ+ → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((ℂfld Σg 𝐹) / (♯‘𝐴))) = -(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
241	115, 240	syl 17	. . . . . . 7 ⊢ (𝜑 → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((ℂfld Σg 𝐹) / (♯‘𝐴))) = -(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
242	236, 241	eqtrd 2771	. . . . . 6 ⊢ (𝜑 → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤))‘((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · 𝐹)) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))})))) = -(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
243	53, 1, 216, 217, 218, 5, 143, 31, 17	gsummulc2 19579	. . . . . . . . 9 ⊢ (𝜑 → (ℂfld Σg (𝑘 ∈ 𝐴 ↦ ((1 / (♯‘𝐴)) · -(log‘(𝐹‘𝑘))))) = ((1 / (♯‘𝐴)) · (ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘))))))
244		negex 11041	. . . . . . . . . . . 12 ⊢ -(log‘(𝐹‘𝑘)) ∈ V
245	244	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → -(log‘(𝐹‘𝑘)) ∈ V)
246		eqidd 2737	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) = (𝑤 ∈ ℝ+ ↦ -(log‘𝑤)))
247		fveq2 6695	. . . . . . . . . . . . 13 ⊢ (𝑤 = (𝐹‘𝑘) → (log‘𝑤) = (log‘(𝐹‘𝑘)))
248	247	negeqd 11037	. . . . . . . . . . . 12 ⊢ (𝑤 = (𝐹‘𝑘) → -(log‘𝑤) = -(log‘(𝐹‘𝑘)))
249	11, 36, 246, 248	fmptco 6922	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹) = (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘))))
250	5, 212, 245, 213, 249	offval2 7466	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹)) = (𝑘 ∈ 𝐴 ↦ ((1 / (♯‘𝐴)) · -(log‘(𝐹‘𝑘)))))
251	250	oveq2d 7207	. . . . . . . . 9 ⊢ (𝜑 → (ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹))) = (ℂfld Σg (𝑘 ∈ 𝐴 ↦ ((1 / (♯‘𝐴)) · -(log‘(𝐹‘𝑘))))))
252	19, 24, 25	divrec2d 11577	. . . . . . . . 9 ⊢ (𝜑 → ((ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) / (♯‘𝐴)) = ((1 / (♯‘𝐴)) · (ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘))))))
253	243, 251, 252	3eqtr4d 2781	. . . . . . . 8 ⊢ (𝜑 → (ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹))) = ((ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) / (♯‘𝐴)))
254	253, 152	oveq12d 7209	. . . . . . 7 ⊢ (𝜑 → ((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹))) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))}))) = (((ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) / (♯‘𝐴)) / 1))
255	117	recnd 10826	. . . . . . . 8 ⊢ (𝜑 → ((ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) / (♯‘𝐴)) ∈ ℂ)
256	255	div1d 11565	. . . . . . 7 ⊢ (𝜑 → (((ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) / (♯‘𝐴)) / 1) = ((ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) / (♯‘𝐴)))
257	254, 256	eqtrd 2771	. . . . . 6 ⊢ (𝜑 → ((ℂfld Σg ((𝐴 × {(1 / (♯‘𝐴))}) ∘f · ((𝑤 ∈ ℝ+ ↦ -(log‘𝑤)) ∘ 𝐹))) / (ℂfld Σg (𝐴 × {(1 / (♯‘𝐴))}))) = ((ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) / (♯‘𝐴)))
258	211, 242, 257	3brtr3d 5070	. . . . 5 ⊢ (𝜑 → -(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))) ≤ ((ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) / (♯‘𝐴)))
259	116, 117, 258	lenegcon1d 11379	. . . 4 ⊢ (𝜑 → -((ℂfld Σg (𝑘 ∈ 𝐴 ↦ -(log‘(𝐹‘𝑘)))) / (♯‘𝐴)) ≤ (log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
260	107, 259	eqbrtrrd 5063	. . 3 ⊢ (𝜑 → ((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹))) ≤ (log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))
261	131, 104	remulcld 10828	. . . 4 ⊢ (𝜑 → ((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹))) ∈ ℝ)
262		efle 15642	. . . 4 ⊢ ((((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹))) ∈ ℝ ∧ (log‘((ℂfld Σg 𝐹) / (♯‘𝐴))) ∈ ℝ) → (((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹))) ≤ (log‘((ℂfld Σg 𝐹) / (♯‘𝐴))) ↔ (exp‘((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹)))) ≤ (exp‘(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))))
263	261, 116, 262	syl2anc 587	. . 3 ⊢ (𝜑 → (((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹))) ≤ (log‘((ℂfld Σg 𝐹) / (♯‘𝐴))) ↔ (exp‘((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹)))) ≤ (exp‘(log‘((ℂfld Σg 𝐹) / (♯‘𝐴))))))
264	260, 263	mpbid 235	. 2 ⊢ (𝜑 → (exp‘((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹)))) ≤ (exp‘(log‘((ℂfld Σg 𝐹) / (♯‘𝐴)))))
265	100	rpcnd 12595	. . 3 ⊢ (𝜑 → (𝑀 Σg 𝐹) ∈ ℂ)
266	100	rpne0d 12598	. . 3 ⊢ (𝜑 → (𝑀 Σg 𝐹) ≠ 0)
267	265, 266, 143	cxpefd 25554	. 2 ⊢ (𝜑 → ((𝑀 Σg 𝐹)↑𝑐(1 / (♯‘𝐴))) = (exp‘((1 / (♯‘𝐴)) · (log‘(𝑀 Σg 𝐹)))))
268	115	reeflogd 25466	. . 3 ⊢ (𝜑 → (exp‘(log‘((ℂfld Σg 𝐹) / (♯‘𝐴)))) = ((ℂfld Σg 𝐹) / (♯‘𝐴)))
269	268	eqcomd 2742	. 2 ⊢ (𝜑 → ((ℂfld Σg 𝐹) / (♯‘𝐴)) = (exp‘(log‘((ℂfld Σg 𝐹) / (♯‘𝐴)))))
270	264, 267, 269	3brtr4d 5071	1 ⊢ (𝜑 → ((𝑀 Σg 𝐹)↑𝑐(1 / (♯‘𝐴))) ≤ ((ℂfld Σg 𝐹) / (♯‘𝐴)))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 399   ∧ w3a 1089   = wceq 1543   ∈ wcel 2112   ≠ wne 2932  Vcvv 3398   ∖ cdif 3850   ⊆ wss 3853  ∅c0 4223  {csn 4527   class class class wbr 5039   ↦ cmpt 5120   × cxp 5534   ↾ cres 5538   ∘ ccom 5540  ⟶wf 6354  –1-1-onto→wf1o 6357  ‘cfv 6358  (class class class)co 7191   ∘_f cof 7445  Fincfn 8604  ℂcc 10692  ℝcr 10693  0cc0 10694  1c1 10695   + caddc 10697   · cmul 10699  +∞cpnf 10829   < clt 10832   ≤ cle 10833   − cmin 11027  -cneg 11028   / cdiv 11454  ℕcn 11795  ℤcz 12141  ℝ⁺crp 12551  (,)cioo 12900  [,)cico 12902  [,]cicc 12903  ♯chash 13861  Σcsu 15214  expce 15586  Basecbs 16666   ↾_s cress 16667  0_gc0g 16898   Σ_g cgsu 16899  Mndcmnd 18127   MndHom cmhm 18170  SubMndcsubmnd 18171  ._gcmg 18442  SubGrpcsubg 18491   GrpHom cghm 18573   GrpIso cgim 18615  CMndccmn 19124  Abelcabl 19125  mulGrpcmgp 19458  Ringcrg 19516  CRingccrg 19517  DivRingcdr 19721  SubRingcsubrg 19750  ℂ_fldccnfld 20317  ℝ_fldcrefld 20520  logclog 25397  ↑_𝑐ccxp 25398

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2018  ax-8 2114  ax-9 2122  ax-10 2143  ax-11 2160  ax-12 2177  ax-ext 2708  ax-rep 5164  ax-sep 5177  ax-nul 5184  ax-pow 5243  ax-pr 5307  ax-un 7501  ax-inf2 9234  ax-cnex 10750  ax-resscn 10751  ax-1cn 10752  ax-icn 10753  ax-addcl 10754  ax-addrcl 10755  ax-mulcl 10756  ax-mulrcl 10757  ax-mulcom 10758  ax-addass 10759  ax-mulass 10760  ax-distr 10761  ax-i2m1 10762  ax-1ne0 10763  ax-1rid 10764  ax-rnegex 10765  ax-rrecex 10766  ax-cnre 10767  ax-pre-lttri 10768  ax-pre-lttrn 10769  ax-pre-ltadd 10770  ax-pre-mulgt0 10771  ax-pre-sup 10772  ax-addf 10773  ax-mulf 10774

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2073  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2728  df-clel 2809  df-nfc 2879  df-ne 2933  df-nel 3037  df-ral 3056  df-rex 3057  df-reu 3058  df-rmo 3059  df-rab 3060  df-v 3400  df-sbc 3684  df-csb 3799  df-dif 3856  df-un 3858  df-in 3860  df-ss 3870  df-pss 3872  df-nul 4224  df-if 4426  df-pw 4501  df-sn 4528  df-pr 4530  df-tp 4532  df-op 4534  df-uni 4806  df-int 4846  df-iun 4892  df-iin 4893  df-br 5040  df-opab 5102  df-mpt 5121  df-tr 5147  df-id 5440  df-eprel 5445  df-po 5453  df-so 5454  df-fr 5494  df-se 5495  df-we 5496  df-xp 5542  df-rel 5543  df-cnv 5544  df-co 5545  df-dm 5546  df-rn 5547  df-res 5548  df-ima 5549  df-pred 6140  df-ord 6194  df-on 6195  df-lim 6196  df-suc 6197  df-iota 6316  df-fun 6360  df-fn 6361  df-f 6362  df-f1 6363  df-fo 6364  df-f1o 6365  df-fv 6366  df-isom 6367  df-riota 7148  df-ov 7194  df-oprab 7195  df-mpo 7196  df-of 7447  df-om 7623  df-1st 7739  df-2nd 7740  df-supp 7882  df-tpos 7946  df-wrecs 8025  df-recs 8086  df-rdg 8124  df-1o 8180  df-2o 8181  df-er 8369  df-map 8488  df-pm 8489  df-ixp 8557  df-en 8605  df-dom 8606  df-sdom 8607  df-fin 8608  df-fsupp 8964  df-fi 9005  df-sup 9036  df-inf 9037  df-oi 9104  df-card 9520  df-pnf 10834  df-mnf 10835  df-xr 10836  df-ltxr 10837  df-le 10838  df-sub 11029  df-neg 11030  df-div 11455  df-nn 11796  df-2 11858  df-3 11859  df-4 11860  df-5 11861  df-6 11862  df-7 11863  df-8 11864  df-9 11865  df-n0 12056  df-z 12142  df-dec 12259  df-uz 12404  df-q 12510  df-rp 12552  df-xneg 12669  df-xadd 12670  df-xmul 12671  df-ioo 12904  df-ioc 12905  df-ico 12906  df-icc 12907  df-fz 13061  df-fzo 13204  df-fl 13332  df-mod 13408  df-seq 13540  df-exp 13601  df-fac 13805  df-bc 13834  df-hash 13862  df-shft 14595  df-cj 14627  df-re 14628  df-im 14629  df-sqrt 14763  df-abs 14764  df-limsup 14997  df-clim 15014  df-rlim 15015  df-sum 15215  df-ef 15592  df-sin 15594  df-cos 15595  df-pi 15597  df-struct 16668  df-ndx 16669  df-slot 16670  df-base 16672  df-sets 16673  df-ress 16674  df-plusg 16762  df-mulr 16763  df-starv 16764  df-sca 16765  df-vsca 16766  df-ip 16767  df-tset 16768  df-ple 16769  df-ds 16771  df-unif 16772  df-hom 16773  df-cco 16774  df-rest 16881  df-topn 16882  df-0g 16900  df-gsum 16901  df-topgen 16902  df-pt 16903  df-prds 16906  df-xrs 16961  df-qtop 16966  df-imas 16967  df-xps 16969  df-mre 17043  df-mrc 17044  df-acs 17046  df-mgm 18068  df-sgrp 18117  df-mnd 18128  df-mhm 18172  df-submnd 18173  df-grp 18322  df-minusg 18323  df-mulg 18443  df-subg 18494  df-ghm 18574  df-gim 18617  df-cntz 18665  df-cmn 19126  df-abl 19127  df-mgp 19459  df-ur 19471  df-ring 19518  df-cring 19519  df-oppr 19595  df-dvdsr 19613  df-unit 19614  df-invr 19644  df-dvr 19655  df-drng 19723  df-subrg 19752  df-psmet 20309  df-xmet 20310  df-met 20311  df-bl 20312  df-mopn 20313  df-fbas 20314  df-fg 20315  df-cnfld 20318  df-refld 20521  df-top 21745  df-topon 21762  df-topsp 21784  df-bases 21797  df-cld 21870  df-ntr 21871  df-cls 21872  df-nei 21949  df-lp 21987  df-perf 21988  df-cn 22078  df-cnp 22079  df-haus 22166  df-cmp 22238  df-tx 22413  df-hmeo 22606  df-fil 22697  df-fm 22789  df-flim 22790  df-flf 22791  df-xms 23172  df-ms 23173  df-tms 23174  df-cncf 23729  df-limc 24717  df-dv 24718  df-log 25399  df-cxp 25400

This theorem is referenced by:  amgm  25827  amgm2d  41428  amgm3d  41429  amgm4d  41430