theorem
  support Subst(b,x,s) = support b\{x} \/ support s
proof
  support Subst(b,x,s) = support (b+*(x,0)) \/ support s by PRE_POLY:38;
  hence thesis by Th16;
end;
