michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(library/blast/intros_action): apply head_beta_reduce at intros

Browse source
This commit is contained in:
Leonardo de Moura 2015-11-15 18:14:12 -08:00
parent 2e057477ef
commit a545860aa1
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/library/blast/intros_action.cpp
View file

@ -37,10 +37,11 @@ bool intros_action(unsigned max) {
if (!is_pi(target))
break;
expr href;
expr htype = head_beta_reduce(binding_domain(target));
if (is_default_var_name(binding_name(target)) && closed(binding_body(target))) {
href = s.mk_hypothesis(binding_domain(target));
href = s.mk_hypothesis(htype);
} else {
href = s.mk_hypothesis(binding_name(target), binding_domain(target));
href = s.mk_hypothesis(binding_name(target), htype);
}
new_hs.push_back(href);
target = whnf(instantiate(binding_body(target), href));

4
tests/lean/run/blast15.lean Normal file
View file

@ -0,0 +1,4 @@
definition lemma1 (p : nat → Prop) (q : nat → nat → Prop) : (∃ x y, p x ∧ q x y) → q 0 0 ∧ q 1 1 → (∃ x, p x) :=
by blast
print lemma1