From 96333c1bf27f33c15e2475c11c7bfefe87d3a6e1 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Mon, 11 May 2020 17:41:58 +0200
Subject: 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.

---
 tactics/declareScheme.ml  | 2 ++
 tactics/declareScheme.mli | 1 +
 2 files changed, 3 insertions(+)

(limited to 'tactics')

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
-- 
cgit v1.2.3