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

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