def store_capacity

stelliferous@0.0.2.0 · proofs/storage_readback.bend:20

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

20def store_capacity(~Element: Data,tree: Tree.Tree<Element>,+capacity: U32,+index: U32,+value: Element) ->
21  {Tree.capacity(Element,Tree.store(Element,tree,capacity,index,value)) == Tree.capacity(Element,tree) : U32}:
22  match tree:
23    case Tree.Leaf{old}: {==}
24    case Tree.Node{+left,+right}:
25      capacity_node(~Element,left,right,U32.shr(capacity),index,value,U32.is_lt(index,U32.shr(capacity)),store_capacity(~Element,left,U32.shr(capacity),index,value))