implemented normalize (used in new_metasenv_for_apply)

[helm.git] / helm / ocaml / cic_proof_checking / cicReduction.mli

diff --git a/helm/ocaml/cic_proof_checking/cicReduction.mli b/helm/ocaml/cic_proof_checking/cicReduction.mli
index 341b0834bdcf63f1f41764dd4b8ba708040aa363..cd48a025b9b86937fa6f79e2ee4b25e26d103ac4 100644 (file)
--- a/helm/ocaml/cic_proof_checking/cicReduction.mli
+++ b/helm/ocaml/cic_proof_checking/cicReduction.mli
@@ -29,9 +29,12 @@ exception ReferenceToVariable
 exception ReferenceToCurrentProof
 exception ReferenceToInductiveDefinition
 val fdebug : int ref
-val whd : ?subst:Cic.substitution -> Cic.context -> Cic.term -> Cic.term
+val whd : 
+  ?delta:bool -> ?subst:Cic.substitution -> Cic.context -> Cic.term -> Cic.term
 val are_convertible : 
   ?subst:Cic.substitution -> ?metasenv:Cic.metasenv -> 
   Cic.context -> Cic.term -> Cic.term -> CicUniv.universe_graph -> 
   bool * CicUniv.universe_graph
-
+val normalize:
+  ?delta:bool -> ?subst:Cic.substitution -> Cic.context -> Cic.term -> Cic.term
+