PROOF.get_kept.go: def of lawful-arrays@0.1.0.0
Import: import lawful-arrays@0.1.0.0/PROOF.bend as PROOF
Lines 87-92 of lawful-arrays@0.1.0.0/PROOF.bend: https://jend.leeeet.dev/read.txt?path=lawful-arrays@0.1.0.0/PROOF.bend&start_line=87&end_line=92

import Base
import lawful-arrays@0.1.0.0/proof_tree.bend as P

def get_kept.go(-T: Data, -a: Array<T>, +i: U32, m: P.Mirror(T, a)) ->
  {Pair.fst(Array<T>, T, Array.get(T, a, i)) == a : Array<T>}:
  (t, e) = m
  %e : {Pair.fst(Array<T>, T, Array.get(T, _, i)) == _ : Array<T>}
  Equal.cong(Array<T> & T, Array<T>, p => Pair.fst(Array<T>, T, p), Array.get(T, P.fromT(T, t), i),
    (P.fromT(T, t), Pair.snd(Array<T>, T, Array.get(T, P.fromT(T, t), i))), P.get_pair_t(T, t, i))

Uses (11):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Array
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Array.get
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Equal.cong
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Pair
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Pair.fst
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Pair.snd
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Sigma
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=lawful-arrays@0.1.0.0/proof_tree.bend&name=Mirror
  https://jend.leeeet.dev/definition.txt?path=lawful-arrays@0.1.0.0/proof_tree.bend&name=fromT
  https://jend.leeeet.dev/definition.txt?path=lawful-arrays@0.1.0.0/proof_tree.bend&name=get_pair_t