val array_pts_to : a: Steel.ST.Array.array t -> v: FStar.Seq.Base.seq t -> Steel.Effect.Common.vprop
let array_pts_to #t (a:A.array t) (v:Seq.seq t) = A.pts_to a full_perm v
module Zeta.Steel.Util
open Steel.ST.Util
module A = Steel.ST.Array
module U32 = FStar.UInt32
module U64 = FStar.UInt64
module Cast = FStar.Int.Cast

let full = Steel.FractionalPermission.full_perm
let half = Steel.FractionalPermission.half_perm full
let larray t (n:U32.t) = A.larray t (U32.v n)
/
Steel.ST.Util.fsti.checked Steel.ST.Array.fsti.checked Steel.FractionalPermission.fst.checked prims.fst.checked FStar.UInt64.fsti.checked FStar.UInt32.fsti.checked FStar.UInt16.fsti.checked FStar.UInt.fsti.checked FStar.SizeT.fsti.checked FStar.Seq.fst.checked FStar.Pervasives.fsti.checked FStar.Int.Cast.fst.checked
Zeta.Steel.Util.fst
a: Steel.ST.Array.array t -> v: FStar.Seq.Base.seq t -> Steel.Effect.Common.vprop
Steel.ST.Array.array FStar.Seq.Base.seq Steel.ST.Array.pts_to Steel.FractionalPermission.full_perm Steel.Effect.Common.vprop
let array_pts_to #t (a: A.array t) (v: Seq.seq t) =
  
A.pts_to a full_perm v