let algebra-sqineq-2at2pclta2c2p41pc = `!a:real c:real. &2 * a * (&2 + c) <= a pow 2 + c pow 2 + &4 * (&1 + c)`;;