diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-11-09 19:44:17 +0100 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-11-09 19:44:17 +0100 |
commit | ce80fa3cb3e6d8809bb3ee015bff39c67c0aed16 (patch) | |
tree | be80159f44855799c885174910de3931fdde07b2 /proofs/proof.ml | |
parent | 91c2a866e7827c0ede0539cb49f924b68db569a9 (diff) |
new: Optimize Proof, Optimize Heap
- drops all Defined entries from the evar map (applying the subst to the
initial evar and the undefined evars types).
- call Gc.compact
Now the question is: where should these two commands be documented?
Diffstat (limited to 'proofs/proof.ml')
-rw-r--r-- | proofs/proof.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/proofs/proof.ml b/proofs/proof.ml index abd1024d6..5654e464a 100644 --- a/proofs/proof.ml +++ b/proofs/proof.ml @@ -312,6 +312,10 @@ let return p = let initial_goals p = Proofview.initial_goals p.entry +let compact p = + let entry, proofview = Proofview.compact p.entry p.proofview in + { p with proofview; entry } + (*** Function manipulation proof extra informations ***) (*** Tactics ***) |