1) new-style debugging/profiling code for old reduction

[helm.git] / helm / software / components / cic_proof_checking / cicReduction.mli

diff --git a/helm/software/components/cic_proof_checking/cicReduction.mli b/helm/software/components/cic_proof_checking/cicReduction.mli
index bee4607d509d240e0e8453c8e243f51ffa209dcf..fd98c4c0b99538c73e48ec7053388e130382689f 100644 (file)
--- a/helm/software/components/cic_proof_checking/cicReduction.mli
+++ b/helm/software/components/cic_proof_checking/cicReduction.mli
@@ -28,6 +28,7 @@ exception ReferenceToConstant
 exception ReferenceToVariable
 exception ReferenceToCurrentProof
 exception ReferenceToInductiveDefinition
+val ndebug : bool ref
 val fdebug : int ref
 val whd : 
   ?delta:bool -> ?subst:Cic.substitution -> Cic.context -> Cic.term -> Cic.term
@@ -38,6 +39,7 @@ val are_convertible :
 val normalize:
   ?delta:bool -> ?subst:Cic.substitution -> Cic.context -> Cic.term -> Cic.term
  
-(* performs an head beta/cast reduction; the default is to not perform
-   delta reduction *)
-val head_beta_reduce: ?delta:bool -> 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