theorem :: FDIFF_7:35
for Z being open Subset of REAL st Z c= dom (cos * exp_R) holds
( cos * exp_R is_differentiable_on Z & ( for x being Real st x in Z holds
((cos * exp_R) `| Z) . x = - ((exp_R . x) * (sin . (exp_R . x))) ) )