theorem
  for r be Real st 0 <= r holds (abs(f) to_power r) is
  Real-Valued-Random-Variable of Sigma
proof
  let r be Real;
  assume
A1: 0 <= r;
  abs f is nonnegative by Lm12;
  hence thesis by A1,Th23;
end;
