X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_proof_checking%2FcicReduction.mli;h=e3619053d0d2163add738b5ebe8039f0cc9b1fbe;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=341b0834bdcf63f1f41764dd4b8ba708040aa363;hpb=31851952e1cc2db59168c5fd6f6093d9bc37ea86;p=helm.git

diff --git a/helm/ocaml/cic_proof_checking/cicReduction.mli b/helm/ocaml/cic_proof_checking/cicReduction.mli
index 341b0834b..e3619053d 100644
--- a/helm/ocaml/cic_proof_checking/cicReduction.mli
+++ b/helm/ocaml/cic_proof_checking/cicReduction.mli
@@ -29,9 +29,14 @@ 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
+ 
+(* performs an head beta/cast reduction *)
+val head_beta_reduce: Cic.term -> Cic.term