Lattice.HConsedSourcemodule Arg : sig ... endinclude sig ... endmodule HC : sig ... endval htable : HC.ttype t = Base.t BatHashcons.hobjval unlift : 'a BatHashcons.hobj -> 'aval lift : HC.key -> HC.key BatHashcons.hobjval lift_f : (Base.t -> 'a) -> Base.t BatHashcons.hobj -> 'aval show : Base.t BatHashcons.hobj -> stringval pretty : unit -> Base.t BatHashcons.hobj -> Printable.Pretty.docval relift : Base.t BatHashcons.hobj -> HC.key BatHashcons.hobjval hash : 'a BatHashcons.hobj -> intval tag : 'a BatHashcons.hobj -> intval compare : 'a BatHashcons.hobj -> 'b BatHashcons.hobj -> intval to_yojson : Base.t BatHashcons.hobj -> Yojson.Safe.tval printXml : 'a BatInnerIO.output -> Base.t BatHashcons.hobj -> unitval equal_debug : Base.t BatHashcons.hobj -> Base.t BatHashcons.hobj -> boolval equal : 'a BatHashcons.hobj -> 'b BatHashcons.hobj -> boolval arbitrary : unit -> HC.key BatHashcons.hobj QCheck.arbitrary