max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

feat(init/meta/interactive): expose custom hyp name in by_contra

Browse source
This commit is contained in:
Mario Carneiro 2017-07-16 23:34:50 +01:00 • committed by Gabriel Ebner
parent e6294710db
commit 89131ba1ff
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
library/init/meta/interactive.lean
View file

@ -1023,11 +1023,11 @@ meta def by_cases (q : parse texpr) (n : parse (tk "with" *> ident)?): tactic un
do p ← tactic.to_expr_strict q,
tactic.by_cases p (n.get_or_else `h)
meta def by_contradiction : tactic unit :=
tactic.by_contradiction >> return ()
meta def by_contradiction (n : parse ident?) : tactic unit :=
tactic.by_contradiction n >> return ()
meta def by_contra : tactic unit :=
tactic.by_contradiction >> return ()
meta def by_contra (n : parse ident?) : tactic unit :=
tactic.by_contradiction n >> return ()
/-- Type check the given expression, and trace its type. -/
meta def type_check (p : parse texpr) : tactic unit :=