def l1_con

bendtorch@1.3.0.0 · PROOF.bend:297

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

297def l1_con(x: T.FS, -t: List<&1, T.FS>, +h: Nat, +dm: T.Dm, -acc: List<&1, Array<F32>>, r: L1R<h, dm, t, T.fs_o(T.fheads(h, 0n, dm, x)) <> acc>) -> L1R<h, dm, x <> t, acc>:
298  match r:
299    case L1R{ys, same, fact}:
300      L1R{x <> ys, Equal.cong(List<&1, T.FS>, List<&1, T.FS>, z => x <> z, ys, t, same), fact}