let
signal_sin s =
let
new_signal =
fun
t
->
v_sin ((signal_fun s) t)
in
(frequency s, new_signal)