diff options
Diffstat (limited to 'proofs/proof_global.ml')
| -rw-r--r-- | proofs/proof_global.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index cafe45485..3e8c71482 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -265,11 +265,11 @@ 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 entries = List.map (fun (c,t) -> { Entries.const_entry_body = c ; - const_entry_type = Some t; - const_entry_opaque = true ; - const_entry_boxed = false } ) - proofs_and_types + let entries = List.map + (fun (c,t) -> { Entries.const_entry_body = c ; + const_entry_type = Some t; + const_entry_opaque = true }) + proofs_and_types in let { compute_guard=cg ; strength=str ; hook=hook } = Idmap.find id !proof_info |