def b_ma_conf

bendtorch@1.3.0.0 · PROOF.bend:741

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

741def b_ma_conf(x: T.BG, -t: List<&1, T.BG>, +h: Nat, +dm: T.Dm, -b: List<&1, T.BG>, r: b_MARF<h, dm, t, b>) -> b_MARF<h, dm, x <> t, b>:
742  match r:
743    case b_MARF{ys, same, fact}:
744      b_MARF{x <> ys, Equal.cong(List<&1, T.BG>, List<&1, T.BG>, z => x <> z, ys, t, same), Equal.cong(List<&1, T.DB>, List<&1, T.DB>, z => T.db_of(T.bgroups_full(h, 0n, dm, x)) <> z, b_ffmap(h, dm, List.append(&1, T.BG, t, b)), List.append(&1, T.DB, b_ffmap(h, dm, t), b_ffmap(h, dm, b)), fact)}