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