Module Equiv.Make

Parameters

module L : OrderedType
module R : OrderedType

Signature

exception Already_Paired
module LR : sig ... end
module RL : sig ... end
type t = {
  1. lr : R.t LR.t;
  2. rl : L.t RL.t;
}
val compare : t -> t -> int
val empty : t
val fold_lr : ((L.t * R.t) -> 'a -> 'a) -> t -> 'a -> 'a
val fold_rl : ((L.t * R.t) -> 'a -> 'a) -> t -> 'a -> 'a
val fold : ((L.t * R.t) -> 'a -> 'a) -> t -> 'a -> 'a
val print : Format.formatter -> t -> unit
val mem_l : L.t -> t -> bool
val mem_r : R.t -> t -> bool
val find_l : LR.key -> t -> R.t
val find_r : RL.key -> t -> L.t
val check_consistency : t -> t
val iter : ((L.t * R.t) -> unit) -> t -> unit
val remove_l : L.t -> t -> t
val remove_r : R.t -> t -> t
val add : (L.t * R.t) -> t -> t
val mem : (L.t * R.t) -> t -> bool
val concat : t -> t -> t
val find_l_opt : L.t -> t -> R.t option
val find_r_opt : R.t -> t -> L.t option
val map : ((L.t * R.t) -> L.t * R.t) -> t -> t
val filter : ((L.t * R.t) -> bool) -> t -> t
val exists : ((L.t * R.t) -> bool) -> t -> bool
val forall : ((L.t * R.t) -> bool) -> t -> bool