val of_incr : 'result Incr.t -> ('a, 'result) tval pure : f:('input Incr.t -> 'result Incr.t) -> ('input, 'result) tval model_cutoff : ('input, 'result) t -> ('input, 'result) tval value_cutoff : cutoff:'input Incremental.Cutoff.t -> ('input, 'input) tval map : ('input, 'r1) t -> f:('r1 Incr.t -> 'r2 Incr.t) -> ('input, 'r2) tmodule type S = sig ... endtype (!'input, !'model, !'action, !'result) component_s =
(module S
with type Action.t = 'action
and type Input.t = 'input
and type Model.t = 'model
and type Result.t = 'result)val of_module :
('input, 'model, 'action, 'result) component_s ->
default_model:'model ->
('input, 'result) t