diff --git a/src/Lean/Elab/Tactic/Basic.lean b/src/Lean/Elab/Tactic/Basic.lean index 505ca4cfff..f58c7820cd 100644 --- a/src/Lean/Elab/Tactic/Basic.lean +++ b/src/Lean/Elab/Tactic/Basic.lean @@ -49,6 +49,9 @@ instance : Monad TacticM := let i := inferInstanceAs (Monad TacticM); { pure := i.pure, bind := i.bind } +instance : Inhabited (TacticM α) where + default := fun _ _ => default + def getGoals : TacticM (List MVarId) := return (← get).goals