def b_ga_con

bendtorch@1.3.0.0 · PROOF.bend:606

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

606def b_ga_con(x: T.BG, -t: List<&1, T.BG>, -b: List<&1, T.BG>, -c: List<&1, T.BG>, r: b_GAR<t, x <> b, c>) -> b_GAR<x <> t, b, c>:
607  match r:
608    case b_GAR{ys, same, fact}:
609      b_GAR{x <> ys, Equal.cong(List<&1, T.BG>, List<&1, T.BG>, z => x <> z, ys, t, same), fact}