fix(init/meta/constructor_tactic): constructor tac uses whnf
This commit is contained in:
parent
d0242a3631
commit
1e2157e210
1 changed files with 1 additions and 1 deletions
|
|
@ -19,7 +19,7 @@ private meta def try_constructors (cfg : apply_cfg): list name → tactic unit
|
|||
| (c::cs) := (mk_const c >>= λ e, apply_core e cfg >> return ()) <|> try_constructors cs
|
||||
|
||||
meta def constructor (cfg : apply_cfg := {}): tactic unit :=
|
||||
target >>= instantiate_mvars >>= get_constructors_for >>= try_constructors cfg
|
||||
target >>= instantiate_mvars >>= whnf >>= get_constructors_for >>= try_constructors cfg
|
||||
|
||||
meta def econstructor : tactic unit :=
|
||||
constructor {new_goals := new_goals.non_dep_only}
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue