X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Facic_procedural%2FproceduralConversion.mli;h=418d911a963cdb1a48f1f9dddc29aaeab6da4b38;hb=cf72398627cd1189f42c3fbb9e29fa4b32e723c8;hp=ffc55d45e646bfbe7f26eabd251baf9b99830801;hpb=797f61edb93f41eb2c5e281bc9457f6bff633063;p=helm.git

diff --git a/helm/software/components/acic_procedural/proceduralConversion.mli b/helm/software/components/acic_procedural/proceduralConversion.mli
index ffc55d45e..418d911a9 100644
--- a/helm/software/components/acic_procedural/proceduralConversion.mli
+++ b/helm/software/components/acic_procedural/proceduralConversion.mli
@@ -31,13 +31,17 @@ 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 beta: Cic.annterm -> Cic.annterm -> Cic.annterm
 
 val get_clears: 
    Cic.context -> Cic.term -> (Cic.term * Cic.term) option -> 
    Cic.context * string list
 
 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