Module Ctree_block.Range

val split_at : ('a * 'b) -> 'c -> ('a * 'c) * ('c * 'b)