max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: remove staging workaround

Browse source
This commit is contained in:
Leonardo de Moura 2024-01-02 05:54:09 -08:00 • committed by Sebastian Ullrich
parent b376b1594e
commit 7350d0a3ff
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Lean/Elab/Tactic/Simproc.lean
View file

@ -46,7 +46,7 @@ namespace Command
liftTermElabM do
checkSimprocType declName
let keys ← elabSimprocKeys pattern
let val := mkAppN (mkConst ``registerBuiltinSimprocNew) #[toExpr declName, toExpr keys, mkConst declName]
let val := mkAppN (mkConst ``registerBuiltinSimproc) #[toExpr declName, toExpr keys, mkConst declName]
let initDeclName ← mkFreshUserName (declName ++ `declare)
declareBuiltin initDeclName val

4
src/Lean/Meta/Tactic/Simp/Simproc.lean
View file

@ -59,13 +59,13 @@ def isBuiltinSimproc (declName : Name) : CoreM Bool := do
def isSimproc (declName : Name) : CoreM Bool :=
return (← getSimprocDeclKeys? declName).isSome
def registerBuiltinSimproc (declName : Name) (key : Array SimpTheoremKey) : IO Unit := do
def registerBuiltinSimproc (declName : Name) (key : Array SimpTheoremKey) (proc : Simproc) : IO Unit := do
unless (← initializing) do
throw (IO.userError s!"invalid builtin simproc declaration, it can only be registered during initialization")
if (← builtinSimprocDeclsRef.get).keys.contains declName then
throw (IO.userError s!"invalid builtin simproc declaration '{declName}', it has already been declared")
builtinSimprocDeclsRef.modify fun { keys, procs } =>
{ keys := keys.insert declName key, procs }
{ keys := keys.insert declName key, procs := procs.insert declName proc }
def registerBuiltinSimprocNew (declName : Name) (key : Array SimpTheoremKey) (proc : Simproc) : IO Unit := do
unless (← initializing) do