def update

stelliferous@0.0.2.0 · proofs/traversal_witness.bend:154

import Base
import stelliferous@0.0.2.0/traversal_array.bend as Traversal

154def update(~Reader: Type,~Element: Data,~Value: Data,~Context: Data,~ReaderEvidence: @-reader: Reader -> Data,
155  ~read: Reader -> Context -> U32 -> Reader & Value,~combine: Element -> Value -> Element,~destination: Context -> U32 -> U32,
156  ~read_preserves: @-reader: Reader -> @context: Context -> @index: U32 -> ReaderEvidence(reader) ->
157    Sample<Reader,Value,reader,read(reader,context,index)>,
158  +depth: Nat,count: Nat,-reader: Reader,-state: Traversal.State<&1,&1,Reader,Array<Element>,Context>,
159  +reader_evidence: ReaderEvidence(reader),evidence: StateEvidence<Reader,Element,Context,reader,depth,state>) ->
160  StateEvidence<Reader,Element,Context,reader,depth,
161    Traversal.update(~Reader,~Element,~Value,~Context,~read,~combine,~destination,count,state)>:
162  match count:
163    case 0n: evidence
164    case 1n+rest:
165      update(~Reader,~Element,~Value,~Context,~ReaderEvidence,~read,~combine,~destination,~read_preserves,depth,rest,reader,
166        Traversal.update_step(~Reader,~Element,~Value,~Context,~read,~combine,~destination,state),reader_evidence,
167        update_step(~Reader,~Element,~Value,~Context,~ReaderEvidence,~read,~combine,~destination,~read_preserves,
168          depth,reader,state,reader_evidence,evidence))