diff options
author | Son Ho | 2024-02-02 20:48:26 +0100 |
---|---|---|
committer | Son Ho | 2024-02-02 20:48:26 +0100 |
commit | a68c231db4edf97c4f007724969aec7dd60941a1 (patch) | |
tree | 7d6767e8f5ba5bda991baf02844afa29e14150ac /backends/lean/Base/Extensions.lean | |
parent | 0960ad16838a43da3746f47cf5b640bfbb783d84 (diff) |
Update lean to v4.6.0-rc1 and start fixing the proofs
Diffstat (limited to '')
-rw-r--r-- | backends/lean/Base/Extensions.lean | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/backends/lean/Base/Extensions.lean b/backends/lean/Base/Extensions.lean index b34f41dc..c0e80861 100644 --- a/backends/lean/Base/Extensions.lean +++ b/backends/lean/Base/Extensions.lean @@ -31,13 +31,13 @@ def mkMapDeclarationExtension [Inhabited α] (name : Name := by exact decl_name% store the keys from *after* the transformation (i.e., the `DiscrTreeKey` below). The transformation itself can be done elsewhere. -/ -abbrev DiscrTreeKey (simpleReduce : Bool) := Array (DiscrTree.Key simpleReduce) +abbrev DiscrTreeKey := Array DiscrTree.Key -abbrev DiscrTreeExtension (α : Type) (simpleReduce : Bool) := - SimplePersistentEnvExtension (DiscrTreeKey simpleReduce × α) (DiscrTree α simpleReduce) +abbrev DiscrTreeExtension (α : Type) := + SimplePersistentEnvExtension (DiscrTreeKey × α) (DiscrTree α) -def mkDiscrTreeExtention [Inhabited α] [BEq α] (name : Name := by exact decl_name%) (simpleReduce : Bool) : - IO (DiscrTreeExtension α simpleReduce) := +def mkDiscrTreeExtention [Inhabited α] [BEq α] (name : Name := by exact decl_name%) : + IO (DiscrTreeExtension α) := registerSimplePersistentEnvExtension { name := name, addImportedFn := fun a => a.foldl (fun s a => a.foldl (fun s (k, v) => s.insertCore k v) s) DiscrTree.empty, |