ocaml 3.09 transition

[helm.git] / helm / ocaml / tactics / proofEngineTypes.mli

diff --git a/helm/ocaml/tactics/proofEngineTypes.mli b/helm/ocaml/tactics/proofEngineTypes.mli
index 63be26bb71630396f12f2d10a6063404bb76d189..40a9e6c80067ffd81d34cdb4c8a771d89eacd8f8 100644 (file)
--- 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
+