X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Fgrafite_engine%2FgrafiteTypes.ml;h=0d59e4b469351dc7d39e2b2da2b0c5996780df82;hb=070e79b6e7ec986dd5fcdee24857956f6a4a9221;hp=0c02e1b6c38d86fdfcfb69ca51283dab32c5c677;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/components/grafite_engine/grafiteTypes.ml b/components/grafite_engine/grafiteTypes.ml
index 0c02e1b6c..0d59e4b46 100644
--- 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 =