theorem
  0 <> a implies 0 < a^2 by XREAL_1:63;
