simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2026-01-28 20:34:53 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix(cc): restore distinct

Browse source
This commit is contained in:
Simon Cruanes 2019-02-09 21:59:25 -06:00
parent a463dbb4b5
commit 1328d043e3
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/cc/Congruence_closure.ml
View file

@ -853,16 +853,16 @@ module Make(A: ARG) = struct
let n2 = add_term cc t2 in let n2 = add_term cc t2 in
push_combine cc n1 n2 expl push_combine cc n1 n2 expl
let assert_distinct cc (l:term list) ~neq (lit:lit) : unit = (* generative tag used to annotate classes that can't be merged *)
let distinct_tag_ = ref 0
let assert_distinct cc (l:term list) ~neq:_ (lit:lit) : unit =
assert (match l with[] | [_] -> false | _ -> true); assert (match l with[] | [_] -> false | _ -> true);
assert false let tag = CCRef.get_then_incr distinct_tag_ in
(* FIXME
let tag = Term.id neq in
Log.debugf 5 Log.debugf 5
(fun k->k "(@[cc.assert_distinct@ (@[%a@])@ :tag %d@])" (Util.pp_list Term.pp) l tag); (fun k->k "(@[cc.assert_distinct@ (@[%a@])@ :tag %d@])" (Util.pp_list T.pp) l tag);
let l = List.map (add cc) l in let l = List.map (add_term cc) l in
Vec.push cc.combine @@ CT_distinct (l, tag, Expl.lit lit) Vec.push cc.combine @@ CT_distinct (l, tag, Expl.mk_lit lit)
*)
let create ?on_merge ?(size=`Big) (tst:term_state) : t = let create ?on_merge ?(size=`Big) (tst:term_state) : t =
let size = match size with `Small -> 128 | `Big -> 2048 in let size = match size with `Small -> 128 | `Big -> 2048 in