theorem Th45: :: FDIFF_4:45
for Z being open Subset of REAL st Z c= dom ((id Z) (#) sin) holds
( (id Z) (#) sin is_differentiable_on Z & ( for x being Real st x in Z holds
(((id Z) (#) sin) `| Z) . x = (sin . x) + (x * (cos . x)) ) )