fact: CoInductive bisimilar_mod (A:Type) (E:binary A) : binary (stream A) := | bisimilar_mod_intro : forall x1 x2 s1 s2, E x1 x2 -> bisimilar_mod E s1 s2 -> bisimilar_mod E (x1:::s1) (x2:::s2).
imports: TLC(LibTactics LibLogic LibInt LibList LibRelation LibWf)