Procedural: we use the expected type rather than the inferred type when we perform...

[helm.git] / helm / software / components / acic_procedural / proceduralConversion.mli

diff --git a/helm/software/components/acic_procedural/proceduralConversion.mli b/helm/software/components/acic_procedural/proceduralConversion.mli
index ffc55d45e646bfbe7f26eabd251baf9b99830801..2108133314393e6f1f79e822e58ee720e1b7d6a0 100644 (file)
--- a/helm/software/components/acic_procedural/proceduralConversion.mli
+++ b/helm/software/components/acic_procedural/proceduralConversion.mli
@@ -31,7 +31,7 @@ val lift: int -> int -> Cic.annterm -> Cic.annterm
 
 val fake_annotate: Cic.id -> Cic.context -> Cic.term -> Cic.annterm
 
-val mk_pattern: int -> Cic.annterm -> Cic.annterm
+val mk_pattern: int -> Cic.annterm -> Cic.annterm -> Cic.annterm
 
 val get_clears: 
    Cic.context -> Cic.term -> (Cic.term * Cic.term) option -> 
@@ -41,3 +41,5 @@ val clear: Cic.context -> string -> Cic.context
 
 val elim_inferred_type:
    Cic.context -> Cic.term -> Cic.term -> Cic.term -> Cic.term -> Cic.term
+
+val does_not_occur: Cic.annterm -> bool