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