reserve D for non empty set,
  i,j,k for Nat,
  n,m for Nat,
  r for Real,
  e for real-valued FinSequence;

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;
