(**************************************************************************) (* *) (* Cubicle *) (* Combining model checking algorithms and SMT solvers *) (* *) (* Sylvain Conchon and Alain Mebsout *) (* Universite Paris-Sud 11 *) (* *) (* Copyright 2011. This file is distributed under the terms of the *) (* Apache Software License version 2.0 *) (* *) (**************************************************************************) type name_kind = Constructor | Other type t = | True | False | Name of ID.t * name_kind | Var of ID.t val name : ?kind:name_kind -> ID.t -> t val var : ID.t -> t val equal : t -> t -> bool val compare : t -> t -> int val hash : t -> int val print : Format.formatter -> t -> unit module Map : Map.S with type key = t module Set : Set.S with type elt = t