reserve a, a9, a1, a2, a3, b, b9, c, c9, d, d9, h, p, q, x, x1, x2, x3, u, v,
  y, z for Real;

theorem
  for b being Complex holds b <> 0 implies not ex x being Complex
 st Polynom(0,b,x) = 0;
