Metamath Proof Explorer


Theorem amgm2

Description: Arithmetic-geometric mean inequality for n = 2 . (Contributed by Mario Carneiro, 2-Jul-2014) (Proof shortened by AV, 9-Jul-2022)

Ref Expression
Assertion amgm2 ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A ⁢ B ≤ A + B 2

Proof

Step Hyp Ref Expression
1 2cn ⊢ 2 ∈ ℂ
2 simpll ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A ∈ ℝ
3 simprl ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → B ∈ ℝ
4 remulcl ⊢ A ∈ ℝ ∧ B ∈ ℝ → A ⁢ B ∈ ℝ
5 2 3 4 syl2anc ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A ⁢ B ∈ ℝ
6 mulge0 ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 0 ≤ A ⁢ B
7 resqrtcl ⊢ A ⁢ B ∈ ℝ ∧ 0 ≤ A ⁢ B → A ⁢ B ∈ ℝ
8 5 6 7 syl2anc ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A ⁢ B ∈ ℝ
9 8 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A ⁢ B ∈ ℂ
10 sqmul ⊢ 2 ∈ ℂ ∧ A ⁢ B ∈ ℂ → 2 ⁢ A ⁢ B 2 = 2 2 ⁢ A ⁢ B 2
11 1 9 10 sylancr ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 2 ⁢ A ⁢ B 2 = 2 2 ⁢ A ⁢ B 2
12 sq2 ⊢ 2 2 = 4
13 12 oveq1i ⊢ 2 2 ⁢ A ⁢ B 2 = 4 ⁢ A ⁢ B 2
14 5 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A ⁢ B ∈ ℂ
15 sqrtth ⊢ A ⁢ B ∈ ℂ → A ⁢ B 2 = A ⁢ B
16 14 15 syl ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A ⁢ B 2 = A ⁢ B
17 16 oveq2d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 4 ⁢ A ⁢ B 2 = 4 ⁢ A ⁢ B
18 13 17 eqtrid ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 2 2 ⁢ A ⁢ B 2 = 4 ⁢ A ⁢ B
19 11 18 eqtrd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 2 ⁢ A ⁢ B 2 = 4 ⁢ A ⁢ B
20 2 3 resubcld ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A − B ∈ ℝ
21 20 sqge0d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 0 ≤ A − B 2
22 2 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A ∈ ℂ
23 3 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → B ∈ ℂ
24 binom2 ⊢ A ∈ ℂ ∧ B ∈ ℂ → A + B 2 = A 2 + 2 ⁢ A ⁢ B + B 2
25 22 23 24 syl2anc ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A + B 2 = A 2 + 2 ⁢ A ⁢ B + B 2
26 binom2sub ⊢ A ∈ ℂ ∧ B ∈ ℂ → A − B 2 = A 2 - 2 ⁢ A ⁢ B + B 2
27 22 23 26 syl2anc ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A − B 2 = A 2 - 2 ⁢ A ⁢ B + B 2
28 25 27 oveq12d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A + B 2 − A − B 2 = A 2 + 2 ⁢ A ⁢ B + B 2 - A 2 - 2 ⁢ A ⁢ B + B 2
29 2 resqcld ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A 2 ∈ ℝ
30 2re ⊢ 2 ∈ ℝ
31 remulcl ⊢ 2 ∈ ℝ ∧ A ⁢ B ∈ ℝ → 2 ⁢ A ⁢ B ∈ ℝ
32 30 5 31 sylancr ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 2 ⁢ A ⁢ B ∈ ℝ
33 29 32 readdcld ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A 2 + 2 ⁢ A ⁢ B ∈ ℝ
34 33 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A 2 + 2 ⁢ A ⁢ B ∈ ℂ
35 29 32 resubcld ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A 2 − 2 ⁢ A ⁢ B ∈ ℝ
36 35 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A 2 − 2 ⁢ A ⁢ B ∈ ℂ
37 3 resqcld ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → B 2 ∈ ℝ
38 37 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → B 2 ∈ ℂ
39 34 36 38 pnpcan2d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A 2 + 2 ⁢ A ⁢ B + B 2 - A 2 - 2 ⁢ A ⁢ B + B 2 = A 2 + 2 ⁢ A ⁢ B - A 2 − 2 ⁢ A ⁢ B
40 32 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 2 ⁢ A ⁢ B ∈ ℂ
41 40 2timesd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 2 ⁢ 2 ⁢ A ⁢ B = 2 ⁢ A ⁢ B + 2 ⁢ A ⁢ B
42 2t2e4 ⊢ 2 ⋅ 2 = 4
43 42 oveq1i ⊢ 2 ⋅ 2 ⁢ A ⁢ B = 4 ⁢ A ⁢ B
44 2cnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 2 ∈ ℂ
45 44 44 14 mulassd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 2 ⋅ 2 ⁢ A ⁢ B = 2 ⁢ 2 ⁢ A ⁢ B
46 43 45 eqtr3id ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 4 ⁢ A ⁢ B = 2 ⁢ 2 ⁢ A ⁢ B
47 29 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A 2 ∈ ℂ
48 47 40 40 pnncand ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A 2 + 2 ⁢ A ⁢ B - A 2 − 2 ⁢ A ⁢ B = 2 ⁢ A ⁢ B + 2 ⁢ A ⁢ B
49 41 46 48 3eqtr4rd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A 2 + 2 ⁢ A ⁢ B - A 2 − 2 ⁢ A ⁢ B = 4 ⁢ A ⁢ B
50 28 39 49 3eqtrd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A + B 2 − A − B 2 = 4 ⁢ A ⁢ B
51 2 3 readdcld ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A + B ∈ ℝ
52 51 resqcld ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A + B 2 ∈ ℝ
53 52 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A + B 2 ∈ ℂ
54 20 resqcld ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A − B 2 ∈ ℝ
55 54 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A − B 2 ∈ ℂ
56 4re ⊢ 4 ∈ ℝ
57 remulcl ⊢ 4 ∈ ℝ ∧ A ⁢ B ∈ ℝ → 4 ⁢ A ⁢ B ∈ ℝ
58 56 5 57 sylancr ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 4 ⁢ A ⁢ B ∈ ℝ
59 58 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 4 ⁢ A ⁢ B ∈ ℂ
60 subsub23 ⊢ A + B 2 ∈ ℂ ∧ A − B 2 ∈ ℂ ∧ 4 ⁢ A ⁢ B ∈ ℂ → A + B 2 − A − B 2 = 4 ⁢ A ⁢ B ↔ A + B 2 − 4 ⁢ A ⁢ B = A − B 2
61 53 55 59 60 syl3anc ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A + B 2 − A − B 2 = 4 ⁢ A ⁢ B ↔ A + B 2 − 4 ⁢ A ⁢ B = A − B 2
62 50 61 mpbid ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A + B 2 − 4 ⁢ A ⁢ B = A − B 2
63 21 62 breqtrrd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 0 ≤ A + B 2 − 4 ⁢ A ⁢ B
64 52 58 subge0d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 0 ≤ A + B 2 − 4 ⁢ A ⁢ B ↔ 4 ⁢ A ⁢ B ≤ A + B 2
65 63 64 mpbid ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 4 ⁢ A ⁢ B ≤ A + B 2
66 19 65 eqbrtrd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 2 ⁢ A ⁢ B 2 ≤ A + B 2
67 remulcl ⊢ 2 ∈ ℝ ∧ A ⁢ B ∈ ℝ → 2 ⁢ A ⁢ B ∈ ℝ
68 30 8 67 sylancr ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 2 ⁢ A ⁢ B ∈ ℝ
69 sqrtge0 ⊢ A ⁢ B ∈ ℝ ∧ 0 ≤ A ⁢ B → 0 ≤ A ⁢ B
70 5 6 69 syl2anc ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 0 ≤ A ⁢ B
71 0le2 ⊢ 0 ≤ 2
72 mulge0 ⊢ 2 ∈ ℝ ∧ 0 ≤ 2 ∧ A ⁢ B ∈ ℝ ∧ 0 ≤ A ⁢ B → 0 ≤ 2 ⁢ A ⁢ B
73 30 71 72 mpanl12 ⊢ A ⁢ B ∈ ℝ ∧ 0 ≤ A ⁢ B → 0 ≤ 2 ⁢ A ⁢ B
74 8 70 73 syl2anc ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 0 ≤ 2 ⁢ A ⁢ B
75 addge0 ⊢ A ∈ ℝ ∧ B ∈ ℝ ∧ 0 ≤ A ∧ 0 ≤ B → 0 ≤ A + B
76 75 an4s ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 0 ≤ A + B
77 68 51 74 76 le2sqd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 2 ⁢ A ⁢ B ≤ A + B ↔ 2 ⁢ A ⁢ B 2 ≤ A + B 2
78 66 77 mpbird ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 2 ⁢ A ⁢ B ≤ A + B
79 2rp ⊢ 2 ∈ ℝ +
80 79 a1i ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 2 ∈ ℝ +
81 8 51 80 lemuldiv2d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → 2 ⁢ A ⁢ B ≤ A + B ↔ A ⁢ B ≤ A + B 2
82 78 81 mpbid ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B → A ⁢ B ≤ A + B 2