theorem
  for p being non empty ProbFinS real-valued FinSequence
  for k st k in dom p holds p.k <= 1
proof
  let p be non empty ProbFinS real-valued FinSequence;
  Sum p = 1 & for i be Nat st i in dom p holds p.i >= 0 by Def5;
  hence thesis by Th5;
end;
