diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-01-10 14:37:21 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-01-10 14:37:21 +0000 |
| commit | fa49da538d1d65f34d7b7fd3c32e51ef7ff578a3 (patch) | |
| tree | 16330c09c5152643b24d68f57502a8721660051f /library/libnames.ml | |
| parent | cb985b826fc82f94186b849206504d7d328b70e5 (diff) | |
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
Diffstat (limited to 'library/libnames.ml')
| -rw-r--r-- | library/libnames.ml | 2 |
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 -> |