X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FproofEngineTypes.ml;fp=helm%2Fsoftware%2Fcomponents%2Ftactics%2FproofEngineTypes.ml;h=93436e799586b899ecd4ffe6a7ebb098e8e3f5b0;hb=18825eb46860edafe9b1082b2ed4c679778a4ce8;hp=abe460775b935a5271a6cda8a5deb8e1ac5a879f;hpb=20f2a137ebeaae52ed2c1808ca5adf4c82f06edb;p=helm.git

diff --git a/helm/software/components/tactics/proofEngineTypes.ml b/helm/software/components/tactics/proofEngineTypes.ml
index abe460775..93436e799 100644
--- a/helm/software/components/tactics/proofEngineTypes.ml
+++ b/helm/software/components/tactics/proofEngineTypes.ml
@@ -76,13 +76,15 @@ type ('term, 'lazy_term) pattern =
 
 type lazy_pattern = (Cic.term, Cic.lazy_term) pattern
 
+let hole = Cic.Implicit (Some `Hole)
+
 let conclusion_pattern t =
   let t' = 
     match t with
     | None -> None
     | Some t -> Some (const_lazy_term t)
   in
-  t',[],Some (Cic.Implicit (Some `Hole))
+  t',[], Some hole
 
   (** tactic failure *)
 exception Fail of string Lazy.t