diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-20 18:10:57 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-20 18:10:57 +0000 |
| commit | 1f96d480842a1206a9334d0c8b1b6cc4647066ef (patch) | |
| tree | 9fc22a20d49bcefca1d863aee9d36c5fab03334f /toplevel/class.ml | |
| parent | 6c7f6fa6c215e5e28fcf23bf28ccb9db543709ba (diff) | |
Transparent
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2035 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/class.ml')
| -rw-r--r-- | toplevel/class.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/toplevel/class.ml b/toplevel/class.ml index 3fb0f67a5..9696557c1 100644 --- a/toplevel/class.ml +++ b/toplevel/class.ml @@ -344,8 +344,9 @@ let build_id_coercion idf_opt source = let constr_entry = (* Cast is necessary to express [val_f] is identity *) ConstantEntry { const_entry_body = mkCast (val_f, typ_f); - const_entry_type = None } in - let sp = declare_constant idf (constr_entry,NeverDischarge,false) in + const_entry_type = None; + const_entry_opaque = false } in + let sp = declare_constant idf (constr_entry,NeverDischarge) in ConstRef sp (* |