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/locusops.ml | |
| parent | 3eaf37069204e9f8467aedb5aebd43585c6d3d29 (diff) | |
factorize or_var_map
Diffstat (limited to 'pretyping/locusops.ml')
| -rw-r--r-- | pretyping/locusops.ml | 6 |
1 files changed, 6 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 |