fact: Definition coalgebra_insert: BT_coalgebroid := (Build_BT_coalgebroid (B*B_pow_inf) (fun pivot_xs: B * B_pow_inf => match pivot_xs with | (pivot, Cons x0 xs' as xs) => if Z_le_dec x0 pivot then (x0, il (B * Stream B) (pivot, xs')) else (pivot, ir (B * B_pow_inf) xs) end)).
imports: IntensionalLambdaBisimulation ZStreamCoalgebra ZArith