X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Ftactics%2FproofEngineTypes.mli;h=40a9e6c80067ffd81d34cdb4c8a771d89eacd8f8;hb=97c2d258a5c524eb5c4b85208899d80751a2c82f;hp=63be26bb71630396f12f2d10a6063404bb76d189;hpb=d1126c6b78a3333bbf415daf027004496b77c2f4;p=helm.git

diff --git a/helm/ocaml/tactics/proofEngineTypes.mli b/helm/ocaml/tactics/proofEngineTypes.mli
index 63be26bb7..40a9e6c80 100644
--- a/helm/ocaml/tactics/proofEngineTypes.mli
+++ b/helm/ocaml/tactics/proofEngineTypes.mli
@@ -65,10 +65,13 @@ type pattern = lazy_term option * (string * Cic.term) list * Cic.term
 val conclusion_pattern : Cic.term option -> pattern
 
   (** tactic failure *)
-exception Fail of string
+exception Fail of string Lazy.t
 
 val apply_tactic: tactic -> status ->  proof * goal list
   
   (** constraint: the returned value will always be constructed by Cic.Name **)
 type mk_fresh_name_type =
  Cic.metasenv -> Cic.context -> Cic.name -> typ:Cic.term -> Cic.name
+
+val goals_of_proof: proof -> goal list
+