matitaprover

[helm.git] / components / grafite_engine / grafiteTypes.ml

diff --git a/components/grafite_engine/grafiteTypes.ml b/components/grafite_engine/grafiteTypes.ml
index 0c02e1b6c38d86fdfcfb69ca51283dab32c5c677..0d59e4b469351dc7d39e2b2da2b0c5996780df82 100644 (file)
--- a/components/grafite_engine/grafiteTypes.ml
+++ b/components/grafite_engine/grafiteTypes.ml
@@ -62,6 +62,7 @@ type status = {
 let get_current_proof status =
   match status.proof_status with
   | Incomplete_proof { proof = p } -> p
+  | Proof p -> p
   | _ -> raise (Statement_error "no ongoing proof")
 
 let get_proof_metasenv status =