theorem :: FDIFF_11:8

for Z being open Subset of REAL st Z c= dom (arccot * cot) & ( for x being Real st x in Z holds
( cot . x > - 1 & cot . x < 1 ) ) holds
( arccot * cot is_differentiable_on Z & ( for x being Real st x in Z holds
((arccot * cot) `| Z) . x = 1 ) )