LAWS.split_join_short: law of bend-osdev-mode-core@0.1.0.0
Import: import bend-osdev-mode-core@0.1.0.0/LAWS.bend as LAWS
Lines 207-212 of bend-osdev-mode-core@0.1.0.0/LAWS.bend: https://jend.leeeet.dev/read.txt?path=bend-osdev-mode-core@0.1.0.0/LAWS.bend&start_line=207&end_line=212

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

# blocks joined in front of a short tail split back into those blocks and tail
law split_join_short:
  for bs: List<&2, M.CmBlock>
  for +rest: List<&2, U32>
  for h1: {M.cm.split(rest) == M.CmSplit{Nil{}, rest} : M.CmSplit}
  {M.cm.split(M.cm.join_onto(bs, rest)) == M.CmSplit{bs, rest} : M.CmSplit}

Uses (7):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=List
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-mode-core@0.1.0.0/PROOF.bend&name=sp.split_join_short
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-mode-core@0.1.0.0/mode_core.bend&name=CmBlock
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-mode-core@0.1.0.0/mode_core.bend&name=CmSplit
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-mode-core@0.1.0.0/mode_core.bend&name=cm.join_onto
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-mode-core@0.1.0.0/mode_core.bend&name=cm.split