theorem
  integral(r(#)sinh,A) = r*cosh.(upper_bound A) - r*cosh.(lower_bound A)
proof
A1: [#]REAL is open Subset of REAL;
  sinh|A is continuous & sinh|A is bounded by Lm9,Lm14,INTEGRA5:10;
  hence thesis by A1,Lm9,Th31,Th68,INTEGRA5:11,SIN_COS2:35;
end;
