let
signal_int s =
let
new_signal =
fun
t
->
v_int ((signal_fun s) t)
in
(frequency s, new_signal)