let
signal_sqrt s =
let
new_signal =
fun
t
->
v_sqrt ((signal_fun s) t)
in
(frequency s, new_signal)