diff options
| author | Hugo Herbelin | 2020-05-11 17:41:58 +0200 |
|---|---|---|
| committer | Théo Zimmermann | 2020-05-15 18:05:09 +0200 |
| commit | 96333c1bf27f33c15e2475c11c7bfefe87d3a6e1 (patch) | |
| tree | 2d1545c2d416846b3e0c52b8537a437582a805c6 /tactics | |
| parent | a28c4b025439a747354c2432223a3b30912ba182 (diff) | |
Search: new clauses for searching head, conclusion, kind...
- new clauses "hyp:", "concl:", "headhyp:" and "headconcl:" to restrict
match to an hypothesis or the conclusion, possibly only at the head
(like SearchHead in this latter case)
- new clause "is:" to search by kind of object (for some list of kinds)
- support for any combination of negations, disjunctions and conjunctions,
using a syntax close to that of intropatterns.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/declareScheme.ml | 2 | ||||
| -rw-r--r-- | tactics/declareScheme.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/tactics/declareScheme.ml b/tactics/declareScheme.ml index 84fa1ee508..f7fe595df5 100644 --- a/tactics/declareScheme.ml +++ b/tactics/declareScheme.ml @@ -40,3 +40,5 @@ let declare_scheme kind indcl = Lib.add_anonymous_leaf (inScheme (kind,indcl)) let lookup_scheme kind ind = CString.Map.find kind (Indmap.find ind !scheme_map) + +let all_schemes () = Indmap.domain !scheme_map diff --git a/tactics/declareScheme.mli b/tactics/declareScheme.mli index 5a771009bd..d10cb4ef15 100644 --- a/tactics/declareScheme.mli +++ b/tactics/declareScheme.mli @@ -10,3 +10,4 @@ val declare_scheme : string -> (Names.inductive * Names.Constant.t) array -> unit val lookup_scheme : string -> Names.inductive -> Names.Constant.t +val all_schemes : unit -> Names.Indset.t |