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.
#[export] Hint Resolve flip_some : core.
#[export] Hint Resolve flip_step : core.
#[export] Hint Resolve flip_multistep : core.

Lemma flip_progress : forall tm c c',
c -[ tm ]->+ c' ->
flip_conf c -[ flip tm ]->+ flip_conf c'.