This commit is contained in:
Simon Cruanes 2022-11-16 22:30:54 -05:00
parent f2a7489d39
commit 566d0d64a2
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -53,6 +53,13 @@ let on_event (self : t) acts ~unit (ev : Core.Plugin.event) : unit =
Log.debugf 1 (fun k -> k "(@[cdsat.bool.bcp@ %a@])" (TVar.pp self.vst) v) Log.debugf 1 (fun k -> k "(@[cdsat.bool.bcp@ %a@])" (TVar.pp self.vst) v)
| _ -> () | _ -> ()
(* TODO: BCP *)
let propagate (self : t) (act : Core.Plugin_action.t) (v : TVar.t)
(value : Value.t) : unit =
Log.debugf 0 (fun k ->
k "(@[bool-plugin.propagate %a@])" (TVar.pp self.vst) v);
()
let term_to_var_hooks (self : t) : _ list = let term_to_var_hooks (self : t) : _ list =
let (module A) = self.arg in let (module A) = self.arg in