Skip to content
Snippets Groups Projects
Commit b6d58ca6 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Support `||` in `naive_solver`.

parent a2a2d978
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 0 deletions
theories/tactics.v
+ 3
− 0
View file @ b6d58ca6
...@@ -517,6 +517,8 @@ Tactic Notation "naive_solver" tactic(tac) := ...@@ -517,6 +517,8 @@ Tactic Notation "naive_solver" tactic(tac) :=
| |- Is_true (_ && _) => apply andb_True; split | |- Is_true (_ && _) => apply andb_True; split
| H : _ ∨ _ |- _ => | H : _ ∨ _ |- _ =>
let H1 := fresh in destruct H as [H1|H1]; try clear H let H1 := fresh in destruct H as [H1|H1]; try clear H
| H : Is_true (_ || _) |- _ =>
apply orb_True in H; let H1 := fresh in destruct H as [H1|H1]; try clear H
(**i solve the goal using the user supplied tactic *) (**i solve the goal using the user supplied tactic *)
| |- _ => solve [tac] | |- _ => solve [tac]
end; end;
...@@ -525,6 +527,7 @@ Tactic Notation "naive_solver" tactic(tac) := ...@@ -525,6 +527,7 @@ Tactic Notation "naive_solver" tactic(tac) :=
(**i instantiation of the conclusion *) (**i instantiation of the conclusion *)
| |- ∃ x, _ => no_new_unsolved_evars ltac:(eexists; go n) | |- ∃ x, _ => no_new_unsolved_evars ltac:(eexists; go n)
| |- _ ∨ _ => first [left; go n | right; go n] | |- _ ∨ _ => first [left; go n | right; go n]
| |- Is_true (_ || _) => apply orb_True; first [left; go n | right; go n]
| _ => | _ =>
(**i instantiations of assumptions. *) (**i instantiations of assumptions. *)
lazymatch n with lazymatch n with
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment