def read_right

stelliferous@0.0.2.0 · proofs/storage_witness.bend:152

import stelliferous@0.0.2.0/proofs/storage_witness.bend as StorageWitness
import Base

152def read_right(-Element: Data,-left: Array<Element>,-right: Array<Element>,-result: Array<Element> & Element,
153  read: Read<Element,right,result>) -> Read<Element,ANode{left,right},Array.swap.hi(Element,left,result)>:
154  match read:
155    case Read{value,equation}:
156      Read{value,Equal.cong(Array<Element> & Element,Array<Element> & Element,
157        pair => Array.swap.hi(Element,left,pair),result,(right,value),equation)}

Uses (6)

Used by (1)