Section MovePar.
Variable sig : finType.
Variable (D1 D2 : move).
Definition MovePar_R : pRel sig unit 2 :=
ignoreParam(fun (t t' : tapes sig 2) =>
t'[@Fin0] = tape_move t[@Fin0] D1 /\
t'[@Fin1] = tape_move t[@Fin1] D2).
Definition MovePar : pTM sig unit 2 :=
LiftTapes (Move D1) [|Fin0|];; LiftTapes (Move D2) [|Fin1|].

Lemma MovePar_Sem : MovePar ⊨c(3) MovePar_R.