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