Module Compute := Compute Ctx. Export Compute.
Definition flip_dir (d : dir) :=
match d with
| L => R
| R => L
end.
Definition flip_tape (t : tape) :=
match t with
| l {{s}} r => r {{s}} l
end.
Definition flip (tm : TM) : TM := fun qs =>
match tm qs with
| Some (s, d, q) => Some (s, flip_dir d, q)
| None => None
end.
Definition flip_conf (c : Q * tape) : Q * tape :=
match c with
| q;; t => q;; flip_tape t
end.

Lemma flip_conf_involutive : forall c,
flip_conf (flip_conf c) = c.