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