diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-04-26 14:04:45 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-04-26 14:04:45 +0000 |
| commit | d488b3bff54732a8e05f9bd48c66695b461ef3af (patch) | |
| tree | 68043a36b8fc3cc5c1d9389de5b39351f0f63b6a /tactics/btermdn.mli | |
| parent | 80297f53a4a43aff327426a08ffd58236ec4d56d (diff) | |
Introduction d'un type constr_pattern pour les différents filtrages
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@368 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/btermdn.mli')
| -rw-r--r-- | tactics/btermdn.mli | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tactics/btermdn.mli b/tactics/btermdn.mli index 882f0bbb9..2d0b2f106 100644 --- a/tactics/btermdn.mli +++ b/tactics/btermdn.mli @@ -4,6 +4,7 @@ (*i*) open Generic open Term +open Rawterm (*i*) (* Discrimination nets with bounded depth. *) @@ -12,10 +13,10 @@ type 'a t val create : unit -> 'a t -val add : 'a t -> (constr * 'a) -> 'a t -val rmv : 'a t -> (constr * 'a) -> 'a t +val add : 'a t -> (constr_pattern * 'a) -> 'a t +val rmv : 'a t -> (constr_pattern * 'a) -> 'a t -val lookup : 'a t -> constr -> (constr * 'a) list -val app : ((constr * 'a) -> unit) -> 'a t -> unit +val lookup : 'a t -> constr -> (constr_pattern * 'a) list +val app : ((constr_pattern * 'a) -> unit) -> 'a t -> unit val dnet_depth : int ref |