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)