Fix evaluation of goals

CHANGES.md

@@ -1,4 +1,14 @@
 
+next
+----
+
+### Models
+
+- Fix a bug where the condition on evaluated goals was incorrect.
+  This should not affect any current use, since only SMT-LIB2 model
+  verification is supported and it does not have goals.
+
+
 v0.10
 -----
 

src/model/loop.ml

@@ -112,10 +112,10 @@ let bad_model =
         match kind with
         | `Hyp ->
           Format.fprintf fmt "This hypothesis/assertion evaluates to false"
-        | `Goals evaluated_goals ->
+        | `Goal true_goal ->
           Format.fprintf fmt
-            "@[<v>All of the goals at the following locations evaluated to false:@ %a@]"
-            Fmt.(list pp_located) evaluated_goals
+            "@[<v>The goal at the following location evaluated to true:@ %a@]"
+            pp_located true_goal
         | `Clause ->
           Format.fprintf fmt "This assumed clause evaluates to false")
     ~name:"Incorrect model" ()
@@ -686,11 +686,10 @@ module Make
             let _ = eval_acc_direct ~reraise:false st model delayed evaluated_goals acc in
             assert false
         end else begin
-          (* **3** Lastly check that at least one goal evaluated to "true" *)
-          match evaluated_goals with
-          | [] -> st
-          | l when List.exists (fun { contents; _ } -> contents) l -> st
-          | l -> State.error ~file ~loc st bad_model (`Goals l)
+          (* **3** Lastly check that all goals evaluated to "false" *)
+          match List.find_opt (fun { contents; _ } -> contents) evaluated_goals with
+          | None -> st
+          | Some g -> State.error ~file ~loc st bad_model (`Goal g)
         end
       | _ -> st
     in

tests/model/goals/dune

@@ -0,0 +1,21 @@
+; File auto-generated by gentests.ml
+
+; Auto-generated part begin
+; Test for foo.ae
+; Full mode test
+
+(rule
+   (target  foo.full)
+   (deps    (:response foo.rsmt2) (:input foo.ae))
+   (package dolmen_bin)
+   (action (chdir %{workspace_root}
+            (with-outputs-to %{target}
+             (with-accepted-exit-codes (or 0 (not 0))
+              (run dolmen --check-model=true -r %{response} --mode=full --color=never %{input} %{read-lines:flags.dune}))))))
+(rule
+  (alias runtest)
+  (package dolmen_bin)
+  (action (diff foo.expected foo.full)))
+
+
+; Auto-generated part end

tests/model/goals/foo.ae

@@ -0,0 +1,7 @@
+
+logic x : int
+
+goal g : false
+
+
+

tests/model/goals/foo.rsmt2

@@ -0,0 +1,2 @@
+sat
+()

tools/gentests.ml

@@ -16,7 +16,7 @@ let expected_of_problem file =
 
 let response_of_problem file =
   match Filename.extension file with
-  | ".smt2" -> Some (Filename.chop_extension file ^ ".rsmt2")
+  | ".smt2" | ".ae" -> Some (Filename.chop_extension file ^ ".rsmt2")
   | _ -> None
 
 let supports_incremental file =