:: SIN_COS5 semantic presentation

theorem Th1: :: SIN_COS5:1
for b1 being real number st cos b1 <> 0 holds
cosec b1 = (sec b1) / (tan b1)
proof end;

theorem Th2: :: SIN_COS5:2
for b1 being real number st sin b1 <> 0 holds
cos b1 = (sin b1) * (cot b1)
proof end;

theorem Th3: :: SIN_COS5:3
for b1, b2, b3 being real number st sin b1 <> 0 & sin b2 <> 0 & sin b3 <> 0 holds
sin ((b1 + b2) + b3) = (((sin b1) * (sin b2)) * (sin b3)) * (((((cot b2) * (cot b3)) + ((cot b1) * (cot b3))) + ((cot b1) * (cot b2))) - 1)
proof end;

theorem Th4: :: SIN_COS5:4
for b1, b2, b3 being real number st sin b1 <> 0 & sin b2 <> 0 & sin b3 <> 0 holds
cos ((b1 + b2) + b3) = - ((((sin b1) * (sin b2)) * (sin b3)) * ((((cot b1) + (cot b2)) + (cot b3)) - (((cot b1) * (cot b2)) * (cot b3))))
proof end;

theorem Th5: :: SIN_COS5:5
for b1 being real number holds sin (2 * b1) = (2 * (sin b1)) * (cos b1)
proof end;

theorem Th6: :: SIN_COS5:6
for b1 being real number st cos b1 <> 0 holds
sin (2 * b1) = (2 * (tan b1)) / (1 + ((tan b1) ^2 ))
proof end;

theorem Th7: :: SIN_COS5:7
for b1 being real number holds
( cos (2 * b1) = ((cos b1) ^2 ) - ((sin b1) ^2 ) & cos (2 * b1) = (2 * ((cos b1) ^2 )) - 1 & cos (2 * b1) = 1 - (2 * ((sin b1) ^2 )) )
proof end;

theorem Th8: :: SIN_COS5:8
for b1 being real number st cos b1 <> 0 holds
cos (2 * b1) = (1 - ((tan b1) ^2 )) / (1 + ((tan b1) ^2 ))
proof end;

theorem Th9: :: SIN_COS5:9
for b1 being real number st cos b1 <> 0 holds
tan (2 * b1) = (2 * (tan b1)) / (1 - ((tan b1) ^2 ))
proof end;

theorem Th10: :: SIN_COS5:10
for b1 being real number st sin b1 <> 0 holds
cot (2 * b1) = (((cot b1) ^2 ) - 1) / (2 * (cot b1))
proof end;

theorem Th11: :: SIN_COS5:11
for b1 being real number st cos b1 <> 0 holds
(sec b1) ^2 = 1 + ((tan b1) ^2 )
proof end;

theorem Th12: :: SIN_COS5:12
for b1 being real number holds cot b1 = 1 / (tan b1)
proof end;

theorem Th13: :: SIN_COS5:13
for b1 being real number st cos b1 <> 0 & sin b1 <> 0 holds
( sec (2 * b1) = ((sec b1) ^2 ) / (1 - ((tan b1) ^2 )) & sec (2 * b1) = ((cot b1) + (tan b1)) / ((cot b1) - (tan b1)) )
proof end;

theorem Th14: :: SIN_COS5:14
for b1 being real number st sin b1 <> 0 holds
(cosec b1) ^2 = 1 + ((cot b1) ^2 )
proof end;

theorem Th15: :: SIN_COS5:15
for b1 being real number st cos b1 <> 0 & sin b1 <> 0 holds
( cosec (2 * b1) = ((sec b1) * (cosec b1)) / 2 & cosec (2 * b1) = ((tan b1) + (cot b1)) / 2 )
proof end;

theorem Th16: :: SIN_COS5:16
for b1 being real number holds sin (3 * b1) = (- (4 * ((sin b1) |^ 3))) + (3 * (sin b1))
proof end;

theorem Th17: :: SIN_COS5:17
for b1 being real number holds cos (3 * b1) = (4 * ((cos b1) |^ 3)) - (3 * (cos b1))
proof end;

theorem Th18: :: SIN_COS5:18
for b1 being real number st cos b1 <> 0 holds
tan (3 * b1) = ((3 * (tan b1)) - ((tan b1) |^ 3)) / (1 - (3 * ((tan b1) ^2 )))
proof end;

theorem Th19: :: SIN_COS5:19
for b1 being real number st sin b1 <> 0 holds
cot (3 * b1) = (((cot b1) |^ 3) - (3 * (cot b1))) / ((3 * ((cot b1) ^2 )) - 1)
proof end;

