let mk_lvar v = match v.lv_origin with
    | None -> Fol.Tvar (WpFol.lv_to_fol_var v)
    | Some cv -> mk_cvar cv