let algebra-sqineq-2unitcircatblt1 = `!a:real b:real. a pow 2 + b pow 2 = &2 ==> a * b <= &1`;;