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

chore(init/meta/tactic): remove superfluous fail clause

Browse source
This commit is contained in:
Mario Carneiro 2017-07-18 21:28:09 +01:00 • committed by Leonardo de Moura
parent 4ae2f87bc8
commit dfbcb72f38
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
library/init/meta/tactic.lean
View file

@ -1005,8 +1005,7 @@ meta def by_cases (e : expr) (h : name) : tactic unit :=
do dec_e ← (mk_app `decidable [e] <|> fail "by_cases tactic failed, type is not a proposition"),
inst ← (mk_instance dec_e <|> fail "by_cases tactic failed, type of given expression is not decidable"),
t ← target,
tm ← (mk_mapp `dite [some e, some inst, some t] <|>
fail "by_cases tactic failed, type of given expression is not decidable"),
tm ← mk_mapp `dite [some e, some inst, some t],
seq (apply tm) (intro h >> skip)
private meta def get_undeclared_const (env : environment) (base : name) : ℕ → name | i :=