summaryrefslogtreecommitdiff
path: root/backends/lean/Base/Primitives
diff options
context:
space:
mode:
authorSon Ho2024-03-18 01:39:29 +0100
committerSon Ho2024-03-18 01:39:29 +0100
commitd281f43fd5dfeab24fe582fd88564f6c1ab7f934 (patch)
treeb99dc104821234f6e519bf5f0615e62d1aeee20f /backends/lean/Base/Primitives
parenta8ebfc3947adb052f36775c664e43a8dc7434660 (diff)
Regenerate the constants tests and update Primitives/Base.lean
Diffstat (limited to '')
-rw-r--r--backends/lean/Base/Primitives/Base.lean2
1 files changed, 1 insertions, 1 deletions
diff --git a/backends/lean/Base/Primitives/Base.lean b/backends/lean/Base/Primitives/Base.lean
index 0b9d9c39..d2695854 100644
--- a/backends/lean/Base/Primitives/Base.lean
+++ b/backends/lean/Base/Primitives/Base.lean
@@ -69,7 +69,7 @@ def div? {α: Type u} (r: Result α): Bool :=
def massert (b:Bool) : Result Unit :=
if b then ret () else fail assertionFailure
-def eval_global {α: Type u} (x: Result α) (_: ret? x := by decide): α :=
+def eval_global {α: Type u} (x: Result α) (_: ret? x := by first | apply Eq.refl | decide): α :=
match x with
| fail _ | div => by contradiction
| ret x => x