let model_alloc (talloc:alloc) (p:F.integer) (sz:F.integer) : alloc =
    F.e_update talloc p (F.wrap sz)