X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_engine%2FgrafiteTypes.ml;h=6e1c299e42dbf44dc332ca92b71018395cfec2df;hb=36014ac060f150e7d93f607c914a0b06239715c0;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..6e1c299e4 100644
--- a/helm/software/components/grafite_engine/grafiteTypes.ml
+++ b/helm/software/components/grafite_engine/grafiteTypes.ml
@@ -57,11 +57,13 @@ type status = {
   options: options;
   objects: UriManager.uri list;
   coercions: UriManager.uri list;
+  universe:Universe.universe;  
 }
 
 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 =