diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-31 11:43:21 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-31 11:43:21 +0000 |
| commit | a6974254f3c46683d93ced625430d0fef26bebe5 (patch) | |
| tree | 48a2f915d6766a81c0ee74cd073fb45eb49ad373 /library | |
| parent | a87fc0236aa3dd9135ff75a890ba8f5c0a05a419 (diff) | |
Nettoyage de Generic;Suppression des DLAM en tête des listes de constructeurs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@480 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/global.ml | 4 | ||||
| -rw-r--r-- | library/global.mli | 3 | ||||
| -rw-r--r-- | library/impargs.ml | 3 |
3 files changed, 3 insertions, 7 deletions
diff --git a/library/global.ml b/library/global.ml index 093aaab27..cf3d88ca9 100644 --- a/library/global.ml +++ b/library/global.ml @@ -61,8 +61,6 @@ 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_without_abstractions = - Util.compose Inductive.mis_lc_without_abstractions lookup_mind_specif +let mind_lc = Util.compose Inductive.mis_lc lookup_mind_specif diff --git a/library/global.mli b/library/global.mli index 99bb478fd..19d516625 100644 --- a/library/global.mli +++ b/library/global.mli @@ -52,6 +52,5 @@ val mind_is_recursive : inductive -> bool val mind_nconstr : inductive -> int val mind_nparams : inductive -> int val mind_arity : inductive -> constr - -val mind_lc_without_abstractions : inductive -> constr array +val mind_lc : inductive -> constr array diff --git a/library/impargs.ml b/library/impargs.ml index fbdb17847..b334092b9 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -68,8 +68,7 @@ let declare_inductive_implicits sp = let mib = Global.lookup_mind sp in let imps_one_inductive mip = (auto_implicits (body_of_type mip.mind_arity), - let (_,lc) = decomp_all_DLAMV_name mip.mind_lc in - Array.map auto_implicits lc) + Array.map auto_implicits mip.mind_lc) in let imps = Array.map imps_one_inductive mib.mind_packets in inductives_table := Spmap.add sp imps !inductives_table |