4 lines
215 B
Text
4 lines
215 B
Text
meta def tactic.intro : name → tactic expr :=
|
||
λ (n : name),
|
||
tactic.target >>= λ (t : expr),
|
||
ite (↑(expr.is_pi t) ∨ ↑(expr.is_let t)) (tactic.intro_core n) (tactic.whnf_target >> tactic.intro_core n)
|