val whd : Cic.term -> unit
val reduce : Cic.term -> unit
val simpl : Cic.term -> unit
-val fold : Cic.term -> unit
+val fold_whd : Cic.term -> unit
+val fold_reduce : Cic.term -> unit
(* scratch area reduction tactics *)
val whd_in_scratch : Cic.term -> Cic.term -> Cic.term