theorem Th21:
  RED(a,b)*^(a hcf b) = a
proof
  a hcf b divides a by Def5;
  hence thesis by Th7;
end;
