let i be non zero Integer; :: thesis: sin ^2 is PI * i -periodic
i in INT by INT_1:def 2;
then consider k being Element of NAT such that
a1: ( i = k or i = - k ) by INT_1:def 1;

per cases ( i = k or i = - k ) by a1;

suppose i = k ; :: thesis: sin ^2 is PI * i -periodic

then ex m being Nat st i = m + 1 by NAT_1:6;
hence sin ^2 is PI * i -periodic by Lmsin2; :: thesis: verum

end;

suppose a2: i = - k ; :: thesis: sin ^2 is PI * i -periodic

then consider m being Nat such that
a3: - i = m + 1 by NAT_1:6;
sin ^2 is PI * (m + 1) -periodic by Lmsin2;
then sin ^2 is - (PI * (m + 1)) -periodic by Th14;
hence sin ^2 is PI * i -periodic by a2, a3; :: thesis: verum

end;

end;