val base : 'base ‑> 'base t
val inter_list : 'b t list ‑> 'b t Core.Or_error.t
val values : 'base t ‑> 'base list
module Make_monadic_eval : functor (M : Core.Monad.S) -> S_eval with type base t := base t with type set := set with type a result := a M.t