law set_append_r

lawful-arrays@0.1.0.0 · proof_base.bend:371

import Base

371law set_append_r:
372  for -A: Data
373  for +xs: List<&2, A>
374  for +ys: List<&2, A>
375  for +i: Nat
376  for +v: A
377  for e: {Nat.is_lt(i, List.length(&2, A, xs)) == False{} : Bool}
378  {List.set(&2, A, List.append(&2, A, xs, ys), i, v)
379    == List.append(&2, A, xs, List.set(&2, A, ys, Nat.sub(i, List.length(&2, A, xs)), v)) : List<&2, A>}