Commit e4340f82 authored by David Hauzar's avatar David Hauzar

Displaying a counterexample in IDE before interleaving it with code.

parent 8a46fa14
......@@ -643,10 +643,13 @@ let update_tabs a =
match a.S.proof_state with
| S.Done r ->
if not (Model_parser.is_model_empty r.Call_provers.pr_model) then begin
Model_parser.interleave_with_source
r.Call_provers.pr_model
~filename:!current_file
~source_code:(Sysutil.file_contents !current_file)
"Counterexample:\n" ^
(Model_parser.model_to_string r.Call_provers.pr_model) ^
"\n\nSource code interleaved with counterexample:" ^
(Model_parser.interleave_with_source
r.Call_provers.pr_model
~filename:!current_file
~source_code:(Sysutil.file_contents !current_file))
end else
""
| _ -> ""
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment