diff options
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, |