Commit 6402581d authored by Jerome Hugues's avatar Jerome Hugues

* Report error when a theorem is false

parent 30fa0438
......@@ -366,6 +366,10 @@ package body Ocarina.Backends.REAL is
Success := False;
end if;
if not Success then
N_Errors := N_Errors + 1;
end if;
Write_Line
("theorem " &
Get_Name_String (Name (Identifier (R))) &
......
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