def model_step

stelliferous@0.0.2.0 · proofs/traversal_array_refinement.bend:19

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

19def model_step(~Model: Data,~Element: Data,~Context: Data,
20  ~sample: Model -> Context -> U32 -> Element,~destination: Context -> U32 -> U32,
21  state: Traversal.State<&2,&2,Model,Tree.Tree<Element>,Context>) -> Traversal.State<&2,&2,Model,Tree.Tree<Element>,Context>:
22  Traversal.State{+reader,output,+position,+context} = state
23  Traversal.State{reader,Tree.write(Element,output,destination(context,position),sample(reader,context,position)),(position + 1 : U32),context}