def perm_dup

bend-mathlib@0.8.1.0 · perm.bend:63

import Base
import bendlib-kernel-list@1.0.0.0/list.bend as K

63# A Perm hypothesis in existential form is reusable.
64def perm_dup(-A: Data, -xs: List<&2, A>, -ys: List<&2, A>, +h: K.perm(A, xs, ys)) -> K.perm(A, xs, ys) & K.perm(A, xs, ys):
65  (h, h)