aboutsummaryrefslogtreecommitdiffhomepage
path: root/library/libnames.ml
diff options
context:
space:
mode:
Diffstat (limited to 'library/libnames.ml')
-rw-r--r--library/libnames.ml2
1 files changed, 2 insertions, 0 deletions
diff --git a/library/libnames.ml b/library/libnames.ml
index d951b616e..dcdd5ac41 100644
--- a/library/libnames.ml
+++ b/library/libnames.ml
@@ -21,6 +21,8 @@ type global_reference =
| IndRef of inductive
| ConstructRef of constructor
+let isVarRef = function VarRef _ -> true | _ -> false
+
let subst_global subst ref = match ref with
| VarRef var -> ref, mkVar var
| ConstRef kn ->