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

fix: default value

Browse source
This commit is contained in:
Leonardo de Moura 2020-09-17 15:58:29 -07:00
parent 3dbe2076b9
commit 59bf4defc6
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Lean/Meta/SynthInstance.lean
View file

@ -524,11 +524,11 @@ forallTelescope type $ fun xs typeBody =>
mkForallFVars xs (mkAppN c args)
| _ => pure type
def maxStepsDefault := 1000
@[init] def maxStepsOption : IO Unit :=
registerOption `synthInstance.maxSteps { defValue := (1000 : Nat), group := "", descr := "maximum steps for the type class instance synthesis procedure" }
registerOption `synthInstance.maxSteps { defValue := maxStepsDefault, group := "", descr := "maximum steps for the type class instance synthesis procedure" }
private def getMaxSteps (opts : Options) : Nat :=
opts.getNat `synthInstance.maxSteps 10000
opts.getNat `synthInstance.maxSteps maxStepsDefault
private def synthInstanceImp? (type : Expr) : MetaM (Option Expr) := do
opts ← getOptions;