type SequenceEvidence

stelliferous@0.0.2.0 · proofs/storage_refinement.bend:358

import Base
import stelliferous@0.0.2.0/proofs/storage_tree_model.bend as Tree

358# A fact about an existing storage prefix, not another runtime container.
359# Both the allocator and an external Array owner must establish these fields.
360type SequenceEvidence<-Element: Data,-length: Nat,-values: List<&2,Element>> is Data:
361  SequenceEvidence{storage: Tree.Tree<Element>,
362    contents: {Tree.read_sequence(~Element,length,0,storage) == values : List<&2,Element>},
363    room: {Nat.is_le(length,U32.to_nat(Tree.capacity(Element,storage))) == True{} : Bool}}