open Prims
type loc_aux =
  | LocBuffer of unit * Obj.t FStar_Buffer.buffer 
let uu___is_LocBuffer (projectee : loc_aux) : Prims.bool= true
let __proj__LocBuffer__item__b (projectee : loc_aux) :
  Obj.t FStar_Buffer.buffer= match projectee with | LocBuffer (t, b) -> b
type ('l, 'r, 'n) loc_aux_in_addr = Obj.t
type ('r, 'n) aloc = loc_aux
type ('a, 's, 'b) loc_aux_includes_buffer = Obj.t
type ('s1, 's2) loc_aux_includes = Obj.t
type ('l, 't, 'p) loc_aux_disjoint_buffer = Obj.t
type ('l1, 'l2) loc_aux_disjoint = Obj.t
type ('l, 'h1, 'h2) loc_aux_preserved = Obj.t
type loc = unit

type ('s1, 's2) loc_includes = unit
type ('s1, 's2) loc_disjoint = unit
type ('s, 'h1, 'h2) modifies = unit


type ('h, 'ra) does_not_contain_addr = unit
type ('uuuuu, 'uuuuu1) cloc_aloc = ('uuuuu, 'uuuuu1) aloc

