def read_written

stelliferous@0.0.2.0 · proofs/storage_readback.bend:57

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

57def read_written(~Element: Data,+tree: Tree.Tree<Element>,+index: U32,+value: Element) ->
58  {Tree.read(Element,Tree.write(Element,tree,index,value),index) == value : Element}:
59  %Equal.sym(U32,Tree.capacity(Element,Tree.write(Element,tree,index,value)),Tree.capacity(Element,tree),write_capacity(~Element,tree,index,value)) :
60    {Tree.fetch(Element,Tree.write(Element,tree,index,value),_,U32.and(index,U32.sub(_,1))) == value : Element}
61  fetch_store(~Element,tree,Tree.capacity(Element,tree),U32.and(index,U32.sub(Tree.capacity(Element,tree),1)),value)