mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-06 11:15:43 -05:00
72 lines
2.2 KiB
OCaml
72 lines
2.2 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Cubicle *)
|
|
(* Combining model checking algorithms and SMT solvers *)
|
|
(* *)
|
|
(* Sylvain Conchon and Alain Mebsout *)
|
|
(* Stephane Lescuyer *)
|
|
(* INRIA, Universite Paris-Sud 11 *)
|
|
(* *)
|
|
(* Copyright 2011. This file is distributed under the terms of the *)
|
|
(* Apache Software License version 2.0 *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
open Format
|
|
|
|
module type S = Explanation_intf.S
|
|
|
|
module Make(Stypes : Solver_types.S) = struct
|
|
|
|
type atom = Stypes.atom
|
|
|
|
type exp = Atom of atom | Fresh of int
|
|
|
|
module S = Set.Make(struct
|
|
type t = exp
|
|
let compare a b = match a,b with
|
|
| Atom _, Fresh _ -> -1
|
|
| Fresh _, Atom _ -> 1
|
|
| Fresh i1, Fresh i2 -> i1 - i2
|
|
| Atom a, Atom b -> Stypes.(a.aid - b.aid)
|
|
end)
|
|
|
|
type t = S.t
|
|
|
|
let singleton e = S.singleton (Atom e)
|
|
|
|
let empty = S.empty
|
|
|
|
let union s1 s2 = S.union s1 s2
|
|
|
|
let iter_atoms f s =
|
|
S.iter (fun e -> match e with
|
|
| Fresh _ -> ()
|
|
| Atom a -> f a) s
|
|
|
|
let fold_atoms f s acc =
|
|
S.fold (fun e acc -> match e with
|
|
| Fresh _ -> acc
|
|
| Atom a -> f a acc) s acc
|
|
|
|
let merge e1 e2 = e1
|
|
|
|
let fresh_exp =
|
|
let r = ref (-1) in
|
|
fun () -> incr r; !r
|
|
|
|
let remove_fresh i s =
|
|
let fi = Fresh i in
|
|
if S.mem fi s then Some (S.remove fi s)
|
|
else None
|
|
|
|
let add_fresh i = S.add (Fresh i)
|
|
|
|
let print fmt ex =
|
|
fprintf fmt "{";
|
|
S.iter (function
|
|
| Atom a -> fprintf fmt "%s, " (Log.on_buffer Stypes.pp_atom a)
|
|
| Fresh i -> fprintf fmt "Fresh%d " i) ex;
|
|
fprintf fmt "}"
|
|
|
|
end
|