diff options
| author | herbelin | 2000-05-22 13:10:03 +0000 |
|---|---|---|
| committer | herbelin | 2000-05-22 13:10:03 +0000 |
| commit | f9031792f714bb468c2dc8bfb49f34cfef44b27a (patch) | |
| tree | 7d67852c2ec622df3520ef08a71a63e9d55b2fd9 /pretyping/detyping.ml | |
| parent | 2476b8a3397dccc8cadd7422929c844040ecc987 (diff) | |
Suite restructuration inductifs; changement nom module Constant en Declarations
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@458 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/detyping.ml')
| -rw-r--r-- | pretyping/detyping.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 091c14a2e2..34ffa2f950 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -116,9 +116,9 @@ let encode_inductive id = (indsp,constr_lengths) let sp_of_spi (refsp,tyi) = - let mip = Constant.mind_nth_type_packet (Global.lookup_mind refsp) tyi in + let mip = Declarations.mind_nth_type_packet (Global.lookup_mind refsp) tyi in let (pa,_,k) = repr_path refsp in - make_path pa mip.Constant.mind_typename k + make_path pa mip.Declarations.mind_typename k (* let (_,mip) = mind_specif_of_mind_light spi in |