From a9ce215f56fdb58002d2e5eca1cc8e0370cf9efa Mon Sep 17 00:00:00 2001
From: Alexandre Moine
Date: Fri, 18 Oct 2019 15:08:15 +0200
Subject: factorize or_var_map

---
 pretyping/locusops.ml  | 6 ++++++
 pretyping/locusops.mli | 4 ++++
 2 files changed, 10 insertions(+)

(limited to 'pretyping')

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 :
-- 
cgit v1.2.3