diff options
| author | Enrico Tassi | 2014-07-10 15:59:44 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2014-07-11 10:15:06 +0200 |
| commit | 2a805fd99b96746dbfe381d64cd7eaba84fdca79 (patch) | |
| tree | 77e0c47e097c4edebe9eea5f839488c91264e9b3 /proofs/proof_global.ml | |
| parent | 31b99c5671c956de455372e43f935e1c70006f9d (diff) | |
Feedback: LoadedFile + Goals
LoadedFile is generated when a .vo is loaded
Goals is generated when -feedback-goals
Diffstat (limited to 'proofs/proof_global.ml')
| -rw-r--r-- | proofs/proof_global.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index 06afc2fa9a..7c7ff0c940 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -515,4 +515,5 @@ let freeze ~marshallable = | `Shallow -> !pstates | `No -> !pstates let unfreeze s = pstates := s; update_proof_mode () +let proof_of_state = function { proof }::_ -> proof | _ -> raise NoCurrentProof |