---

Step * 1 1 1 2 1 2 1 of Lemma arith-geom-mean-inequality


1. x : {t:ℝ| r0 ≤ t} 
2. y : {t:ℝ| r0 ≤ t} 
3. ((x - y) * (x - y)) = (((x + y) * (x + y)) + (r(-4) * x * y))
4. r0 ≤ (((x + y) * (x + y)) + (r(-4) * x * y))
5. x ≠ y
6. r0 < (((x + y) * (x + y)) + (r(-4) * x * y))
7. (r(4) * x * y) < ((x + y) * (x + y))
⊢ (r(2) * rsqrt(x * y)) < (x + y)
BY
{ (Assert rsqrt(r(4) * x * y) < rsqrt((x + y) * (x + y)) BY
         (BLemma `rsqrt_functionality_wrt_rless` THEN Auto)) }

1
1. x : {t:ℝ| r0 ≤ t} 
2. y : {t:ℝ| r0 ≤ t} 
3. ((x - y) * (x - y)) = (((x + y) * (x + y)) + (r(-4) * x * y))
4. r0 ≤ (((x + y) * (x + y)) + (r(-4) * x * y))
5. x ≠ y
6. r0 < (((x + y) * (x + y)) + (r(-4) * x * y))
7. (r(4) * x * y) < ((x + y) * (x + y))
8. rsqrt(r(4) * x * y) < rsqrt((x + y) * (x + y))
⊢ (r(2) * rsqrt(x * y)) < (x + y)

---

Latex:

---

Latex:

1.  x  :  \{t:\mBbbR{}|  r0  \mleq{}  t\} 
2.  y  :  \{t:\mBbbR{}|  r0  \mleq{}  t\} 
3.  ((x  -  y)  *  (x  -  y))  =  (((x  +  y)  *  (x  +  y))  +  (r(-4)  *  x  *  y))
4.  r0  \mleq{}  (((x  +  y)  *  (x  +  y))  +  (r(-4)  *  x  *  y))
5.  x  \mneq{}  y
6.  r0  <  (((x  +  y)  *  (x  +  y))  +  (r(-4)  *  x  *  y))
7.  (r(4)  *  x  *  y)  <  ((x  +  y)  *  (x  +  y))
\mvdash{}  (r(2)  *  rsqrt(x  *  y))  <  (x  +  y)


By

---

Latex:
(Assert  rsqrt(r(4)  *  x  *  y)  <  rsqrt((x  +  y)  *  (x  +  y))  BY
              (BLemma  `rsqrt\_functionality\_wrt\_rless`  THEN  Auto))

---

Home Index