diff --git a/Pantograph/Expr.lean b/Pantograph/Expr.lean index cbee9a5..f989575 100644 --- a/Pantograph/Expr.lean +++ b/Pantograph/Expr.lean @@ -23,7 +23,6 @@ def exprProjToApp (env: Environment) (e: Expr): ProjectionApplication := inner, } - def _root_.Lean.Name.isAuxLemma (n : Lean.Name) : Bool := n matches .num (.str _ "_auxLemma") _ /-- Unfold all lemmas created by `Lean.Meta.mkAuxLemma`. These end in `_auxLemma.nn` where `nn` is a number. -/ diff --git a/Pantograph/Goal.lean b/Pantograph/Goal.lean index 6dbe525..26a8da1 100644 --- a/Pantograph/Goal.lean +++ b/Pantograph/Goal.lean @@ -54,6 +54,8 @@ protected def GoalState.isConv (state: GoalState): Bool := state.convMVar?.isSome protected def GoalState.goals (state: GoalState): List MVarId := state.savedState.tactic.goals +@[export pantograph_goal_state_goals] +protected def GoalState.goalsArray (state: GoalState): Array MVarId := state.goals.toArray protected def GoalState.mctx (state: GoalState): MetavarContext := state.savedState.term.meta.meta.mctx protected def GoalState.env (state: GoalState): Environment := diff --git a/Pantograph/Library.lean b/Pantograph/Library.lean index 2f37cfa..5aa8f35 100644 --- a/Pantograph/Library.lean +++ b/Pantograph/Library.lean @@ -76,17 +76,6 @@ def createCoreState (imports: Array String): IO Core.State := do (trustLevel := 1) return { env := env } -@[export pantograph_env_catalog_m] -def envCatalog: CoreM Protocol.EnvCatalogResult := - Environment.catalog ({}: Protocol.EnvCatalog) - -@[export pantograph_env_inspect_m] -def envInspect (name: String) (value: Bool) (dependency: Bool) (options: @&Protocol.Options): - CoreM (Protocol.CR Protocol.EnvInspectResult) := - Environment.inspect ({ - name, value? := .some value, dependency?:= .some dependency - }: Protocol.EnvInspect) options - @[export pantograph_env_add_m] def envAdd (name: String) (type: String) (value: String) (isTheorem: Bool): CoreM (Protocol.CR Protocol.EnvAddResult) :=