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

1 files changed, 4 insertions, 6 deletions

diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml
index fa108f1ec..bcd9d6e0d 100644
--- a/proofs/proof_global.ml
+++ b/proofs/proof_global.ml
@@ -265,18 +265,16 @@ let close_proof () =
     let id = get_current_proof_name () in
     let p = give_me_the_proof () in
     let proofs_and_types = Proof.return p in
-    let { compute_guard=cg ; strength=str ; hook=hook } =
-      Idmap.find id !proof_info
-    in
-    let (_, poly, _) = str in
     let entries = List.map
       (fun (c,t) -> { Entries.const_entry_body = c ;
                       const_entry_type  = Some t;
-		      const_entry_polymorphic = poly;
 		      const_entry_opaque = true })
       proofs_and_types
     in
-    (id,(entries,cg,str,hook))
+    let { compute_guard=cg ; strength=str ; hook=hook } =
+      Idmap.find id !proof_info
+    in
+    (id, (entries,cg,str,hook))
   with 
     |  Proof.UnfinishedProof ->
 	 Util.error "Attempt to save an incomplete proof"