theorem Th45:
  p <> 0_.F_Real implies len p = len poly_diff(p) + 1
  proof
    assume p <> z;
    then len poly_diff(p) = len p - 1 by Th44;
    hence thesis;
  end;
