fix a ConstraintSimplifier bug

Reported-by: Mathis Bouverot-Dupuis
2024-02-14 15:57:34 +01:00 · 2024-02-14 15:57:34 +01:00 · fd0213fe82
commit fd0213fe82
parent 1f2bf2bb13
1 changed files with 1 additions and 0 deletions
--- a/src/support/ConstraintSimplifier.ml
+++ b/src/support/ConstraintSimplifier.ml
@ -58,6 +58,7 @@ module Make(T : Utils.Functor) = struct
            VarSet.of_list [v1; v2], Eq (v1, v2)
        end
      | Exist (v, s, c) ->
+        let v = normalize v in
        let fvs, c = simpl (VarSet.add v bvs) c in
        if is_in_env v then (fvs, c)
        else if not (VarSet.mem v fvs) then (fvs, c)