def b_lf_con

bendtorch@1.3.0.0 · PROOF.bend:724

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

724def b_lf_con(x: T.BG, -t: List<&1, T.BG>, +h: Nat, +dm: T.Dm, -acc: List<&1, T.DB>, r: b_L1RF<h, dm, t, T.db_of(T.bgroups_full(h, 0n, dm, x)) <> acc>) -> b_L1RF<h, dm, x <> t, acc>:
725  match r:
726    case b_L1RF{ys, same, fact}:
727      b_L1RF{x <> ys, Equal.cong(List<&1, T.BG>, List<&1, T.BG>, z => x <> z, ys, t, same), fact}