Metamath Proof Explorer


Theorem amgm3d

Description: Arithmetic-geometric mean inequality for n = 3 . (Contributed by Stanislas Polu, 11-Sep-2020)

Ref Expression
Hypotheses amgm3d.0 ⊢ φ → A ∈ ℝ +
amgm3d.1 ⊢ φ → B ∈ ℝ +
amgm3d.2 ⊢ φ → C ∈ ℝ +
Assertion amgm3d ⊢ φ → A ⁢ B ⁢ C 1 3 ≤ A + B + C 3

Proof

Step Hyp Ref Expression
1 amgm3d.0 ⊢ φ → A ∈ ℝ +
2 amgm3d.1 ⊢ φ → B ∈ ℝ +
3 amgm3d.2 ⊢ φ → C ∈ ℝ +
4 eqid ⊢ mulGrp ℂ fld = mulGrp ℂ fld
5 fzofi ⊢ 0 ..^ 3 ∈ Fin
6 5 a1i ⊢ φ → 0 ..^ 3 ∈ Fin
7 3nn ⊢ 3 ∈ ℕ
8 lbfzo0 ⊢ 0 ∈ 0 ..^ 3 ↔ 3 ∈ ℕ
9 7 8 mpbir ⊢ 0 ∈ 0 ..^ 3
10 ne0i ⊢ 0 ∈ 0 ..^ 3 → 0 ..^ 3 ≠ ∅
11 9 10 mp1i ⊢ φ → 0 ..^ 3 ≠ ∅
12 1 2 3 s3cld ⊢ φ → ⟨“ ABC ”⟩ ∈ Word ℝ +
13 wrdf ⊢ ⟨“ ABC ”⟩ ∈ Word ℝ + → ⟨“ ABC ”⟩ : 0 ..^ ⟨“ ABC ”⟩ ⟶ ℝ +
14 s3len ⊢ ⟨“ ABC ”⟩ = 3
15 df-3 ⊢ 3 = 2 + 1
16 14 15 eqtri ⊢ ⟨“ ABC ”⟩ = 2 + 1
17 16 oveq2i ⊢ 0 ..^ ⟨“ ABC ”⟩ = 0 ..^ 2 + 1
18 17 feq2i ⊢ ⟨“ ABC ”⟩ : 0 ..^ ⟨“ ABC ”⟩ ⟶ ℝ + ↔ ⟨“ ABC ”⟩ : 0 ..^ 2 + 1 ⟶ ℝ +
19 13 18 sylib ⊢ ⟨“ ABC ”⟩ ∈ Word ℝ + → ⟨“ ABC ”⟩ : 0 ..^ 2 + 1 ⟶ ℝ +
20 15 oveq2i ⊢ 0 ..^ 3 = 0 ..^ 2 + 1
21 20 feq2i ⊢ ⟨“ ABC ”⟩ : 0 ..^ 3 ⟶ ℝ + ↔ ⟨“ ABC ”⟩ : 0 ..^ 2 + 1 ⟶ ℝ +
22 19 21 sylibr ⊢ ⟨“ ABC ”⟩ ∈ Word ℝ + → ⟨“ ABC ”⟩ : 0 ..^ 3 ⟶ ℝ +
23 12 22 syl ⊢ φ → ⟨“ ABC ”⟩ : 0 ..^ 3 ⟶ ℝ +
24 4 6 11 23 amgmlem ⊢ φ → ∑ mulGrp ℂ fld ⟨“ ABC ”⟩ 1 0 ..^ 3 ≤ ∑ ℂ fld ⟨“ ABC ”⟩ 0 ..^ 3
25 cnring ⊢ ℂ fld ∈ Ring
26 4 ringmgp ⊢ ℂ fld ∈ Ring → mulGrp ℂ fld ∈ Mnd
27 25 26 mp1i ⊢ φ → mulGrp ℂ fld ∈ Mnd
28 1 rpcnd ⊢ φ → A ∈ ℂ
29 2 rpcnd ⊢ φ → B ∈ ℂ
30 3 rpcnd ⊢ φ → C ∈ ℂ
31 28 29 30 jca32 ⊢ φ → A ∈ ℂ ∧ B ∈ ℂ ∧ C ∈ ℂ
32 cnfldbas ⊢ ℂ = Base ℂ fld
33 4 32 mgpbas ⊢ ℂ = Base mulGrp ℂ fld
34 cnfldmul ⊢ × = ⋅ ℂ fld
35 4 34 mgpplusg ⊢ × = + mulGrp ℂ fld
36 33 35 gsumws3 ⊢ mulGrp ℂ fld ∈ Mnd ∧ A ∈ ℂ ∧ B ∈ ℂ ∧ C ∈ ℂ → ∑ mulGrp ℂ fld ⟨“ ABC ”⟩ = A ⁢ B ⁢ C
37 27 31 36 syl2anc ⊢ φ → ∑ mulGrp ℂ fld ⟨“ ABC ”⟩ = A ⁢ B ⁢ C
38 3nn0 ⊢ 3 ∈ ℕ 0
39 hashfzo0 ⊢ 3 ∈ ℕ 0 → 0 ..^ 3 = 3
40 38 39 mp1i ⊢ φ → 0 ..^ 3 = 3
41 40 oveq2d ⊢ φ → 1 0 ..^ 3 = 1 3
42 37 41 oveq12d ⊢ φ → ∑ mulGrp ℂ fld ⟨“ ABC ”⟩ 1 0 ..^ 3 = A ⁢ B ⁢ C 1 3
43 ringmnd ⊢ ℂ fld ∈ Ring → ℂ fld ∈ Mnd
44 25 43 mp1i ⊢ φ → ℂ fld ∈ Mnd
45 cnfldadd ⊢ + = + ℂ fld
46 32 45 gsumws3 ⊢ ℂ fld ∈ Mnd ∧ A ∈ ℂ ∧ B ∈ ℂ ∧ C ∈ ℂ → ∑ ℂ fld ⟨“ ABC ”⟩ = A + B + C
47 44 31 46 syl2anc ⊢ φ → ∑ ℂ fld ⟨“ ABC ”⟩ = A + B + C
48 47 40 oveq12d ⊢ φ → ∑ ℂ fld ⟨“ ABC ”⟩ 0 ..^ 3 = A + B + C 3
49 24 42 48 3brtr3d ⊢ φ → A ⁢ B ⁢ C 1 3 ≤ A + B + C 3