val loc_buf (x: B.pointer 'a) : Ghost.erased B.loc
val loc_buf (x: B.pointer 'a) : Ghost.erased B.loc
let loc_buf (x:B.pointer 'a)
  : Ghost.erased B.loc
  = B.loc_buffer x
module WithLocal
module B = LowStar.Buffer
module HS = FStar.HyperStack
open FStar.HyperStack.ST

let eloc = Ghost.erased B.loc
/
prims.fst.checked LowStar.Buffer.fst.checked FStar.UInt32.fsti.checked FStar.Pervasives.fsti.checked FStar.HyperStack.ST.fsti.checked FStar.HyperStack.fst.checked FStar.Ghost.fsti.checked
WithLocal.fst
x: LowStar.Buffer.pointer 'a -> FStar.Ghost.erased LowStar.Monotonic.Buffer.loc
LowStar.Buffer.pointer FStar.Ghost.hide LowStar.Monotonic.Buffer.loc LowStar.Monotonic.Buffer.loc_buffer LowStar.Buffer.trivial_preorder FStar.Ghost.erased
let loc_buf (x: B.pointer 'a) : Ghost.erased B.loc =
  
B.loc_buffer x