fact: Definition gamma_bisim_Str_pres_pair: forall (S0 S1: F_coalgebra), let S0S1:=(S0.(states) * S1.(states))%type in let R:= fun (x y:S0S1)=>maximal_bisimulation _ _ (fst x) (fst y) in {s1s2 : S0S1 * S0S1 | R (fst s1s2) (snd s1s2)} -> F_ {s1s2 : S0S1 * S0S1 | R (fst s1s2) (snd s1s2)}.
imports: WeaklyFinalCoalgebra