diff options
| author | herbelin | 2002-09-29 09:34:53 +0000 |
|---|---|---|
| committer | herbelin | 2002-09-29 09:34:53 +0000 |
| commit | fe612bc2d47bcdcb1166e3bbff688c68d55a449b (patch) | |
| tree | b5d6991d534a8239cc5580d0a4de199235052937 /toplevel/class.ml | |
| parent | 0a173557f284f4b5b27b634c2e48925ce73a43f0 (diff) | |
Que des niveaux d'univers frais dans le type des constantes globales
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3045 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/class.ml')
| -rw-r--r-- | toplevel/class.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/class.ml b/toplevel/class.ml index 09013d173b..d3acbe66b6 100644 --- a/toplevel/class.ml +++ b/toplevel/class.ml @@ -263,7 +263,7 @@ let build_id_coercion idf_opt source = let constr_entry = (* Cast is necessary to express [val_f] is identity *) DefinitionEntry { const_entry_body = mkCast (val_f, typ_f); - const_entry_type = None; + const_entry_type = Some typ_f; const_entry_opaque = false } in let (_,kn) = declare_constant idf (constr_entry,NeverDischarge) in ConstRef kn |