def AP.app_cong_r

bend-osdev-array@0.1.0.1 · PROOF.bend:1002

import Base

1002def AP.app_cong_r(-T: Data, -xs: List<&2, T>, -x: List<&2, T>, -y: List<&2, T>, e: {x == y : List<&2, T>}) -> {List.append(&2, T, xs, x) == List.append(&2, T, xs, y) : List<&2, T>}:
1003  %e : {List.append(&2, T, xs, x) == List.append(&2, T, xs, _) : List<&2, T>}
1004  {==}