diff --git a/Pantograph/Environment.lean b/Pantograph/Environment.lean index 19c3249..303c2b5 100644 --- a/Pantograph/Environment.lean +++ b/Pantograph/Environment.lean @@ -64,7 +64,7 @@ def inspect (args: Protocol.EnvInspect) (options: @&Protocol.Options): CoreM (Pr else .none, valueDependency? := ← if args.dependency?.getD false then info.value?.mapM (λ e => do - let e ← (unfoldAuxLemmas e).run' + let e ← unfoldAuxLemmas e pure $ e.getUsedConstants.filter (!isNameInternal ·) |>.map (λ n => name_to_ast n) ) else pure (.none), module? := module? diff --git a/Pantograph/Serial.lean b/Pantograph/Serial.lean index bf79314..7377c68 100644 --- a/Pantograph/Serial.lean +++ b/Pantograph/Serial.lean @@ -15,7 +15,7 @@ def Lean.Name.isAuxLemma (n : Lean.Name) : Bool := n matches .num (.str _ "_auxL namespace Pantograph /-- Unfold all lemmas created by `Lean.Meta.mkAuxLemma`. These end in `_auxLemma.nn` where `nn` is a number. -/ -def unfoldAuxLemmas (e : Lean.Expr) : Lean.MetaM Lean.Expr := do +def unfoldAuxLemmas (e : Lean.Expr) : Lean.CoreM Lean.Expr := do Lean.Meta.deltaExpand e Lean.Name.isAuxLemma --- Input Functions ---