reserve a, b, n for Nat,
  r for Real,
  f for FinSequence of REAL;
reserve p for Prime;

theorem
  for a, b being non zero Nat st a,b are_coprime holds
  card support pfexp (a*b) = card support pfexp a + card support pfexp b
proof
  let a, b be non zero Nat;
  assume
A1: a,b are_coprime;
  support pfexp (a*b) = support pfexp a \/ support pfexp b by Th46;
  hence thesis by A1,Th44,CARD_2:40;
end;
