(** * Skelet #15: #26 with a different initial state *)
Set Default Goal Selector "!".
Definition tm : TM := fun '(q, s) =>
match q, s with
| A, 0 => Some (1, R, B)  | A, 1 => None
| B, 0 => Some (1, R, C)  | B, 1 => Some (1, L, B)
| C, 0 => Some (1, L, D)  | C, 1 => Some (1, R, E)
| D, 0 => Some (1, L, B)  | D, 1 => Some (0, L, D)
| E, 0 => Some (1, R, A)  | E, 1 => Some (0, R, C)
end.
From BusyCoq Require Skelet26.
Definition f q :=
match q with
| A => E
| B => C
| C => A
| D => B
| E => D
end.

Lemma perm : Perm (flip tm) Skelet26.tm f.