theorem Th20: :: SIN_COS5:20
for b1 being real number holds (sin b1) ^2 = (1 - (cos (2 * b1))) / 2
proof end;

theorem Th21: :: SIN_COS5:21
for b1 being real number holds (cos b1) ^2 = (1 + (cos (2 * b1))) / 2
proof end;

theorem Th22: :: SIN_COS5:22
for b1 being real number holds (sin b1) |^ 3 = ((3 * (sin b1)) - (sin (3 * b1))) / 4
proof end;

theorem Th23: :: SIN_COS5:23
for b1 being real number holds (cos b1) |^ 3 = ((3 * (cos b1)) + (cos (3 * b1))) / 4
proof end;

theorem Th24: :: SIN_COS5:24
for b1 being real number holds (sin b1) |^ 4 = ((3 - (4 * (cos (2 * b1)))) + (cos (4 * b1))) / 8
proof end;

theorem Th25: :: SIN_COS5:25
for b1 being real number holds (cos b1) |^ 4 = ((3 + (4 * (cos (2 * b1)))) + (cos (4 * b1))) / 8
proof end;

theorem Th26: :: SIN_COS5:26
for b1 being real number holds
( sin (b1 / 2) = sqrt ((1 - (cos b1)) / 2) or sin (b1 / 2) = - (sqrt ((1 - (cos b1)) / 2)) )
proof end;

theorem Th27: :: SIN_COS5:27
for b1 being real number holds
( cos (b1 / 2) = sqrt ((1 + (cos b1)) / 2) or cos (b1 / 2) = - (sqrt ((1 + (cos b1)) / 2)) )
proof end;

theorem Th28: :: SIN_COS5:28
for b1 being real number st sin (b1 / 2) <> 0 holds
tan (b1 / 2) = (1 - (cos b1)) / (sin b1)
proof end;

theorem Th29: :: SIN_COS5:29
for b1 being real number st cos (b1 / 2) <> 0 holds
tan (b1 / 2) = (sin b1) / (1 + (cos b1))
proof end;

theorem Th30: :: SIN_COS5:30
for b1 being real number holds
( tan (b1 / 2) = sqrt ((1 - (cos b1)) / (1 + (cos b1))) or tan (b1 / 2) = - (sqrt ((1 - (cos b1)) / (1 + (cos b1)))) )
proof end;

theorem Th31: :: SIN_COS5:31
for b1 being real number st cos (b1 / 2) <> 0 holds
cot (b1 / 2) = (1 + (cos b1)) / (sin b1)
proof end;

theorem Th32: :: SIN_COS5:32
for b1 being real number st sin (b1 / 2) <> 0 holds
cot (b1 / 2) = (sin b1) / (1 - (cos b1))
proof end;

theorem Th33: :: SIN_COS5:33
for b1 being real number holds
( cot (b1 / 2) = sqrt ((1 + (cos b1)) / (1 - (cos b1))) or cot (b1 / 2) = - (sqrt ((1 + (cos b1)) / (1 - (cos b1)))) )
proof end;

theorem Th34: :: SIN_COS5:34
for b1 being real number st sin (b1 / 2) <> 0 & cos (b1 / 2) <> 0 & 1 - ((tan (b1 / 2)) ^2 ) <> 0 & not sec (b1 / 2) = sqrt ((2 * (sec b1)) / ((sec b1) + 1)) holds
sec (b1 / 2) = - (sqrt ((2 * (sec b1)) / ((sec b1) + 1)))
proof end;

theorem Th35: :: SIN_COS5:35
for b1 being real number st sin (b1 / 2) <> 0 & cos (b1 / 2) <> 0 & 1 - ((tan (b1 / 2)) ^2 ) <> 0 & not cosec (b1 / 2) = sqrt ((2 * (sec b1)) / ((sec b1) - 1)) holds
cosec (b1 / 2) = - (sqrt ((2 * (sec b1)) / ((sec b1) - 1)))
proof end;

definition
let c1 be real number ;
func coth c1 -> Real equals :: SIN_COS5:def 1
(cosh a1) / (sinh a1);
coherence
(cosh c1) / (sinh c1) is Real
;
func sech c1 -> Real equals :: SIN_COS5:def 2
1 / (cosh a1);
coherence
1 / (cosh c1) is Real
;
func cosech c1 -> Real equals :: SIN_COS5:def 3
1 / (sinh a1);
coherence
1 / (sinh c1) is Real
;
end;

:: deftheorem Def1 defines coth SIN_COS5:def 1 :
for b1 being real number holds coth b1 = (cosh b1) / (sinh b1);

