
theorem Th18:
  for S be non empty finite set, p be distProbFinS of S holds
  distribution(p,S) is Element of distribution_family(S) &
  (GenProbSEQ S).distribution(p,S) = p
proof
  let S be non empty finite set, p be distProbFinS of S;
  thus distribution(p,S) is Element of distribution_family(S);
  ex s be FinSequence of S st FDprobSEQ (s)=p by Def10;
  hence (GenProbSEQ S).distribution(p,S) = p by Def8;
end;
