def AP.set_app_r
bend-osdev-array@0.1.0.1 · PROOF.bend:853
import bend-osdev-array@0.1.0.1/PROOF.bend as PROOF
import Base
853def AP.set_app_r(-T: Data, xs: List<&2, T>, -ys: List<&2, T>, -k: Nat, -v: T) -> {List.set(&2, T, List.append(&2, T, xs, ys), Nat.add(List.length(&2, T, xs), k), v) == List.append(&2, T, xs, List.set(&2, T, ys, k, v)) : List<&2, T>}:
854 match xs:
855 case Nil{}:
856 {==}
857 case Con{x, t}:
858 AP.con_cong(T, x, List.set(&2, T, List.append(&2, T, t, ys), Nat.add(List.length(&2, T, t), k), v), List.append(&2, T, t, List.set(&2, T, ys, k, v)), AP.set_app_r(T, t, ys, k, v))