let A be closed-interval Subset of REAL ; :: thesis: for r being Real holds integral (r (#) cosh ),A = (r * (sinh . (upper_bound A))) - (r * (sinh . (lower_bound A)))
let r be Real; :: thesis: integral (r (#) cosh ),A = (r * (sinh . (upper_bound A))) - (r * (sinh . (lower_bound A)))
X: A c= dom cosh by D6;
cosh | A is continuous by Lm12;
then A1: ( cosh is_integrable_on A & cosh | A is bounded ) by X, INTEGRA5:10, INTEGRA5:11;
[#] REAL is open Subset of REAL ;
hence integral (r (#) cosh ),A = (r * (sinh . (upper_bound A))) - (r * (sinh . (lower_bound A))) by A1, Th30, Th68, SIN_COS2:34; :: thesis: verum