diff options
| author | Pierre-Marie Pédrot | 2019-10-18 19:55:25 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-10-18 19:55:25 +0200 |
| commit | fe4e6aae2f4ae86a2f1f7262709ace8d31869c8c (patch) | |
| tree | 623b83b68d482f74af181c58d0e07e6b9f5e9199 /pretyping | |
| parent | d8448a980cbb565a22d5196fc79a5b342c443e32 (diff) | |
| parent | a9ce215f56fdb58002d2e5eca1cc8e0370cf9efa (diff) | |
Merge PR #10919: factorize or_var_map
Reviewed-by: ppedrot
Reviewed-by: vbgl
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 : |