From fa49da538d1d65f34d7b7fd3c32e51ef7ff578a3 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Wed, 10 Jan 2007 14:37:21 +0000
Subject: Suite commit restructuration discharge (application du type de
 discharge_function des implicites au cas des scopes d'arguments)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9475 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/libnames.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'library/libnames.ml')

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