Spec.MustBarriersinclude sig ... endtype t = Barriers.tval hash : t -> intval show : t -> stringval pretty : unit -> t -> Printable.Pretty.docval to_yojson : t -> Yojson.Safe.tval tag : t -> intval widen : Barriers.t -> Barriers.t -> Barriers.tval narrow : Barriers.t -> Barriers.t -> Barriers.tval bot : unit -> Barriers.tval is_bot : Barriers.t -> boolval top : unit -> Barriers.tval is_top : Barriers.t -> boolval leq : Barriers.t -> Barriers.t -> boolval join : Barriers.t -> Barriers.t -> Barriers.tval meet : Barriers.t -> Barriers.t -> Barriers.tval printXml : 'a BatInnerIO.output -> Barriers.t -> unitval arbitrary : unit -> Barriers.t QCheck.arbitrary