X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FstatefulProofEngine.mli;h=06defd79fcead87272be0850c48ad067679c5de1;hb=c76b5031700d8a06d19afb54abc81bf5d34d8242;hp=4198876ca239b4e191395fbac58efc788b0801d9;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/tactics/statefulProofEngine.mli b/helm/software/components/tactics/statefulProofEngine.mli
index 4198876ca..06defd79f 100644
--- a/helm/software/components/tactics/statefulProofEngine.mli
+++ b/helm/software/components/tactics/statefulProofEngine.mli
@@ -62,7 +62,8 @@ exception Data_failure of exn
 class ['a] status:
   ?history_size:int ->  (** default 20 *)
   ?uri:UriManager.uri ->
-  typ:Cic.term -> body:Cic.term -> metasenv:Cic.metasenv ->
+  typ:Cic.term -> body:Cic.term Lazy.t -> metasenv:Cic.metasenv ->
+  attrs:Cic.attribute list ->
   (proof_status -> 'a) -> (* init data *)
   (proof_status * 'a -> proof_status -> 'a) ->  (* update data *)
   unit ->
@@ -70,8 +71,9 @@ class ['a] status:
 
     method proof: ProofEngineTypes.proof
     method metasenv: Cic.metasenv
-    method body: Cic.term
+    method body: Cic.term Lazy.t
     method typ: Cic.term
+    method attrs: Cic.attribute list
 
     (** change metasenv _without_ triggering any notification *)
     method set_metasenv: Cic.metasenv -> unit
@@ -114,7 +116,8 @@ class ['a] status:
 
 val trivial_status:
   ?uri:UriManager.uri ->
-  typ:Cic.term -> body:Cic.term -> metasenv:Cic.metasenv ->
+  typ:Cic.term -> body:Cic.term Lazy.t -> metasenv:Cic.metasenv ->
+  attrs:Cic.attribute list ->
   unit ->
     unit status