let normalize norm p = 
  match 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)