Processing math: 1%
:: Several Differentiation Formulas of Special Functions -- Part {VII}
:: by Fuguo Ge and Bing Xie
::
:: Received September 23, 2008
:: Copyright (c) 2008-2021 Association of Mizar Users
::f.x=arctan.
sin.x
theorem
:: FDIFF_11:1
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
arctan
*
sin
)
& ( for
x
being
Real
st
x
in
Z
holds
(
sin
.
x
>
-
1 &
sin
.
x
<
1 ) ) holds
(
arctan
*
sin
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arctan
*
sin
)
`|
Z
)
.
x
=
(
cos
.
x
)
/
(
1
+
(
(
sin
.
x
)
^2
)
)
) )
proof
end;
::f.x=arccot.
sin.x
theorem
:: FDIFF_11:2
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
arccot
*
sin
)
& ( for
x
being
Real
st
x
in
Z
holds
(
sin
.
x
>
-
1 &
sin
.
x
<
1 ) ) holds
(
arccot
*
sin
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arccot
*
sin
)
`|
Z
)
.
x
=
-
(
(
cos
.
x
)
/
(
1
+
(
(
sin
.
x
)
^2
)
)
)
) )
proof
end;
::f.x=arctan.
cos.x
theorem
:: FDIFF_11:3
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
arctan
*
cos
)
& ( for
x
being
Real
st
x
in
Z
holds
(
cos
.
x
>
-
1 &
cos
.
x
<
1 ) ) holds
(
arctan
*
cos
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arctan
*
cos
)
`|
Z
)
.
x
=
-
(
(
sin
.
x
)
/
(
1
+
(
(
cos
.
x
)
^2
)
)
)
) )
proof
end;
::f.x=arccot.
cos.x
theorem
:: FDIFF_11:4
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
arccot
*
cos
)
& ( for
x
being
Real
st
x
in
Z
holds
(
cos
.
x
>
-
1 &
cos
.
x
<
1 ) ) holds
(
arccot
*
cos
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arccot
*
cos
)
`|
Z
)
.
x
=
(
sin
.
x
)
/
(
1
+
(
(
cos
.
x
)
^2
)
)
) )
proof
end;
::f.x=arctan.
tan.x
theorem
:: FDIFF_11:5
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
arctan
*
tan
)
& ( for
x
being
Real
st
x
in
Z
holds
(
tan
.
x
>
-
1 &
tan
.
x
<
1 ) ) holds
(
arctan
*
tan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arctan
*
tan
)
`|
Z
)
.
x
=
1 ) )
proof
end;
::f.x=arccot.
tan.x
theorem
:: FDIFF_11:6
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
arccot
*
tan
)
& ( for
x
being
Real
st
x
in
Z
holds
(
tan
.
x
>
-
1 &
tan
.
x
<
1 ) ) holds
(
arccot
*
tan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arccot
*
tan
)
`|
Z
)
.
x
=
-
1 ) )
proof
end;
::f.x=arctan.
cot.x
theorem
:: FDIFF_11:7
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
arctan
*
cot
)
& ( for
x
being
Real
st
x
in
Z
holds
(
cot
.
x
>
-
1 &
cot
.
x
<
1 ) ) holds
(
arctan
*
cot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arctan
*
cot
)
`|
Z
)
.
x
=
-
1 ) )
proof
end;
::f.x=arccot.
cot.x
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 ) )
proof
end;
::f.x=arctan.
arctan.x
theorem
:: FDIFF_11:9
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
arctan
*
arctan
)
&
Z
c=
].
(
-
1
)
,1
.[
& ( for
x
being
Real
st
x
in
Z
holds
(
arctan
.
x
>
-
1 &
arctan
.
x
<
1 ) ) holds
(
arctan
*
arctan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arctan
*
arctan
)
`|
Z
)
.
x
=
1
/
(
(
1
+
(
x
^2
)
)
*
(
1
+
(
(
arctan
.
x
)
^2
)
)
)
) )
proof
end;
::f.x=arccot.
arctan.x
theorem
:: FDIFF_11:10
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
arccot
*
arctan
)
&
Z
c=
].
(
-
1
)
,1
.[
& ( for
x
being
Real
st
x
in
Z
holds
(
arctan
.
x
>
-
1 &
arctan
.
x
<
1 ) ) holds
(
arccot
*
arctan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arccot
*
arctan
)
`|
Z
)
.
x
=
-
(
1
/
(
(
1
+
(
x
^2
)
)
*
(
1
+
(
(
arctan
.
x
)
^2
)
)
)
)
) )
proof
end;
::f.x=arctan.
arccot.x
theorem
:: FDIFF_11:11
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
arctan
*
arccot
)
&
Z
c=
].
(
-
1
)
,1
.[
& ( for
x
being
Real
st
x
in
Z
holds
(
arccot
.
x
>
-
1 &
arccot
.
x
<
1 ) ) holds
(
arctan
*
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arctan
*
arccot
)
`|
Z
)
.
x
=
-
(
1
/
(
(
1
+
(
x
^2
)
)
*
(
1
+
(
(
arccot
.
x
)
^2
)
)
)
)
) )
proof
end;
::f.x=arccot.
arccot.x
theorem
:: FDIFF_11:12
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
arccot
*
arccot
)
&
Z
c=
].
(
-
1
)
,1
.[
& ( for
x
being
Real
st
x
in
Z
holds
(
arccot
.
x
>
-
1 &
arccot
.
x
<
1 ) ) holds
(
arccot
*
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arccot
*
arccot
)
`|
Z
)
.
x
=
1
/
(
(
1
+
(
x
^2
)
)
*
(
1
+
(
(
arccot
.
x
)
^2
)
)
)
) )
proof
end;
::f.x=sin.
arctan.x
theorem
:: FDIFF_11:13
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
sin
*
arctan
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
sin
*
arctan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
sin
*
arctan
)
`|
Z
)
.
x
=
(
cos
.
(
arctan
.
x
)
)
/
(
1
+
(
x
^2
)
)
) )
proof
end;
::f.x=sin.
arccot.x
theorem
:: FDIFF_11:14
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
sin
*
arccot
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
sin
*
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
sin
*
arccot
)
`|
Z
)
.
x
=
-
(
(
cos
.
(
arccot
.
x
)
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=cos.
arctan.x
theorem
:: FDIFF_11:15
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
cos
*
arctan
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cos
*
arctan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cos
*
arctan
)
`|
Z
)
.
x
=
-
(
(
sin
.
(
arctan
.
x
)
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=cos.
arccot.x
theorem
:: FDIFF_11:16
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
cos
*
arccot
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cos
*
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cos
*
arccot
)
`|
Z
)
.
x
=
(
sin
.
(
arccot
.
x
)
)
/
(
1
+
(
x
^2
)
)
) )
proof
end;
::f.x=tan.
arctan.x
theorem
:: FDIFF_11:17
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
tan
*
arctan
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
tan
*
arctan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
tan
*
arctan
)
`|
Z
)
.
x
=
1
/
(
(
(
cos
.
(
arctan
.
x
)
)
^2
)
*
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=tan.
arccot.x
theorem
:: FDIFF_11:18
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
tan
*
arccot
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
tan
*
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
tan
*
arccot
)
`|
Z
)
.
x
=
-
(
1
/
(
(
(
cos
.
(
arccot
.
x
)
)
^2
)
*
(
1
+
(
x
^2
)
)
)
)
) )
proof
end;
::f.x=cot.
arctan.x
theorem
:: FDIFF_11:19
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
cot
*
arctan
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cot
*
arctan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cot
*
arctan
)
`|
Z
)
.
x
=
-
(
1
/
(
(
(
sin
.
(
arctan
.
x
)
)
^2
)
*
(
1
+
(
x
^2
)
)
)
)
) )
proof
end;
::f.x=cot.
arccot.x
theorem
:: FDIFF_11:20
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
cot
*
arccot
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cot
*
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cot
*
arccot
)
`|
Z
)
.
x
=
1
/
(
(
(
sin
.
(
arccot
.
x
)
)
^2
)
*
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=sec.
arctan.x
theorem
:: FDIFF_11:21
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
sec
*
arctan
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
sec
*
arctan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
sec
*
arctan
)
`|
Z
)
.
x
=
(
sin
.
(
arctan
.
x
)
)
/
(
(
(
cos
.
(
arctan
.
x
)
)
^2
)
*
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=sec.
arccot.x
theorem
:: FDIFF_11:22
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
sec
*
arccot
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
sec
*
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
sec
*
arccot
)
`|
Z
)
.
x
=
-
(
(
sin
.
(
arccot
.
x
)
)
/
(
(
(
cos
.
(
arccot
.
x
)
)
^2
)
*
(
1
+
(
x
^2
)
)
)
)
) )
proof
end;
::f.x=cosec.
arctan.x
theorem
:: FDIFF_11:23
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
cosec
*
arctan
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cosec
*
arctan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cosec
*
arctan
)
`|
Z
)
.
x
=
-
(
(
cos
.
(
arctan
.
x
)
)
/
(
(
(
sin
.
(
arctan
.
x
)
)
^2
)
*
(
1
+
(
x
^2
)
)
)
)
) )
proof
end;
::f.x=cosec.
arccot.x
theorem
:: FDIFF_11:24
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
cosec
*
arccot
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cosec
*
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cosec
*
arccot
)
`|
Z
)
.
x
=
(
cos
.
(
arccot
.
x
)
)
/
(
(
(
sin
.
(
arccot
.
x
)
)
^2
)
*
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=sin.x*arctan.x
theorem
:: FDIFF_11:25
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
sin
(#)
arctan
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
sin
(#)
arctan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
sin
(#)
arctan
)
`|
Z
)
.
x
=
(
(
cos
.
x
)
*
(
arctan
.
x
)
)
+
(
(
sin
.
x
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=sin.x*arccot.x
theorem
:: FDIFF_11:26
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
sin
(#)
arccot
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
sin
(#)
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
sin
(#)
arccot
)
`|
Z
)
.
x
=
(
(
cos
.
x
)
*
(
arccot
.
x
)
)
-
(
(
sin
.
x
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=cos.x*arctan.x
theorem
:: FDIFF_11:27
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
cos
(#)
arctan
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cos
(#)
arctan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cos
(#)
arctan
)
`|
Z
)
.
x
=
(
-
(
(
sin
.
x
)
*
(
arctan
.
x
)
)
)
+
(
(
cos
.
x
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=cos.x*arccot.x
theorem
:: FDIFF_11:28
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
cos
(#)
arccot
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cos
(#)
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cos
(#)
arccot
)
`|
Z
)
.
x
=
(
-
(
(
sin
.
x
)
*
(
arccot
.
x
)
)
)
-
(
(
cos
.
x
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=tan.x*arctan.x
theorem
:: FDIFF_11:29
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
tan
(#)
arctan
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
tan
(#)
arctan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
tan
(#)
arctan
)
`|
Z
)
.
x
=
(
(
arctan
.
x
)
/
(
(
cos
.
x
)
^2
)
)
+
(
(
tan
.
x
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=tan.x*arccot.x
theorem
:: FDIFF_11:30
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
tan
(#)
arccot
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
tan
(#)
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
tan
(#)
arccot
)
`|
Z
)
.
x
=
(
(
arccot
.
x
)
/
(
(
cos
.
x
)
^2
)
)
-
(
(
tan
.
x
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=cot.x*arctan.x
theorem
:: FDIFF_11:31
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
cot
(#)
arctan
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cot
(#)
arctan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cot
(#)
arctan
)
`|
Z
)
.
x
=
(
-
(
(
arctan
.
x
)
/
(
(
sin
.
x
)
^2
)
)
)
+
(
(
cot
.
x
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=cot.x*arccot.x
theorem
:: FDIFF_11:32
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
cot
(#)
arccot
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cot
(#)
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cot
(#)
arccot
)
`|
Z
)
.
x
=
(
-
(
(
arccot
.
x
)
/
(
(
sin
.
x
)
^2
)
)
)
-
(
(
cot
.
x
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=sec.x*arctan.x
theorem
:: FDIFF_11:33
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
sec
(#)
arctan
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
sec
(#)
arctan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
sec
(#)
arctan
)
`|
Z
)
.
x
=
(
(
(
sin
.
x
)
*
(
arctan
.
x
)
)
/
(
(
cos
.
x
)
^2
)
)
+
(
1
/
(
(
cos
.
x
)
*
(
1
+
(
x
^2
)
)
)
)
) )
proof
end;
::f.x=sec.x*arccot.x
theorem
:: FDIFF_11:34
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
sec
(#)
arccot
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
sec
(#)
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
sec
(#)
arccot
)
`|
Z
)
.
x
=
(
(
(
sin
.
x
)
*
(
arccot
.
x
)
)
/
(
(
cos
.
x
)
^2
)
)
-
(
1
/
(
(
cos
.
x
)
*
(
1
+
(
x
^2
)
)
)
)
) )
proof
end;
::f.x=cosec.x*arctan.x
theorem
:: FDIFF_11:35
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
cosec
(#)
arctan
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cosec
(#)
arctan
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cosec
(#)
arctan
)
`|
Z
)
.
x
=
(
-
(
(
(
cos
.
x
)
*
(
arctan
.
x
)
)
/
(
(
sin
.
x
)
^2
)
)
)
+
(
1
/
(
(
sin
.
x
)
*
(
1
+
(
x
^2
)
)
)
)
) )
proof
end;
::f.x=cosec.x*arccot.x
theorem
:: FDIFF_11:36
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
cosec
(#)
arccot
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cosec
(#)
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cosec
(#)
arccot
)
`|
Z
)
.
x
=
(
-
(
(
(
cos
.
x
)
*
(
arccot
.
x
)
)
/
(
(
sin
.
x
)
^2
)
)
)
-
(
1
/
(
(
sin
.
x
)
*
(
1
+
(
x
^2
)
)
)
)
) )
proof
end;
::f.x=arctan.x+arccot.x
theorem
Th37
:
:: FDIFF_11:37
for
Z
being
open
Subset
of
REAL
st
Z
c=
].
(
-
1
)
,1
.[
holds
(
arctan
+
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arctan
+
arccot
)
`|
Z
)
.
x
=
0
) )
proof
end;
::f.x=arctan.x-arccot.x
theorem
Th38
:
:: FDIFF_11:38
for
Z
being
open
Subset
of
REAL
st
Z
c=
].
(
-
1
)
,1
.[
holds
(
arctan
-
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arctan
-
arccot
)
`|
Z
)
.
x
=
2
/
(
1
+
(
x
^2
)
)
) )
proof
end;
::f.x=sin.x*
arctan.x+arccot.x
theorem
:: FDIFF_11:39
for
Z
being
open
Subset
of
REAL
st
Z
c=
].
(
-
1
)
,1
.[
holds
(
sin
(#)
(
arctan
+
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
sin
(#)
(
arctan
+
arccot
)
)
`|
Z
)
.
x
=
(
cos
.
x
)
*
(
(
arctan
.
x
)
+
(
arccot
.
x
)
)
) )
proof
end;
::f.x=sin.x*
arctan.x-arccot.x
theorem
:: FDIFF_11:40
for
Z
being
open
Subset
of
REAL
st
Z
c=
].
(
-
1
)
,1
.[
holds
(
sin
(#)
(
arctan
-
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
sin
(#)
(
arctan
-
arccot
)
)
`|
Z
)
.
x
=
(
(
cos
.
x
)
*
(
(
arctan
.
x
)
-
(
arccot
.
x
)
)
)
+
(
(
2
*
(
sin
.
x
)
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=cos.x*
arctan.x+arccot.x
theorem
:: FDIFF_11:41
for
Z
being
open
Subset
of
REAL
st
Z
c=
].
(
-
1
)
,1
.[
holds
(
cos
(#)
(
arctan
+
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cos
(#)
(
arctan
+
arccot
)
)
`|
Z
)
.
x
=
-
(
(
sin
.
x
)
*
(
(
arctan
.
x
)
+
(
arccot
.
x
)
)
)
) )
proof
end;
::f.x=cos.x*
arctan.x-arccot.x
theorem
:: FDIFF_11:42
for
Z
being
open
Subset
of
REAL
st
Z
c=
].
(
-
1
)
,1
.[
holds
(
cos
(#)
(
arctan
-
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cos
(#)
(
arctan
-
arccot
)
)
`|
Z
)
.
x
=
(
-
(
(
sin
.
x
)
*
(
(
arctan
.
x
)
-
(
arccot
.
x
)
)
)
)
+
(
(
2
*
(
cos
.
x
)
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=tan.x*
arctan.x+arccot.x
theorem
:: FDIFF_11:43
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
tan
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
tan
(#)
(
arctan
+
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
tan
(#)
(
arctan
+
arccot
)
)
`|
Z
)
.
x
=
(
(
arctan
.
x
)
+
(
arccot
.
x
)
)
/
(
(
cos
.
x
)
^2
)
) )
proof
end;
::f.x=tan.x*
arctan.x-arccot.x
theorem
:: FDIFF_11:44
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
tan
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
tan
(#)
(
arctan
-
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
tan
(#)
(
arctan
-
arccot
)
)
`|
Z
)
.
x
=
(
(
(
arctan
.
x
)
-
(
arccot
.
x
)
)
/
(
(
cos
.
x
)
^2
)
)
+
(
(
2
*
(
tan
.
x
)
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=cot.x*
arctan.x+arccot.x
theorem
:: FDIFF_11:45
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
cot
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cot
(#)
(
arctan
+
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cot
(#)
(
arctan
+
arccot
)
)
`|
Z
)
.
x
=
-
(
(
(
arctan
.
x
)
+
(
arccot
.
x
)
)
/
(
(
sin
.
x
)
^2
)
)
) )
proof
end;
::f.x=cot.x*
arctan.x-arccot.x
theorem
:: FDIFF_11:46
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
cot
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cot
(#)
(
arctan
-
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cot
(#)
(
arctan
-
arccot
)
)
`|
Z
)
.
x
=
(
-
(
(
(
arctan
.
x
)
-
(
arccot
.
x
)
)
/
(
(
sin
.
x
)
^2
)
)
)
+
(
(
2
*
(
cot
.
x
)
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=sec.x*
arctan.x+arccot.x
theorem
:: FDIFF_11:47
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
sec
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
sec
(#)
(
arctan
+
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
sec
(#)
(
arctan
+
arccot
)
)
`|
Z
)
.
x
=
(
(
(
arctan
.
x
)
+
(
arccot
.
x
)
)
*
(
sin
.
x
)
)
/
(
(
cos
.
x
)
^2
)
) )
proof
end;
::f.x=sec.x*
arctan.x-arccot.x
theorem
:: FDIFF_11:48
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
sec
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
sec
(#)
(
arctan
-
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
sec
(#)
(
arctan
-
arccot
)
)
`|
Z
)
.
x
=
(
(
(
(
arctan
.
x
)
-
(
arccot
.
x
)
)
*
(
sin
.
x
)
)
/
(
(
cos
.
x
)
^2
)
)
+
(
(
2
*
(
sec
.
x
)
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=cosec.x*
arctan.x+arccot.x
theorem
:: FDIFF_11:49
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
cosec
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cosec
(#)
(
arctan
+
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cosec
(#)
(
arctan
+
arccot
)
)
`|
Z
)
.
x
=
-
(
(
(
(
arctan
.
x
)
+
(
arccot
.
x
)
)
*
(
cos
.
x
)
)
/
(
(
sin
.
x
)
^2
)
)
) )
proof
end;
::f.x=cosec.x*
arctan.x-arccot.x
theorem
:: FDIFF_11:50
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
cosec
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cosec
(#)
(
arctan
-
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cosec
(#)
(
arctan
-
arccot
)
)
`|
Z
)
.
x
=
(
-
(
(
(
(
arctan
.
x
)
-
(
arccot
.
x
)
)
*
(
cos
.
x
)
)
/
(
(
sin
.
x
)
^2
)
)
)
+
(
(
2
*
(
cosec
.
x
)
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=exp_R.x*
arctan.x+arccot.x
theorem
:: FDIFF_11:51
for
Z
being
open
Subset
of
REAL
st
Z
c=
].
(
-
1
)
,1
.[
holds
(
exp_R
(#)
(
arctan
+
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
exp_R
(#)
(
arctan
+
arccot
)
)
`|
Z
)
.
x
=
(
exp_R
.
x
)
*
(
(
arctan
.
x
)
+
(
arccot
.
x
)
)
) )
proof
end;
::f.x=exp_R.x*
arctan.x-arccot.x
theorem
:: FDIFF_11:52
for
Z
being
open
Subset
of
REAL
st
Z
c=
].
(
-
1
)
,1
.[
holds
(
exp_R
(#)
(
arctan
-
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
exp_R
(#)
(
arctan
-
arccot
)
)
`|
Z
)
.
x
=
(
(
exp_R
.
x
)
*
(
(
arctan
.
x
)
-
(
arccot
.
x
)
)
)
+
(
(
2
*
(
exp_R
.
x
)
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=
arctan.x+arccot.x
/exp_R.x
theorem
:: FDIFF_11:53
for
Z
being
open
Subset
of
REAL
st
Z
c=
].
(
-
1
)
,1
.[
holds
(
(
arctan
+
arccot
)
/
exp_R
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
(
arctan
+
arccot
)
/
exp_R
)
`|
Z
)
.
x
=
-
(
(
(
arctan
.
x
)
+
(
arccot
.
x
)
)
/
(
exp_R
.
x
)
)
) )
proof
end;
::f.x=
arctan.x-arccot.x
/exp_R.x
theorem
:: FDIFF_11:54
for
Z
being
open
Subset
of
REAL
st
Z
c=
].
(
-
1
)
,1
.[
holds
(
(
arctan
-
arccot
)
/
exp_R
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
(
arctan
-
arccot
)
/
exp_R
)
`|
Z
)
.
x
=
(
(
(
2
/
(
1
+
(
x
^2
)
)
)
-
(
arctan
.
x
)
)
+
(
arccot
.
x
)
)
/
(
exp_R
.
x
)
) )
proof
end;
::f.x=exp_R.
arctan.x+arccot.x
theorem
:: FDIFF_11:55
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
exp_R
*
(
arctan
+
arccot
)
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
exp_R
*
(
arctan
+
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
exp_R
*
(
arctan
+
arccot
)
)
`|
Z
)
.
x
=
0
) )
proof
end;
::f.x=exp_R.
arctan.x-arccot.x
theorem
:: FDIFF_11:56
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
exp_R
*
(
arctan
-
arccot
)
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
exp_R
*
(
arctan
-
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
exp_R
*
(
arctan
-
arccot
)
)
`|
Z
)
.
x
=
(
2
*
(
exp_R
.
(
(
arctan
.
x
)
-
(
arccot
.
x
)
)
)
)
/
(
1
+
(
x
^2
)
)
) )
proof
end;
::f.x=sin.
arctan.x+arccot.x
theorem
:: FDIFF_11:57
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
sin
*
(
arctan
+
arccot
)
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
sin
*
(
arctan
+
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
sin
*
(
arctan
+
arccot
)
)
`|
Z
)
.
x
=
0
) )
proof
end;
::f.x=sin.
arctan.x-arccot.x
theorem
:: FDIFF_11:58
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
sin
*
(
arctan
-
arccot
)
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
sin
*
(
arctan
-
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
sin
*
(
arctan
-
arccot
)
)
`|
Z
)
.
x
=
(
2
*
(
cos
.
(
(
arctan
.
x
)
-
(
arccot
.
x
)
)
)
)
/
(
1
+
(
x
^2
)
)
) )
proof
end;
::f.x=cos.
arctan.x+arccot.x
theorem
:: FDIFF_11:59
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
cos
*
(
arctan
+
arccot
)
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cos
*
(
arctan
+
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cos
*
(
arctan
+
arccot
)
)
`|
Z
)
.
x
=
0
) )
proof
end;
::f.x=cos.
arctan.x-arccot.x
theorem
:: FDIFF_11:60
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
cos
*
(
arctan
-
arccot
)
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
cos
*
(
arctan
-
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
cos
*
(
arctan
-
arccot
)
)
`|
Z
)
.
x
=
-
(
(
2
*
(
sin
.
(
(
arctan
.
x
)
-
(
arccot
.
x
)
)
)
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=arctan.x*arccot.x
theorem
:: FDIFF_11:61
for
Z
being
open
Subset
of
REAL
st
Z
c=
].
(
-
1
)
,1
.[
holds
(
arctan
(#)
arccot
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arctan
(#)
arccot
)
`|
Z
)
.
x
=
(
(
arccot
.
x
)
-
(
arctan
.
x
)
)
/
(
1
+
(
x
^2
)
)
) )
proof
end;
::f.x=arctan.
1/x
*arccot.
1/x
theorem
:: FDIFF_11:62
for
Z
being
open
Subset
of
REAL
st not
0
in
Z
&
Z
c=
dom
(
(
arctan
*
(
(
id
Z
)
^
)
)
(#)
(
arccot
*
(
(
id
Z
)
^
)
)
)
& ( for
x
being
Real
st
x
in
Z
holds
(
(
(
id
Z
)
^
)
.
x
>
-
1 &
(
(
id
Z
)
^
)
.
x
<
1 ) ) holds
(
(
arctan
*
(
(
id
Z
)
^
)
)
(#)
(
arccot
*
(
(
id
Z
)
^
)
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
(
arctan
*
(
(
id
Z
)
^
)
)
(#)
(
arccot
*
(
(
id
Z
)
^
)
)
)
`|
Z
)
.
x
=
(
(
arctan
.
(
1
/
x
)
)
-
(
arccot
.
(
1
/
x
)
)
)
/
(
1
+
(
x
^2
)
)
) )
proof
end;
::f.x=x*arctan
1/x
theorem
:: FDIFF_11:63
for
Z
being
open
Subset
of
REAL
st not
0
in
Z
&
Z
c=
dom
(
(
id
Z
)
(#)
(
arctan
*
(
(
id
Z
)
^
)
)
)
& ( for
x
being
Real
st
x
in
Z
holds
(
(
(
id
Z
)
^
)
.
x
>
-
1 &
(
(
id
Z
)
^
)
.
x
<
1 ) ) holds
(
(
id
Z
)
(#)
(
arctan
*
(
(
id
Z
)
^
)
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
(
id
Z
)
(#)
(
arctan
*
(
(
id
Z
)
^
)
)
)
`|
Z
)
.
x
=
(
arctan
.
(
1
/
x
)
)
-
(
x
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=x*arccot
1/x
theorem
:: FDIFF_11:64
for
Z
being
open
Subset
of
REAL
st not
0
in
Z
&
Z
c=
dom
(
(
id
Z
)
(#)
(
arccot
*
(
(
id
Z
)
^
)
)
)
& ( for
x
being
Real
st
x
in
Z
holds
(
(
(
id
Z
)
^
)
.
x
>
-
1 &
(
(
id
Z
)
^
)
.
x
<
1 ) ) holds
(
(
id
Z
)
(#)
(
arccot
*
(
(
id
Z
)
^
)
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
(
id
Z
)
(#)
(
arccot
*
(
(
id
Z
)
^
)
)
)
`|
Z
)
.
x
=
(
arccot
.
(
1
/
x
)
)
+
(
x
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=x^2*arctan
1/x
theorem
:: FDIFF_11:65
for
Z
being
open
Subset
of
REAL
for
g
being
PartFunc
of
REAL
,
REAL
st not
0
in
Z
&
Z
c=
dom
(
g
(#)
(
arctan
*
(
(
id
Z
)
^
)
)
)
&
g
=
#Z
2 & ( for
x
being
Real
st
x
in
Z
holds
(
(
(
id
Z
)
^
)
.
x
>
-
1 &
(
(
id
Z
)
^
)
.
x
<
1 ) ) holds
(
g
(#)
(
arctan
*
(
(
id
Z
)
^
)
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
g
(#)
(
arctan
*
(
(
id
Z
)
^
)
)
)
`|
Z
)
.
x
=
(
(
2
*
x
)
*
(
arctan
.
(
1
/
x
)
)
)
-
(
(
x
^2
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=x^2*arccot
1/x
theorem
:: FDIFF_11:66
for
Z
being
open
Subset
of
REAL
for
g
being
PartFunc
of
REAL
,
REAL
st not
0
in
Z
&
Z
c=
dom
(
g
(#)
(
arccot
*
(
(
id
Z
)
^
)
)
)
&
g
=
#Z
2 & ( for
x
being
Real
st
x
in
Z
holds
(
(
(
id
Z
)
^
)
.
x
>
-
1 &
(
(
id
Z
)
^
)
.
x
<
1 ) ) holds
(
g
(#)
(
arccot
*
(
(
id
Z
)
^
)
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
g
(#)
(
arccot
*
(
(
id
Z
)
^
)
)
)
`|
Z
)
.
x
=
(
(
2
*
x
)
*
(
arccot
.
(
1
/
x
)
)
)
+
(
(
x
^2
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=1/arctan.x
theorem
Th67
:
:: FDIFF_11:67
for
Z
being
open
Subset
of
REAL
st
Z
c=
].
(
-
1
)
,1
.[
& ( for
x
being
Real
st
x
in
Z
holds
arctan
.
x
<>
0
) holds
(
arctan
^
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arctan
^
)
`|
Z
)
.
x
=
-
(
1
/
(
(
(
arctan
.
x
)
^2
)
*
(
1
+
(
x
^2
)
)
)
)
) )
proof
end;
::f.x=1/arccot.x
theorem
Th68
:
:: FDIFF_11:68
for
Z
being
open
Subset
of
REAL
st
Z
c=
].
(
-
1
)
,1
.[
holds
(
arccot
^
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
arccot
^
)
`|
Z
)
.
x
=
1
/
(
(
(
arccot
.
x
)
^2
)
*
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=1/
n*(arctan.x
|^n)
theorem
:: FDIFF_11:69
for
n
being
Element
of
NAT
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
(
1
/
n
)
(#)
(
(
#Z
n
)
*
(
arctan
^
)
)
)
&
Z
c=
].
(
-
1
)
,1
.[
&
n
>
0
& ( for
x
being
Real
st
x
in
Z
holds
arctan
.
x
<>
0
) holds
(
(
1
/
n
)
(#)
(
(
#Z
n
)
*
(
arctan
^
)
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
(
1
/
n
)
(#)
(
(
#Z
n
)
*
(
arctan
^
)
)
)
`|
Z
)
.
x
=
-
(
1
/
(
(
(
arctan
.
x
)
#Z
(
n
+
1
)
)
*
(
1
+
(
x
^2
)
)
)
)
) )
proof
end;
::f.x=1/
n*(arccot.x
|^n)
theorem
:: FDIFF_11:70
for
n
being
Element
of
NAT
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
(
1
/
n
)
(#)
(
(
#Z
n
)
*
(
arccot
^
)
)
)
&
Z
c=
].
(
-
1
)
,1
.[
&
n
>
0
holds
(
(
1
/
n
)
(#)
(
(
#Z
n
)
*
(
arccot
^
)
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
(
1
/
n
)
(#)
(
(
#Z
n
)
*
(
arccot
^
)
)
)
`|
Z
)
.
x
=
1
/
(
(
(
arccot
.
x
)
#Z
(
n
+
1
)
)
*
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=2*
arctan #R (1/2
)
theorem
:: FDIFF_11:71
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
2
(#)
(
(
#R
(
1
/
2
)
)
*
arctan
)
)
&
Z
c=
].
(
-
1
)
,1
.[
& ( for
x
being
Real
st
x
in
Z
holds
arctan
.
x
>
0
) holds
( 2
(#)
(
(
#R
(
1
/
2
)
)
*
arctan
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
2
(#)
(
(
#R
(
1
/
2
)
)
*
arctan
)
)
`|
Z
)
.
x
=
(
(
arctan
.
x
)
#R
(
-
(
1
/
2
)
)
)
/
(
1
+
(
x
^2
)
)
) )
proof
end;
::f.x=2*
arccot #R (1/2
)
theorem
:: FDIFF_11:72
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
2
(#)
(
(
#R
(
1
/
2
)
)
*
arccot
)
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
( 2
(#)
(
(
#R
(
1
/
2
)
)
*
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
2
(#)
(
(
#R
(
1
/
2
)
)
*
arccot
)
)
`|
Z
)
.
x
=
-
(
(
(
arccot
.
x
)
#R
(
-
(
1
/
2
)
)
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;
::f.x=
2/3
*
arctan #R (3/2
)
theorem
:: FDIFF_11:73
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
(
2
/
3
)
(#)
(
(
#R
(
3
/
2
)
)
*
arctan
)
)
&
Z
c=
].
(
-
1
)
,1
.[
& ( for
x
being
Real
st
x
in
Z
holds
arctan
.
x
>
0
) holds
(
(
2
/
3
)
(#)
(
(
#R
(
3
/
2
)
)
*
arctan
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
(
2
/
3
)
(#)
(
(
#R
(
3
/
2
)
)
*
arctan
)
)
`|
Z
)
.
x
=
(
(
arctan
.
x
)
#R
(
1
/
2
)
)
/
(
1
+
(
x
^2
)
)
) )
proof
end;
::f.x=
2/3
*
arccot #R (3/2
)
theorem
:: FDIFF_11:74
for
Z
being
open
Subset
of
REAL
st
Z
c=
dom
(
(
2
/
3
)
(#)
(
(
#R
(
3
/
2
)
)
*
arccot
)
)
&
Z
c=
].
(
-
1
)
,1
.[
holds
(
(
2
/
3
)
(#)
(
(
#R
(
3
/
2
)
)
*
arccot
)
is_differentiable_on
Z
& ( for
x
being
Real
st
x
in
Z
holds
(
(
(
2
/
3
)
(#)
(
(
#R
(
3
/
2
)
)
*
arccot
)
)
`|
Z
)
.
x
=
-
(
(
(
arccot
.
x
)
#R
(
1
/
2
)
)
/
(
1
+
(
x
^2
)
)
)
) )
proof
end;