def li.con_hd

bend-osdev-mode-core@0.1.0.0 · PROOF.bend:642

import Base
import bend-osdev-mode-core@0.1.0.0/mode_core.bend as M

642def li.con_hd(+a: M.CmBlock, +s: List<&2, M.CmBlock>, +b: M.CmBlock, +t: List<&2, M.CmBlock>, +e: {Con{a, s} == Con{b, t} : List<&2, M.CmBlock>}) -> {a == b : M.CmBlock}:
643  %e : {a == cmp.head(b, _) : M.CmBlock}
644  {==}