diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-06 16:08:20 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-06 16:08:20 +0000 |
| commit | 970b4b750486ad8544b5d0a3b2246282690e6c98 (patch) | |
| tree | d8aeeee6133883547e7e30246fcc544e32ae9746 /library/global.ml | |
| parent | ca91e3c69ba2dfed3f8fd24f721873f5d0cd2004 (diff) | |
Correction incompatibilites dans la fn des types des inductifs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@673 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/global.ml')
| -rw-r--r-- | library/global.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/library/global.ml b/library/global.ml index e58f1b03b..96fb689a3 100644 --- a/library/global.ml +++ b/library/global.ml @@ -66,7 +66,8 @@ let mind_is_recursive = 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 = Util.compose Inductive.mis_lc lookup_mind_specif +let mind_nf_arity x = + body_of_type (Inductive.mis_user_arity (lookup_mind_specif x)) +let mind_nf_lc = Util.compose Inductive.mis_nf_lc lookup_mind_specif |