diff options
| author | Son HO | 2023-12-23 01:46:58 +0100 |
|---|---|---|
| committer | GitHub | 2023-12-23 01:46:58 +0100 |
| commit | 15a7d7b7322a1cd0ebeb328fde214060e23fa8b4 (patch) | |
| tree | 6cce7d76969870f5bc18c5a7cd585e8873a1c0dc /backends/lean/Base/Primitives/Base.lean | |
| parent | c3e0b90e422cbd902ee6d2b47073940c0017b7fb (diff) | |
| parent | 63ccbd914d5d44aa30dee38a6fcc019310ab640b (diff) | |
Merge pull request #64 from AeneasVerif/son/merge_back
Merge the forward/backward functions
Diffstat (limited to '')
| -rw-r--r-- | backends/lean/Base/Primitives/Base.lean | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/backends/lean/Base/Primitives/Base.lean b/backends/lean/Base/Primitives/Base.lean index 7fc33251..3d70c84a 100644 --- a/backends/lean/Base/Primitives/Base.lean +++ b/backends/lean/Base/Primitives/Base.lean @@ -120,8 +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 := x -@[simp] def core.mem.replace_back (a : Type) (_ : a) (y : a) : a := y +@[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 ]` -/ |