fact: Definition gamma_shuffle_product_comm: let R':=fun xs ys => { xs0: w.(states) & { ys0 : w.(states) | xs = shuffle_product xs0 ys0 /\ ys = shuffle_product ys0 xs0}} in {s1s2 : states w * states w & R' (fst s1s2) (snd s1s2)} -> Streams_Conv_LamCoiter.B_ (Streams_Conv_LamCoiter.T_ {s1s2 : states w * states w & R' (fst s1s2) (snd s1s2)}).
imports: LambdaCoiterationExamples IntensionalLambdaBisimulation ZStreamCoalgebra