diff options
| author | herbelin | 2000-05-18 08:14:28 +0000 |
|---|---|---|
| committer | herbelin | 2000-05-18 08:14:28 +0000 |
| commit | aaa56145f319b58300ed7f914b35eb11321838e4 (patch) | |
| tree | a24271d50a26991be09ab5bb1440289e7beaf8e5 /library | |
| parent | b71bb95005c9a9db0393bcafc2d43383335c69bf (diff) | |
Effets de bords suite à la restructuration des inductives (cf Inductive)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@442 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/global.ml | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/library/global.ml b/library/global.ml index 9242672883..093aaab27f 100644 --- a/library/global.ml +++ b/library/global.ml @@ -52,17 +52,17 @@ let import cenv = global_env := import cenv !global_env let id_of_global id = Environ.id_of_global (env_of_safe_env !global_env) id -(* Re-exported functions of [Inductive], composed with [lookup_mind_specif]. *) +(* Functions of [Inductive], composed with [lookup_mind_specif]. *) +(* Rem:Cannot open Inductive to avoid clash with Inductive.lookup_mind_specif*) -open Inductive +let mind_is_recursive = + Util.compose Inductive.mis_is_recursive lookup_mind_specif -let mind_is_recursive = Util.compose mis_is_recursive lookup_mind_specif -let mind_nconstr = Util.compose mis_nconstr lookup_mind_specif -let mind_nparams = Util.compose mis_nparams lookup_mind_specif - -let mind_arity = Util.compose mis_arity lookup_mind_specif +let mind_nconstr = Util.compose Inductive.mis_nconstr lookup_mind_specif +let mind_nparams = Util.compose Inductive.mis_nparams lookup_mind_specif +let mind_arity = Util.compose Inductive.mis_arity lookup_mind_specif let mind_lc_without_abstractions = - Util.compose mis_lc_without_abstractions lookup_mind_specif + Util.compose Inductive.mis_lc_without_abstractions lookup_mind_specif |