proposition: Lemma pow_cofixed : pow (=) Cons 1 (pointwise_plus pow pow).
proof: Proof. assert (hyp_bis:=commutativity_Conv_Cons_1 Lambda_pow coalgebra_pow tt); match goal with | [ id1 : ?X1 (=) ?X2 |- _ ] => apply trans_bisimilar with X2 end; [ assumption | apply refl_bisimilar ]. Qed.
imports: IntensionalLambdaBisimulation ZStreamCoalgebra ZArith