reserve x,y for Real;
reserve z,z1,z2 for Complex;
reserve n for Element of NAT;

theorem
  for x,y being Element of REAL holds (1+(-1)*<i>)/2*sinh_C/.(x+y*<i>) +
  (1+<i>)/2*sinh_C/.(x+(-y)*<i>) = sinh.x*cos.y + cosh.x*sin.y
proof
  let x,y be Element of REAL;
  set shx = sinh.x, cy = cos.y, chx = cosh.x, sy = sin.y;
  (1+(-1)*<i>)/2*sinh_C/.(x+y*<i>) + (1+<i>)/2*sinh_C/.(x+(-y)*<i>) = (1+(
  -1)*<i>)/2*(shx*cy+(chx*sy)*<i>) + (1+<i>)/2*sinh_C/.(x+(-y)*<i>) by Th46
    .= (1+(-1)*<i>)/2*(shx*cy+(chx*sy)*<i>) + (1+<i>)/2*(sinh.x*cos.y+(-cosh
  .x*sin.y)*<i>) by Th47
    .= 2*(shx*cy+chx*sy+0*<i>)/2;
  hence thesis;
end;
