let signal_prefix = fun s0 -> fun s1 -> 
        let new_signal = fun t ->
                if t = 0 then (signal_fun s0) 0
                else if t > 0 then (signal_fun s1) t
                else raise (Signal_operation "prefix time cannot be < 0.")
        in
        (frequency s1, new_signal)