
theorem Th7:
  support ppf 1 = {}
proof
  support pfexp 1 = {};
  hence thesis by NAT_3:def 9;
end;
