theorem :: FDIFF_8:19

for Z being open Subset of REAL st Z c= dom (ln * cot) holds
( ln * cot is_differentiable_on Z & ( for x being Real st x in Z holds
((ln * cot) `| Z) . x = - (1 / ((sin . x) * (cos . x))) ) )