diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-11-07 18:38:12 +0100 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-11-19 10:11:45 +0100 |
| commit | fc2476e4a29592dcf2860a16d3a7c0aeeb4bffac (patch) | |
| tree | 0fbe3e51ea0fd8e68e9f555fdc52a18bc2cf417c /pretyping/glob_ops.mli | |
| parent | 7232e8f3fc5237705b80a870a6a3ad1a4748b838 (diff) | |
Printing function for [uconstr].
The core is a "detyping" function for [closed_glob_constr]. Which interpretes the variable names according to the Ltac context, and apply the standard detyping procedure to typed terms in the closure.
Diffstat (limited to 'pretyping/glob_ops.mli')
| -rw-r--r-- | pretyping/glob_ops.mli | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/pretyping/glob_ops.mli b/pretyping/glob_ops.mli index 41d1d51a5..5d84921d5 100644 --- a/pretyping/glob_ops.mli +++ b/pretyping/glob_ops.mli @@ -45,6 +45,13 @@ val loc_of_glob_constr : glob_constr -> Loc.t val map_pattern_binders : (name -> name) -> tomatch_tuples -> cases_clauses -> (tomatch_tuples*cases_clauses) +(** [map_pattern f m c] applies [f] to the return predicate and the + right-hand side of a pattern-matching expression + ({!Glob_term.GCases}) represented here by its relevant components + [m] and [c]. *) +val map_pattern : (glob_constr -> glob_constr) -> + tomatch_tuples -> cases_clauses -> (tomatch_tuples*cases_clauses) + (** Conversion from glob_constr to cases pattern, if possible Take the current alias as parameter, |