
theorem PosLeq:
  for f being non empty constant positive real-valued FinSequence holds
    the_value_of f > 0
  proof
    let f be non empty constant positive real-valued FinSequence;
    consider x being set such that
A1: x in dom f & the_value_of f = f.x by FUNCT_1:def 12;
    thus thesis by A1,PosDef;
  end;