:: deftheorem Def2 defines sech SIN_COS5:def 2 :
for b1 being real number holds sech b1 = 1 / (cosh b1);

:: deftheorem Def3 defines cosech SIN_COS5:def 3 :
for b1 being real number holds cosech b1 = 1 / (sinh b1);

theorem Th36: :: SIN_COS5:36
for b1 being real number holds
( coth b1 = ((exp b1) + (exp (- b1))) / ((exp b1) - (exp (- b1))) & sech b1 = 2 / ((exp b1) + (exp (- b1))) & cosech b1 = 2 / ((exp b1) - (exp (- b1))) )
proof end;

theorem Th37: :: SIN_COS5:37
for b1 being real number st (exp b1) - (exp (- b1)) <> 0 holds
(tanh b1) * (coth b1) = 1
proof end;

theorem Th38: :: SIN_COS5:38
for b1 being real number holds ((sech b1) ^2 ) + ((tanh b1) ^2 ) = 1
proof end;

theorem Th39: :: SIN_COS5:39
for b1 being real number st sinh b1 <> 0 holds
((coth b1) ^2 ) - ((cosech b1) ^2 ) = 1
proof end;

Lemma13: for b1 being real number holds coth (- b1) = - (coth b1)
proof end;

theorem Th40: :: SIN_COS5:40
for b1, b2 being real number st sinh b1 <> 0 & sinh b2 <> 0 holds
coth (b1 + b2) = (1 + ((coth b1) * (coth b2))) / ((coth b1) + (coth b2))
proof end;

theorem Th41: :: SIN_COS5:41
for b1, b2 being real number st sinh b1 <> 0 & sinh b2 <> 0 holds
coth (b1 - b2) = (1 - ((coth b1) * (coth b2))) / ((coth b1) - (coth b2))
proof end;

theorem Th42: :: SIN_COS5:42
for b1, b2 being real number st sinh b1 <> 0 & sinh b2 <> 0 holds
( (coth b1) + (coth b2) = (sinh (b1 + b2)) / ((sinh b1) * (sinh b2)) & (coth b1) - (coth b2) = - ((sinh (b1 - b2)) / ((sinh b1) * (sinh b2))) )
proof end;

Lemma15: for b1 being real number holds (cosh . b1) ^2 = 1 + ((sinh . b1) ^2 )
proof end;

Lemma16: for b1 being real number holds ((cosh . b1) ^2 ) - 1 = (sinh . b1) ^2
proof end;

theorem Th43: :: SIN_COS5:43
for b1 being real number holds sinh (3 * b1) = (3 * (sinh b1)) + (4 * ((sinh b1) |^ 3))
proof end;

theorem Th44: :: SIN_COS5:44
for b1 being real number holds cosh (3 * b1) = (4 * ((cosh b1) |^ 3)) - (3 * (cosh b1))
proof end;

theorem Th45: :: SIN_COS5:45
for b1 being real number st sinh b1 <> 0 holds
coth (2 * b1) = (1 + ((coth b1) ^2 )) / (2 * (coth b1))
proof end;

Lemma17: for b1 being real number st b1 > 0 holds
sinh b1 >= 0
proof end;

Lemma18: sinh 0 = 0
by SIN_COS2:def 2, SIN_COS2:16;

theorem Th46: :: SIN_COS5:46
for b1 being real number st b1 >= 0 holds
sinh b1 >= 0
proof end;

theorem Th47: :: SIN_COS5:47
for b1 being real number st b1 <= 0 holds
sinh b1 <= 0
proof end;

theorem Th48: :: SIN_COS5:48
for b1 being real number holds cosh (b1 / 2) = sqrt (((cosh b1) + 1) / 2)
proof end;

theorem Th49: :: SIN_COS5:49
for b1 being real number st sinh (b1 / 2) <> 0 holds
tanh (b1 / 2) = ((cosh b1) - 1) / (sinh b1)
proof end;

theorem Th50: :: SIN_COS5:50
for b1 being real number st cosh (b1 / 2) <> 0 holds
tanh (b1 / 2) = (sinh b1) / ((cosh b1) + 1)
proof end;

theorem Th51: :: SIN_COS5:51
for b1 being real number st sinh (b1 / 2) <> 0 holds
coth (b1 / 2) = (sinh b1) / ((cosh b1) - 1)
proof end;

theorem Th52: :: SIN_COS5:52
for b1 being real number st cosh (b1 / 2) <> 0 holds
coth (b1 / 2) = ((cosh b1) + 1) / (sinh b1)
proof end;