aboutsummaryrefslogtreecommitdiff
path: root/toplevel/class.ml
diff options
context:
space:
mode:
authormsozeau2011-04-13 14:29:02 +0000
committermsozeau2011-04-13 14:29:02 +0000
commit60bc3cbe72083f4fa1aa759914936e4fa3d6b42e (patch)
tree0eeffe9b7b098ad653ffeb6ad963c62223245d0e /toplevel/class.ml
parent3b11686e4f78f6d166f84d990ac4fedb4d3e800a (diff)
Revert "Add [Polymorphic] flag for defs"
This reverts commit 33434695615806a85cec88452c93ea69ffc0e719. Conflicts: kernel/term_typing.ml test-suite/success/polymorphism.v git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13998 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/class.ml')
-rw-r--r--toplevel/class.ml1
1 files changed, 0 insertions, 1 deletions
diff --git a/toplevel/class.ml b/toplevel/class.ml
index 77b49b4bd3..4e729f4460 100644
--- a/toplevel/class.ml
+++ b/toplevel/class.ml
@@ -218,7 +218,6 @@ let build_id_coercion idf_opt source =
DefinitionEntry
{ const_entry_body = mkCast (val_f, DEFAULTcast, typ_f);
const_entry_type = Some typ_f;
- const_entry_polymorphic = false;
const_entry_opaque = false } in
let kn = declare_constant idf (constr_entry,IsDefinition IdentityCoercion) in
ConstRef kn