Notation match_states':=
  (fun (idx s1 : state L1) (s2 : state L2) => idx = s1 /\ match_states s1 s2).

Lemma simulation_plus: forall s1 t s1', Plus L1 s1 t s1' -> forall i s2, match_states i s1 s2 -> (exists i', exists s2', Plus L2 s2 t s2' /\ match_states i' s1' s2') \/ (exists i', clos_trans _ order i' i /\ t = E0 /\ match_states i' s1' s2).