diff --git a/src/Init/Lean/Elab/Tactic/Basic.lean b/src/Init/Lean/Elab/Tactic/Basic.lean index 1da09ae145..bbd8c79cd8 100644 --- a/src/Init/Lean/Elab/Tactic/Basic.lean +++ b/src/Init/Lean/Elab/Tactic/Basic.lean @@ -6,6 +6,7 @@ Authors: Leonardo de Moura, Sebastian Ullrich prelude import Init.Lean.Elab.Util import Init.Lean.Elab.Term +import Init.Lean.Meta.Tactic.Assumption namespace Lean namespace Elab @@ -176,14 +177,11 @@ withMVarContext g $ do gs' ← liftMetaM ref $ tactic g; modify $ fun s => { goals := gs' ++ gs, .. s } -/- - @[builtinTactic seq] def evalSeq : Tactic := fun stx => (stx.getArg 0).forSepArgsM evalTactic @[builtinTactic «assumption»] def evalAssumption : Tactic := -fun _ => pure () --/ +fun stx => liftMetaTactic stx $ fun mvarId => do Meta.assumption mvarId; pure [] @[init] private def regTraceClasses : IO Unit := do registerTraceClass `Elab.tactic; diff --git a/tests/lean/run/newfrontend1.lean b/tests/lean/run/newfrontend1.lean index 84a37b90c0..784a6a4af2 100644 --- a/tests/lean/run/newfrontend1.lean +++ b/tests/lean/run/newfrontend1.lean @@ -41,7 +41,7 @@ def apply := "hello" #check apply -theorem tst (x y : Nat) (h : x = y) : x = y := +def simple (x y : Nat) (h : x = y) : x = y := begin - -- assumption + assumption end