sig
type event = Types.date * Expr.value
type stimuli = Types.date * (Ident.t * Expr.value) list
val mk_spor_event : Types.date list -> (Types.date * Expr.value) list
val mk_per_event :
Types.date -> Types.date -> Types.date -> (Types.date * Expr.value) list
val mk_val_changes :
(Types.date * Expr.value) list -> (Types.date * Expr.value) list
val mk_stimuli :
string ->
Types.date * Expr.value -> Types.date * (Ident.t * Expr.value) list
val merge_stimuli : Stimuli.stimuli list list -> Stimuli.stimuli list
val events_of : Global.stim_desc -> Stimuli.event list
val string_of_event : Stimuli.event -> string
val string_of_events : Stimuli.event list -> string
val string_of_stimuli : Stimuli.stimuli -> string
end