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=eaa2265ba8e03aa47c2a72c1cb8a2a5b20b88be5;hpb=cf5d6fab96c47ccb7d623d72742717d9b08bae7b;p=helm.git

diff --git a/helm/ocaml/cic_proof_checking/cicReduction.mli b/helm/ocaml/cic_proof_checking/cicReduction.mli
index eaa2265ba..e3619053d 100644
--- a/helm/ocaml/cic_proof_checking/cicReduction.mli
+++ b/helm/ocaml/cic_proof_checking/cicReduction.mli
@@ -29,6 +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 -> bool
+  ?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