diff options
Diffstat (limited to 'tactics/termdn.mli')
-rw-r--r-- | tactics/termdn.mli | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/tactics/termdn.mli b/tactics/termdn.mli deleted file mode 100644 index b13d639e..00000000 --- a/tactics/termdn.mli +++ /dev/null @@ -1,68 +0,0 @@ -(************************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2014 *) -(* \VV/ **************************************************************) -(* // * This file is distributed under the terms of the *) -(* * GNU Lesser General Public License Version 2.1 *) -(************************************************************************) - -open Term -open Pattern -open Libnames -open Names - -(** Discrimination nets of terms. *) - -(** This module registers actions (typically tactics) mapped to patterns *) - -(** Patterns are stocked linearly as the list of its node in prefix -order in such a way patterns having the same prefix have this common -prefix shared and the seek for the action associated to the patterns -that a term matches are found in time proportional to the maximal -number of nodes of the patterns matching the term. The [transparent_state] -indicates which constants and variables can be considered as rigid. -These dnets are able to cope with existential variables as well, which match -[Everything]. *) - -module Make : - functor (Z : Map.OrderedType) -> -sig - - type t - - type 'a lookup_res - - val create : unit -> t - - (** [add t (c,a)] adds to table [t] pattern [c] associated to action [act] *) - - val add : t -> transparent_state -> (constr_pattern * Z.t) -> t - - val rmv : t -> transparent_state -> (constr_pattern * Z.t) -> t - - (** [lookup t c] looks for patterns (with their action) matching term [c] *) - - val lookup : t -> transparent_state -> constr -> (constr_pattern * Z.t) list - - val app : ((constr_pattern * Z.t) -> unit) -> t -> unit - - - (**/**) - (** These are for Nbtermdn *) - - type term_label = - | GRLabel of global_reference - | ProdLabel - | LambdaLabel - | SortLabel - - val constr_pat_discr_st : transparent_state -> - constr_pattern -> (term_label * constr_pattern list) option - val constr_val_discr_st : transparent_state -> - constr -> (term_label * constr list) lookup_res - - val constr_pat_discr : constr_pattern -> (term_label * constr_pattern list) option - val constr_val_discr : constr -> (term_label * constr list) lookup_res - - (**/**) -end |