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

Add `by` parameter to `multiset_solver`, which defaults to `eauto`.

parent 0528f023
No related branches found
No related tags found
1 merge request!457Add `by` parameter to `multiset_solver`
...@@ -332,8 +332,16 @@ Ltac multiset_simplify_singletons := ...@@ -332,8 +332,16 @@ Ltac multiset_simplify_singletons :=
end. end.
(** Putting it all together *) (** Putting it all together *)
Ltac multiset_solver := (** Similar to [set_solver] and [naive_solver], [multiset_solver] has a [by]
set_solver by (multiset_instantiate; multiset_simplify_singletons; lia). parameter whose default is [eauto]. *)
Tactic Notation "multiset_solver" "by" tactic3(tac) :=
set_solver by (multiset_instantiate;
multiset_simplify_singletons;
(* [fast_done] to solve trivial equalities or contradictions,
[lia] for the common case that involves arithmetic,
[tac] if all else fails *)
first [fast_done|lia|tac]).
Tactic Notation "multiset_solver" := multiset_solver by eauto.
Section more_lemmas. Section more_lemmas.
Context `{Countable A}. Context `{Countable A}.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment