X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic_proof_checking%2FcicReduction.mli;h=82be7fd3f5f43eface9449152ca330d64757c84e;hb=1652681b5eb49332f1c78e6c26d3ae5c7253d382;hp=e3619053d0d2163add738b5ebe8039f0cc9b1fbe;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/cic_proof_checking/cicReduction.mli b/helm/software/components/cic_proof_checking/cicReduction.mli
index e3619053d..82be7fd3f 100644
--- a/helm/software/components/cic_proof_checking/cicReduction.mli
+++ b/helm/software/components/cic_proof_checking/cicReduction.mli
@@ -38,5 +38,7 @@ val are_convertible :
 val normalize:
   ?delta:bool -> ?subst:Cic.substitution -> Cic.context -> Cic.term -> Cic.term
  
-(* performs an head beta/cast reduction *)
-val head_beta_reduce: Cic.term -> Cic.term
+(* performs head beta/(delta)/cast reduction; the default is to not perform
+   delta reduction; if provided, ~upto is the maximum number of beta redexes
+   reduced *)
+val head_beta_reduce: ?delta:bool -> ?upto:int -> Cic.term -> Cic.term