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

feat(library/blast/backward/backward_strategy): don't try constructor action by default

Browse source
This commit is contained in:
Leonardo de Moura 2015-11-18 19:14:37 -08:00
parent 3f6ec66b36
commit 3bd83b8e41
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/library/blast/backward/backward_strategy.cpp
View file

@ -71,7 +71,6 @@ class backward_strategy : public strategy {
Try(assumption_action()); Try(assumption_action());
list<gexpr> backward_rules = get_extension().get_backward_rule_set().find(head_index(curr_state().get_target())); list<gexpr> backward_rules = get_extension().get_backward_rule_set().find(head_index(curr_state().get_target()));
Try(backward_action(backward_rules, true)); Try(backward_action(backward_rules, true));
Try(constructor_action());
return action_result::failed(); return action_result::failed();
} }
}; };

2
tests/lean/run/blast20.lean
View file

@ -12,6 +12,8 @@ by blast
example : ∀ (F F' : Prop), F ∧ F' → F := example : ∀ (F F' : Prop), F ∧ F' → F :=
by blast by blast
attribute and.intro [backward]
example : ∀ (P Q R : nat → Prop) (F : Prop), (F ∧ (∀ n m, (Q m ∧ R n) → P n)) → example : ∀ (P Q R : nat → Prop) (F : Prop), (F ∧ (∀ n m, (Q m ∧ R n) → P n)) →
(F → R 2) → Q 1 → P 2 ∧ F := (F → R 2) → Q 1 → P 2 ∧ F :=
by blast by blast