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

diff --git a/helm/software/components/acic_procedural/proceduralConversion.mli b/helm/software/components/acic_procedural/proceduralConversion.mli
index bc49b9a22..418d911a9 100644
--- a/helm/software/components/acic_procedural/proceduralConversion.mli
+++ b/helm/software/components/acic_procedural/proceduralConversion.mli
@@ -31,15 +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