diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-11-28 23:23:17 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-11-28 23:23:17 +0000 |
| commit | 68fe6e8f354f4317decc5c69e2658fd17b5a5e90 (patch) | |
| tree | dd00bc22ae667c5e3fe9274b072f7bcca3f68543 /lib/util.mli | |
| parent | f0379a9f1e23ebebbb7af67aafa593938324939b (diff) | |
Finally used typing to decide whether an alias needs to be expanded or
not in pattern-matching compilation.
Also extended to the Var case the preference given to using the term
to match as alias rather than its expansion.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14737 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/util.mli')
| -rw-r--r-- | lib/util.mli | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/util.mli b/lib/util.mli index e24df1a31..a2a72453c 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -61,6 +61,7 @@ exception Error_in_file of string * (bool * string * loc) * exn val on_fst : ('a -> 'b) -> 'a * 'c -> 'b * 'c val on_snd : ('a -> 'b) -> 'c * 'a -> 'c * 'b +val map_pair : ('a -> 'b) -> 'a * 'a -> 'b * 'b (** Going down pairs *) |