fact: Definition gamma_pointwise_plus_pointwise_plus_tl: let R':=fun xs ys => exists x0, exists xs0, exists ys0, xs = pointwise_plus_tl x0 xs0 ys0 /\ ys = pointwise_plus (Cons x0 xs0) ys0 in {s1s2 : states w * states w & R' (fst s1s2) (snd s1s2)} -> Streams_as_Weakly_Final_Coalgebra.F_ {s1s2 : states w * states w & R' (fst s1s2) (snd s1s2)}.
imports: IntensionalLambdaBisimulation ZStreamCoalgebra ZArith