sig val ( |> ) : ('a, 'b) Core_hashtbl.t -> 'a -> 'b val ( |?> ) : ('a, 'b) Core_hashtbl.t -> 'a -> 'b option val ( <| ) : ('a, 'b) Core_hashtbl.t -> 'a * 'b -> unit end