law ja0

lawful-fields@0.1.1.0 · proof_list.bend:263

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

263law ja0:
264  for +q: List<&2, U32>
265  for +t2: List<&2, List<&2, U32>>
266  for +sep: U32
267  for +h: {Nat.is_lt(1n, List.length(&2, List<&2, U32>, q <> t2)) == True{} : Bool}
268  {F.join.go(q <> t2, sep) == List.append(&2, U32, F.join.go(List.take(&2, List<&2, U32>, q <> t2, 1n), sep), sep <> F.join(List.drop(&2, List<&2, U32>, q <> t2, 1n), sep)) : List<&2, U32>}