theorem :: FDIFF_8:12
for Z being open Subset of REAL st Z c= dom (tan * exp_R) holds
( tan * exp_R is_differentiable_on Z & ( for x being Real st x in Z holds
((tan * exp_R) `| Z) . x = (exp_R . x) / ((cos . (exp_R . x)) ^2) ) )