diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-06 19:30:24 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:26:33 +0100 |
commit | 77e638121b6683047be915da9d0499a58fcb6e52 (patch) | |
tree | 5c3bcc6ebe298c0e6a190d0e8c94b8e4fba626c3 /pretyping/patternops.mli | |
parent | e27949240f5b1ee212e7d0fe3326a21a13c4abb0 (diff) |
Patternops API using EConstr.
Diffstat (limited to 'pretyping/patternops.mli')
-rw-r--r-- | pretyping/patternops.mli | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/patternops.mli b/pretyping/patternops.mli index 1f63565d6..93d2c859a 100644 --- a/pretyping/patternops.mli +++ b/pretyping/patternops.mli @@ -7,6 +7,7 @@ (************************************************************************) open Term +open EConstr open Globnames open Glob_term open Mod_subst @@ -32,7 +33,7 @@ val head_pattern_bound : constr_pattern -> global_reference (** [head_of_constr_reference c] assumes [r] denotes a reference and returns its label; raises an anomaly otherwise *) -val head_of_constr_reference : Term.constr -> global_reference +val head_of_constr_reference : Evd.evar_map -> constr -> global_reference (** [pattern_of_constr c] translates a term [c] with metavariables into a pattern; currently, no destructor (Cases, Fix, Cofix) and no |