diff options
| author | ppedrot | 2012-09-18 14:26:42 +0000 |
|---|---|---|
| committer | ppedrot | 2012-09-18 14:26:42 +0000 |
| commit | 4422e16f529359bb96c7eee214b2b6648958ef48 (patch) | |
| tree | c8d77ca4070bcbc0ce2fc630564fedd9043fafed /pretyping/inductiveops.ml | |
| parent | 7208928de37565a9e38f9540f2bfb1e7a3b877e6 (diff) | |
Cleaning interface of Util.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15817 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/inductiveops.ml')
| -rw-r--r-- | pretyping/inductiveops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml index 4062117b0f..de6873ba3d 100644 --- a/pretyping/inductiveops.ml +++ b/pretyping/inductiveops.ml @@ -82,7 +82,7 @@ let mis_is_recursive_subset listind rarg = Array.exists one_is_rec (dest_subterms rarg) let mis_is_recursive (ind,mib,mip) = - mis_is_recursive_subset (interval 0 (mib.mind_ntypes-1)) + mis_is_recursive_subset (List.interval 0 (mib.mind_ntypes - 1)) mip.mind_recargs let mis_nf_constructor_type (ind,mib,mip) j = |