fix: Actually add explanation for intersection

OCamlPro · Mar 26, 2024 · f8e8bba · f8e8bba
1 parent e609c98
commit f8e8bba
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/lib/reasoners/bitv_rel.ml b/src/lib/reasoners/bitv_rel.ml
@@ -99,9 +99,9 @@ module Interval_domain : Rel_utils.Domain with type t = Intervals.t = struct
     | _ -> assert false
 
   let intersect ~ex x y =
-    try
-      Intervals.intersect x y
-    with Inconsistent ex' ->
+    match Intervals.intersect x y with
+    | xy -> Intervals.add_explanation xy ex
+    | exception Inconsistent ex' ->
       raise @@ Inconsistent (Ex.union ex ex')
 
   let lognot sz int =