def l1

bendtorch@1.3.0.0 · PROOF.bend:302

import Base
import bendtorch@1.3.0.0/main.bend as T

302def l1(xs: List<&1, T.FS>, +h: Nat, +dm: T.Dm, -acc: List<&1, Array<F32>>) -> L1R<h, dm, xs, acc>:
303  match xs:
304    case Nil{}:
305      L1R{Nil{}, {==}, {==}}
306    case Con{x, t}:
307      l1_con(x, t, h, dm, acc, l1(t, h, dm, T.fs_o(T.fheads(h, 0n, dm, x)) <> acc))