def written_equation

stelliferous@0.0.2.0 · proofs/storage_certificate.bend:107

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

107def written_equation(~Element: Data,+depth: Nat,values: List<&2,Element>,offset: U32,-storage: Array<Element>,
108  equation: {storage == Tree.pack(Element,normalized(Element,depth,Tree.reflect(Element,storage))) : Array<Element>}) ->
109  {Traversal.write_list(~Element,values,offset,storage) ==
110    Tree.pack(Element,normalized(Element,depth,Tree.reflect(Element,Traversal.write_list(~Element,values,offset,storage)))) : Array<Element>}:
111  %restored(Element,depth,Traversal.write_list(~Element,values,offset,storage),
112    written(~Element,depth,values,offset,storage,witness_at(Element,depth,storage,equation))) :
113    {_ == Tree.pack(Element,normalized(Element,depth,Tree.reflect(Element,Traversal.write_list(~Element,values,offset,storage)))) : Array<Element>}
114  {==}