reserve a,b,c for positive Real,
  m,x,y,z for Real,
  n for Nat,
  s,s1,s2,s3,s4,s5 for Real_Sequence;

theorem
  (Partial_Sums s).n<=(Partial_Sums abs s).n
proof
  set s1=abs s;
  (Partial_Sums s).n<=|.(Partial_Sums s).n.| & |.(Partial_Sums s).n.|<=(
  Partial_Sums s1).n by Th41,ABSVALUE:4;
  hence thesis by XXREAL_0:2;
end;
