summaryrefslogtreecommitdiff
path: root/backends/lean/Base/Primitives
diff options
context:
space:
mode:
authorSon Ho2023-10-24 18:16:53 +0200
committerSon Ho2023-10-24 18:16:53 +0200
commit9c230dddebb171ee1b3e0176838441163836b875 (patch)
treee6e18cefa51d49d9e77c9feaec3ff41d6f89f975 /backends/lean/Base/Primitives
parenta1f3bbb50d44d7ba881b32b8b05b1474276c9a4d (diff)
Handle properly the builtin, non fallible functions
Diffstat (limited to '')
-rw-r--r--backends/lean/Base/Primitives/Base.lean4
1 files changed, 2 insertions, 2 deletions
diff --git a/backends/lean/Base/Primitives/Base.lean b/backends/lean/Base/Primitives/Base.lean
index 2bd081c0..10af8f67 100644
--- a/backends/lean/Base/Primitives/Base.lean
+++ b/backends/lean/Base/Primitives/Base.lean
@@ -120,8 +120,8 @@ def Result.attach {α: Type} (o : Result α): Result { x : α // o = ret x } :=
-- MISC --
----------
-@[simp] def core.mem.replace (a : Type) (x : a) (_ : a) : Result a := ret x
-@[simp] def core.mem.replace_back (a : Type) (_ : a) (y : a) : Result a := ret y
+@[simp] def core.mem.replace (a : Type) (x : a) (_ : a) : a := x
+@[simp] def core.mem.replace_back (a : Type) (_ : a) (y : a) : a := y
/-- Aeneas-translated function -- useful to reduce non-recursive definitions.
Use with `simp [ aeneas ]` -/