Metamath Proof Explorer


Theorem amgm4d

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

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

Proof

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