def represent

stelliferous@0.0.2.0 · proofs/traversal_array_refinement.bend:14

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

14def represent(~Reader: Type,~Model: Data,~Element: Data,~Context: Data,~pack_reader: Model -> Reader,
15  state: Traversal.State<&2,&2,Model,Tree.Tree<Element>,Context>) -> Traversal.State<&1,&1,Reader,Array<Element>,Context>:
16  Traversal.State{reader,output,position,context} = state
17  Traversal.State{pack_reader(reader),Tree.pack(Element,output),position,context}