module E : TypeS
module Base : S


include Functor.S with type 'a t = E.t -> 'a Base.t
type 'a t = E.t -> 'a Base.t
val map : ('a -> 'b) -> 'a t -> 'b t
val pure : 'a -> 'a t
val apply : ('a -> 'b) t -> (unit -> 'a t) -> 'b t

The evaluation of the second argument is delayed so that it can be skipped if not necessary: it allows short-circuits with forall, exists, etc.