Add [Polymorphic] flag for defs

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13988 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 6 insertions, 4 deletions

diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml
index bcd9d6e0d3..fa108f1eca 100644
--- a/proofs/proof_global.ml
+++ b/proofs/proof_global.ml
@@ -265,16 +265,18 @@ 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
-    let { compute_guard=cg ; strength=str ; hook=hook } =
-      Idmap.find id !proof_info
-    in
-    (id, (entries,cg,str,hook))
+    (id,(entries,cg,str,hook))
   with 
     |  Proof.UnfinishedProof ->
 	 Util.error "Attempt to save an incomplete proof"