theorem Th48:
  W is_weight>=0of G implies cost(pe,W) >= 0
proof
  set f = RealSequence(pe,W);
  assume W is_weight>=0of G;
  then for i be Nat st i in dom f holds f.i >= 0 by Th45;
  hence thesis by RVSUM_1:84;
end;
