let algebra-amgm-sumasqdivbsqgeqsumbdiva = `!a:real b:real c:real.
    (&0 < a /\ &0 < b /\ &0 < c)
==>
    (a pow 2 / b pow 2 + b pow 2 / c pow 2 + c pow 2 / a pow 2 >= b / a + c / b + a / c)
`;;