Compose.PS2
module S = PS1.S
module VH = PS1.VH
val init : unit -> unit
val one_side : vh:S.Dom.t VH.t -> x:S.v -> y:S.v -> d:S.Dom.t -> unit
val one_constraint : vh:S.Dom.t VH.t -> x:S.v -> rhs:S.Dom.t -> unit
val finalize : vh:S.Dom.t VH.t -> reachable:unit VH.t -> unit