let lvar _m lv x =
let ty =
match lv.lv_type with
| Ctype ty -> ty
| ty -> Wp_parameters.fatal
"[lvar] c type of a pure logic type %a"
!Ast_printer.d_logic_type ty
in
loc_of_term (Ctypes.object_of ty)(F.var x)