X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_engine%2FgrafiteTypes.ml;h=0d59e4b469351dc7d39e2b2da2b0c5996780df82;hb=81ef66d9ad4cf863a770664190f96653e9777a57;hp=0c02e1b6c38d86fdfcfb69ca51283dab32c5c677;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

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