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

* 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;
("theorem " &
Get_Name_String (Name (Identifier (R))) &
Supports Markdown
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