let mk_lvar_addr v = match v.lv_origin with | Some v -> mk_cvar_addr v | None -> let _ = WpFol.addr_lvar ~create:true v in (* create the addr variable *) Fol.Tdata (E0addr v)