Add [Polymorphic] flag for defs

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

2 files changed, 7 insertions, 5 deletions

diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml
index fff1a121d6..e953d2074c 100644
--- a/proofs/pfedit.ml
+++ b/proofs/pfedit.ml
@@ -151,7 +151,7 @@ open Decl_kinds
 let next = let n = ref 0 in fun () -> incr n; !n
 
 let build_constant_by_tactic id sign typ tac =
-  start_proof id (Global,Proof Theorem) sign typ (fun _ _ -> ());
+  start_proof id (Global,false,Proof Theorem) sign typ (fun _ _ -> ());
   try
     by tac;
     let _,(const,_,_,_) = cook_proof (fun _ -> ()) in
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"