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)