theorem Th54:
  m gcd (m lcm n) = m
proof
  set M = m lcm n;
  m divides M by NAT_D:def 4;
  hence thesis by Th49;
end;
