for x being Real st x in dom cot holds
( x + PI in dom cot & x - PI in dom cot & cot . x = cot . (x + PI) )
proof
let x be Real; :: thesis: ( x in dom cot implies ( x + PI in dom cot & x - PI in dom cot & cot . x = cot . (x + PI) ) )
assume A1: x in dom cot ; :: thesis: ( x + PI in dom cot & x - PI in dom cot & cot . x = cot . (x + PI) )
then x in () /\ (() \ ()) by RFUNCT_1:def 1;
then ( x in dom cos & x in () \ () ) by XBOOLE_0:def 4;
then ( x in dom cos & x in dom sin & not x in sin " ) by XBOOLE_0:def 5;
then not sin . x in by FUNCT_1:def 7;
then A2: sin . x <> 0 by TARSKI:def 1;
A3: sin . (x + PI) = - (sin . x) by SIN_COS:78;
then not sin . (x + PI) in by ;
then ( x + PI in dom cos & x + PI in dom sin & not x + PI in sin " ) by ;
then ( x + PI in dom cos & x + PI in () \ () ) by XBOOLE_0:def 5;
then A4: x + PI in () /\ (() \ ()) by XBOOLE_0:def 4;
sin . (x - PI) = sin . ((x - PI) + (2 * PI)) by SIN_COS:78
.= sin . (x + PI) ;
then not sin . (x - PI) in by ;
then ( x - PI in dom cos & x - PI in dom sin & not x - PI in sin " ) by ;
then ( x - PI in dom cos & x - PI in () \ () ) by XBOOLE_0:def 5;
then A5: x - PI in () /\ (() \ ()) by XBOOLE_0:def 4;
then ( x + PI in dom cot & x - PI in dom cot ) by ;
then cot . (x + PI) = (cos . (x + PI)) / (sin . (x + PI)) by RFUNCT_1:def 1
.= (- (cos . x)) / (sin . (x + PI)) by SIN_COS:78
.= (- (cos . x)) / (- (sin . x)) by SIN_COS:78
.= (cos . x) / (sin . x) by XCMPLX_1:191
.= cot . x by ;
hence ( x + PI in dom cot & x - PI in dom cot & cot . x = cot . (x + PI) ) by ; :: thesis: verum
end;
hence cot is PI -periodic by Th1; :: thesis: verum