summaryrefslogtreecommitdiff
path: root/backends/lean/Base
diff options
context:
space:
mode:
authorSon Ho2023-12-22 21:50:11 +0100
committerSon Ho2023-12-22 21:50:11 +0100
commitd9ace7d5f1968f26b586fb712c725b2ce51086f8 (patch)
treecd404a15226634584e44944c85eb3f3a7f885d3e /backends/lean/Base
parentdd7552bec1be1695682801fca6ba6dfcfa990fbb (diff)
Fix the models for core::mem::replace
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 321c39a8..3d70c84a 100644
--- a/backends/lean/Base/Primitives/Base.lean
+++ b/backends/lean/Base/Primitives/Base.lean
@@ -120,7 +120,7 @@ def Result.attach {α: Type} (o : Result α): Result { x : α // o = ret x } :=
-- MISC --
----------
-@[simp] def core.mem.replace (a : Type) (x : a) (_ : a) : a × (a → a) := (x, λ x => x)
+@[simp] def core.mem.replace (a : Type) (x : a) (_ : a) : a × a := (x, x)
/-- Aeneas-translated function -- useful to reduce non-recursive definitions.
Use with `simp [ aeneas ]` -/