let algebra-amgm-faxinrrp2msqrt2geq2mxm1div2x = `!x:real.
    (x > &0)
==>
    &2 - sqrt(&2) >= &2 - x - &1 / (&2 * x)
`;;