diff options
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 06afc2fa9..7c7ff0c94 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 |