dom A = dom (b -leading_coeff A) by Def3;
hence not b -leading_coeff A is empty ; :: thesis: verum