diff options
| author | herbelin | 2003-11-24 12:33:06 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-24 12:33:06 +0000 |
| commit | 8aea38ca9b526d1d1ed731948528b4e921b303d2 (patch) | |
| tree | e73ee9505b8d30b00baf86d472ee5a3e3685980b /pretyping/termops.ml | |
| parent | 047cc297fddba6567f68550c11769142411a17e1 (diff) | |
Prise en compte des defs syntaxiques dans is_global et global_reference qui passent donc de Termops a Constrintern
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4980 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/termops.ml')
| -rw-r--r-- | pretyping/termops.ml | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/pretyping/termops.ml b/pretyping/termops.ml index 23f9a7ffc7..f9e949c84c 100644 --- a/pretyping/termops.ml +++ b/pretyping/termops.ml @@ -899,17 +899,3 @@ let rec rename_bound_var env l c = | Cast (c,t) -> mkCast (rename_bound_var env l c, t) | x -> c -(* References to constr *) - -let global_reference id = - constr_of_reference (Nametab.locate (make_short_qualid id)) - -let construct_reference ctx id = - try - mkVar (let _ = Sign.lookup_named id ctx in id) - with Not_found -> - global_reference id - -let global_reference_in_absolute_module dir id = - constr_of_reference (Nametab.absolute_reference (Libnames.make_path dir id)) - |