let coq_normalize p =
match Wp_parameters.get_norm () with
| Wp_parameters.Let -> Pred p
| Wp_parameters.Exp -> Pred (Fol_eval.let_expansion p)
| Wp_parameters.Cc -> let defs,p = Fol_cc.unlet p in Conv (defs,p)
| Wp_parameters.Eqs -> Pred (Fol_eqs.cc_pred p)