remove debug msg

This commit is contained in:
Simon Cruanes 2023-06-26 00:40:39 -04:00
parent 8d8ef4211b
commit 923cbec6e5

View file

@ -402,7 +402,6 @@ module Make (A : ARG) = (* : S with module A = A *) struct
(* we define these terms so their value in the model make sense *) (* we define these terms so their value in the model make sense *)
let le = as_linexp t |> LE.map ~f:recurse in let le = as_linexp t |> LE.map ~f:recurse in
Term.Tbl.add self.simp_defined t (box_t, le); Term.Tbl.add self.simp_defined t (box_t, le);
Log.debugf 50 (fun k -> k "COUCOU def %a as %a" Term.pp box_t LE.pp le);
let le_comb, le_const = LE.comb le, LE.const le in let le_comb, le_const = LE.comb le, LE.const le in
if A.Q.equal le_const A.Q.zero then if A.Q.equal le_const A.Q.zero then