fact: Definition bisimulation (A:Type) (R:LList A -> LList A -> Prop) := forall l1 l2:LList A, R l1 l2 -> match l1 with | LNil => l2 = LNil | LCons a l'1 => match l2 with | LNil => False | LCons b l'2 => a = b /\ R l'1 l'2 end end.
imports: Arith List RelationClasses