fact: CoInductive maximal_bisimulation_conat (S1 S2:F_coalgebra) (s1:S1.(states)) (s2:S2.(states)) : Prop := | max_bisim_conat_O : S1.(transition) s1 = inl S1.(states) tt -> S2.(transition) s2 = inl S2.(states) tt -> maximal_bisimulation_conat _ _ s1 s2 | max_bisim_conat_S : forall s1' s2', S1.(transition) s1 = inr unit s1' -> S2.(transition) s2 = inr unit s2' -> maximal_bisimulation_conat _ _ s1' s2' -> maximal_bisimulation_conat _ _ s1 s2.
imports: WeaklyFinalCoalgebra