X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Focaml%2Ftactics%2FproofEngineHelpers.ml;h=bb6390bdcdb2c3d231674520882fc41c585c44f0;hb=827e35d6058ebba3a4a4fa6eb3c160f0cd0fd1e8;hp=bb060305627691c553f2664473c0b8f35ca39237;hpb=4dad47b93729b5108a7de190faeb25fcf16aba5d;p=helm.git

diff --git a/helm/ocaml/tactics/proofEngineHelpers.ml b/helm/ocaml/tactics/proofEngineHelpers.ml
index bb0603056..bb6390bdc 100644
--- a/helm/ocaml/tactics/proofEngineHelpers.ml
+++ b/helm/ocaml/tactics/proofEngineHelpers.ml
@@ -475,7 +475,7 @@ exception Fail of string Lazy.t
   * @raise Bad_pattern
   * *)
   let select ~metasenv ~ugraph ~conjecture:(_,context,ty)
-       ~(pattern: (Cic.term, ProofEngineTypes.lazy_term) ProofEngineTypes.pattern)
+       ~(pattern: (Cic.term, Cic.lazy_term) ProofEngineTypes.pattern)
   =
    let what, hyp_patterns, goal_pattern = pattern in
    let find_pattern_for name =