let ergo_normalize p = 
  match Wp_parameters.get_norm () with 
     | Wp_parameters.Let 
     | 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)