law jat0

lawful-fields@0.1.1.0 · proof_list.bend:303

import Base
import lawful-fields@0.1.1.0/defs.bend as F

303law jat0:
304  for +p: List<&2, U32>
305  for +t: List<&2, List<&2, U32>>
306  for +sep: U32
307  for +h: {Nat.is_lt(1n, List.length(&2, List<&2, U32>, p <> t)) == True{} : Bool}
308  {F.join(p <> t, sep) == List.append(&2, U32, F.join(List.take(&2, List<&2, U32>, p <> t, 1n), sep), sep <> F.join(List.drop(&2, List<&2, U32>, p <> t, 1n), sep)) : List<&2, U32>}