theorem
  Eval(p-q) = Eval(p) - Eval(q)
  proof
    thus Eval(p-q) = Eval(p) + Eval(-q) by Th55
    .= Eval(p) - Eval(q) by Th56;
  end;
