From fc2476e4a29592dcf2860a16d3a7c0aeeb4bffac Mon Sep 17 00:00:00 2001 From: Arnaud Spiwack Date: Fri, 7 Nov 2014 18:38:12 +0100 Subject: 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. --- pretyping/glob_ops.mli | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'pretyping/glob_ops.mli') 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, -- cgit v1.2.3