Section Reduction.
Variables (M1 M2 : SMN) (L R L' R': list Symbol) (X Y: State).
Definition M : SMN := M1 ++ (((L, R, X), (L', R', Y)) ::  M2).
Definition M' : SMN := [((L, R, X), (L', R', Y))] ++ M1 ++ M2.

Lemma confluence : confluent M' <-> confluent M.