let fol p = 
  let rec do_data d = match d with
    | E3addr v -> Fol.Tvar (WpFol.addr_lvar ~create:true v)
    | E3type t ->
        mk_memory_ltype t
  in
    Fol.translate_data_in_pred do_data p