theorem
  x*y in REAL implies x in REAL & y in REAL or x*y = 0 by Lm23;
