Arg.MakePmodule ReadWrite : sig ... endmodule Write : sig ... endmodule P : sig ... endinclude sig ... endval is_top : t -> boolval top : unit -> tval is_bot : t -> boolval bot : unit -> tval equal : t -> t -> Ppx_deriving_runtime.boolval compare : t -> t -> Ppx_deriving_runtime.intval hash : t -> intval pretty : unit -> (P.t * P.t) -> Printable.Pretty.docval printXml : 'a BatInnerIO.output -> (P.t * P.t) -> unitval to_yojson : (P.t * P.t) -> [> `Assoc of (string * Yojson.Safe.t) list ]val pretty_diff : unit -> (t * t) -> Lattice.Pretty.docval get : write:bool -> Queries.Protection.t -> (('a * 'a) * ('a * 'a)) -> 'a