reserve x, r for Real;
reserve A for symmetrical Subset of COMPLEX;
reserve F,G for PartFunc of REAL, REAL;

theorem
  for A being symmetrical Subset of REAL holds cos^2 is_even_on A
proof
  let A be symmetrical Subset of REAL;
  A is symmetrical Subset of COMPLEX & cos is_even_on A by Th66,NUMBERS:11
,XBOOLE_1:1;
  hence thesis by Th23;
end;
