def at_pair.go

lawful-bytes@0.1.1.0 · PROOF.bend:100

import Base
import lawful-bytes@0.1.1.0/defs.bend as D
import lawful-bytes@0.1.1.0/bytes.bend as B
import lawful-bytes@0.1.1.0/proof_core.bend as C

100def at_pair.go(-b: D.Bytes, +i: U32, m_b: C.BMirror(b)) ->
101  {B.at(b, i) == (b, Pair.snd(D.Bytes, U32, B.at(b, i))) : D.Bytes & U32}:
102  (+l_b, m2_b) = m_b
103  (+t_b, +e_b) = m2_b
104  %e_b : {B.at(_, i) == (_, Pair.snd(D.Bytes, U32, B.at(_, i))) : D.Bytes & U32}
105  C.at_pair_t(l_b, t_b, i)