fact: Definition coalgebra_shuffle: BT_coalgebroid := Build_BT_coalgebroid (B_pow_inf * B_pow_inf) (fun b0s_b1s : B_pow_inf * B_pow_inf => match b0s_b1s with | (Cons x xs, Cons y ys) => (x * y, (xs, Cons y ys, (Cons x xs, ys))) end).
imports: IntensionalLambdaBisimulation ZStreamCoalgebra ZArith