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

refactor(library/init/meta/simp_tactic): include defaults for 'simp with'

Browse source
This commit is contained in:
Jeremy Avigad 2017-06-02 10:38:15 -04:00 • committed by Leonardo de Moura
parent 650870fd0e
commit dedc87fa7e
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
library/init/meta/simp_tactic.lean
View file

@ -410,9 +410,12 @@ meta def join_user_simp_lemmas_core : simp_lemmas → list name → tactic simp_
| S [] := return S
| S (attr_name::R) := do S' ← get_user_simp_lemmas attr_name, join_user_simp_lemmas_core (S.join S') R
meta def join_user_simp_lemmas (no_dflt : bool) : list name → tactic simp_lemmas
| [] := if no_dflt then pure simp_lemmas.mk else simp_lemmas.mk_default
| attr_names := join_user_simp_lemmas_core simp_lemmas.mk attr_names
meta def join_user_simp_lemmas (no_dflt : bool) (attrs : list name) : tactic simp_lemmas :=
if no_dflt then
join_user_simp_lemmas_core simp_lemmas.mk attrs
else do
s ← simp_lemmas.mk_default,
join_user_simp_lemmas_core s attrs
/- Normalize numerical expression, returns a pair (n, pr) where n is the resultant numeral,
and pr is a proof that the input argument is equal to n. -/