def ma_conf

bendtorch@1.3.0.0 · PROOF.bend:466

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

466def ma_conf(x: T.FS, -t: List<&1, T.FS>, +h: Nat, +dm: T.Dm, -b: List<&1, T.FS>, r: MARF<h, dm, t, b>) -> MARF<h, dm, x <> t, b>:
467  match r:
468    case MARF{ys, same, fact}:
469      MARF{x <> ys, Equal.cong(List<&1, T.FS>, List<&1, T.FS>, z => x <> z, ys, t, same), Equal.cong(List<&1, Array<F32>>, List<&1, Array<F32>>, z => T.fs_o(T.fheads_full(h, 0n, dm, x)) <> z, ffmap(h, dm, List.append(&1, T.FS, t, b)), List.append(&1, Array<F32>, ffmap(h, dm, t), ffmap(h, dm, b)), fact)}