Metamath Proof Explorer


Theorem amgm2d

Description: Arithmetic-geometric mean inequality for n = 2 , derived from amgmlem . (Contributed by Stanislas Polu, 8-Sep-2020)

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

Proof

Step Hyp Ref Expression
1 amgm2d.0 ⊢ φ → A ∈ ℝ +
2 amgm2d.1 ⊢ φ → B ∈ ℝ +
3 eqid ⊢ mulGrp ℂ fld = mulGrp ℂ fld
4 fzofi ⊢ 0 ..^ 2 ∈ Fin
5 4 a1i ⊢ φ → 0 ..^ 2 ∈ Fin
6 2nn ⊢ 2 ∈ ℕ
7 lbfzo0 ⊢ 0 ∈ 0 ..^ 2 ↔ 2 ∈ ℕ
8 6 7 mpbir ⊢ 0 ∈ 0 ..^ 2
9 8 ne0ii ⊢ 0 ..^ 2 ≠ ∅
10 9 a1i ⊢ φ → 0 ..^ 2 ≠ ∅
11 1 2 s2cld ⊢ φ → ⟨“ AB ”⟩ ∈ Word ℝ +
12 wrdf ⊢ ⟨“ AB ”⟩ ∈ Word ℝ + → ⟨“ AB ”⟩ : 0 ..^ ⟨“ AB ”⟩ ⟶ ℝ +
13 s2len ⊢ ⟨“ AB ”⟩ = 2
14 13 eqcomi ⊢ 2 = ⟨“ AB ”⟩
15 14 oveq2i ⊢ 0 ..^ 2 = 0 ..^ ⟨“ AB ”⟩
16 15 feq2i ⊢ ⟨“ AB ”⟩ : 0 ..^ 2 ⟶ ℝ + ↔ ⟨“ AB ”⟩ : 0 ..^ ⟨“ AB ”⟩ ⟶ ℝ +
17 12 16 sylibr ⊢ ⟨“ AB ”⟩ ∈ Word ℝ + → ⟨“ AB ”⟩ : 0 ..^ 2 ⟶ ℝ +
18 11 17 syl ⊢ φ → ⟨“ AB ”⟩ : 0 ..^ 2 ⟶ ℝ +
19 3 5 10 18 amgmlem ⊢ φ → ∑ mulGrp ℂ fld ⟨“ AB ”⟩ 1 0 ..^ 2 ≤ ∑ ℂ fld ⟨“ AB ”⟩ 0 ..^ 2
20 cnring ⊢ ℂ fld ∈ Ring
21 3 ringmgp ⊢ ℂ fld ∈ Ring → mulGrp ℂ fld ∈ Mnd
22 20 21 mp1i ⊢ φ → mulGrp ℂ fld ∈ Mnd
23 1 rpcnd ⊢ φ → A ∈ ℂ
24 2 rpcnd ⊢ φ → B ∈ ℂ
25 cnfldbas ⊢ ℂ = Base ℂ fld
26 3 25 mgpbas ⊢ ℂ = Base mulGrp ℂ fld
27 cnfldmul ⊢ × = ⋅ ℂ fld
28 3 27 mgpplusg ⊢ × = + mulGrp ℂ fld
29 26 28 gsumws2 ⊢ mulGrp ℂ fld ∈ Mnd ∧ A ∈ ℂ ∧ B ∈ ℂ → ∑ mulGrp ℂ fld ⟨“ AB ”⟩ = A ⁢ B
30 22 23 24 29 syl3anc ⊢ φ → ∑ mulGrp ℂ fld ⟨“ AB ”⟩ = A ⁢ B
31 2nn0 ⊢ 2 ∈ ℕ 0
32 hashfzo0 ⊢ 2 ∈ ℕ 0 → 0 ..^ 2 = 2
33 31 32 mp1i ⊢ φ → 0 ..^ 2 = 2
34 33 oveq2d ⊢ φ → 1 0 ..^ 2 = 1 2
35 30 34 oveq12d ⊢ φ → ∑ mulGrp ℂ fld ⟨“ AB ”⟩ 1 0 ..^ 2 = A ⁢ B 1 2
36 ringmnd ⊢ ℂ fld ∈ Ring → ℂ fld ∈ Mnd
37 20 36 mp1i ⊢ φ → ℂ fld ∈ Mnd
38 cnfldadd ⊢ + = + ℂ fld
39 25 38 gsumws2 ⊢ ℂ fld ∈ Mnd ∧ A ∈ ℂ ∧ B ∈ ℂ → ∑ ℂ fld ⟨“ AB ”⟩ = A + B
40 37 23 24 39 syl3anc ⊢ φ → ∑ ℂ fld ⟨“ AB ”⟩ = A + B
41 40 33 oveq12d ⊢ φ → ∑ ℂ fld ⟨“ AB ”⟩ 0 ..^ 2 = A + B 2
42 19 35 41 3brtr3d ⊢ φ → A ⁢ B 1 2 ≤ A + B 2