theorem
  (for x being Real st x in B holds cos.x<>0) implies sec is_even_on B
proof
  assume
A1: for x being Real st x in B holds cos.x<>0;
  B c= dom (sec)
  proof
    let x be Real;
    assume
A2: x in B;
    then cos.x<>0 by A1;
    then not cos.x in {0} by TARSKI:def 1;
    then not x in cos"{0} by FUNCT_1:def 7;
    then x in dom cos \ cos"{0} by A2,SIN_COS:24,XBOOLE_0:def 5;
    hence thesis by RFUNCT_1:def 2;
  end;
  hence thesis by Th81;
end;
