From a6974254f3c46683d93ced625430d0fef26bebe5 Mon Sep 17 00:00:00 2001 From: herbelin Date: Wed, 31 May 2000 11:43:21 +0000 Subject: 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 --- library/global.ml | 4 +--- library/global.mli | 3 +-- library/impargs.ml | 3 +-- 3 files changed, 3 insertions(+), 7 deletions(-) (limited to 'library') diff --git a/library/global.ml b/library/global.ml index 093aaab27f..cf3d88ca93 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 99bb478fda..19d5166257 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 fbdb178478..b334092b92 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 -- cgit v1.2.3