def g_takeu

bend-osdev-bytes@0.1.1.0 · PROOF.bend:519

import Base
import bend-osdev-bytes@0.1.1.0/bytes.bend as B

519def g_takeu(+n: Nat, +xs: List<&2, U32>, +acc: List<&2, U32>) -> {B.take.go(n, xs, acc) == B.rev_onto(B.take(n, xs), acc) : List<&2, U32>}:
520  match n xs:
521    case 0n _:
522      {==}
523    case 1n+p Nil{}:
524      {==}
525    case 1n+p Con{h, t}:
526      g_takeu(p, t, Con{h, acc})