diff options
| author | Alexandre Moine | 2019-10-18 15:08:15 +0200 |
|---|---|---|
| committer | Alexandre Moine | 2019-10-18 15:37:26 +0200 |
| commit | a9ce215f56fdb58002d2e5eca1cc8e0370cf9efa (patch) | |
| tree | 9688d0541f47486dc36b94cbf3d8a251422960fe /pretyping | |
| parent | 3eaf37069204e9f8467aedb5aebd43585c6d3d29 (diff) | |
factorize or_var_map
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/locusops.ml | 6 | ||||
| -rw-r--r-- | pretyping/locusops.mli | 4 |
2 files changed, 10 insertions, 0 deletions
diff --git a/pretyping/locusops.ml b/pretyping/locusops.ml index 02c8f6a2a8..9c6cf090a2 100644 --- a/pretyping/locusops.ml +++ b/pretyping/locusops.ml @@ -10,6 +10,12 @@ open Locus +(** Utilities on or_var *) + +let or_var_map f = function + | ArgArg x -> ArgArg (f x) + | ArgVar _ as y -> y + (** Utilities on occurrences *) let occurrences_map f = function diff --git a/pretyping/locusops.mli b/pretyping/locusops.mli index 195dbec935..47d2ffe797 100644 --- a/pretyping/locusops.mli +++ b/pretyping/locusops.mli @@ -11,6 +11,10 @@ open Names open Locus +(** Utilities on or_var *) + +val or_var_map : ('a -> 'b) -> 'a or_var -> 'b or_var + (** Utilities on occurrences *) val occurrences_map : |