Section Composition.
Variable n : nat.
Variable sig : finType.
Variable F1 : finType.
Variable pM1 : pTM sig F1 n.
Variable F2 : finType.
Variable pM2 : pTM sig F2 n.
Definition Seq := Switch pM1 (fun _ => pM2).

Lemma Seq_TerminatesIn R1 T1 T2 :
pM1 ⊨ R1 ->
projT1 pM1 ↓ T1 ->
projT1 pM2 ↓ T2 ->
projT1 Seq ↓
(fun tin i => exists i1 i2, T1 tin i1 /\ 1 + i1 + i2 <= i /\
forall tout yout, R1 tin (yout, tout) -> T2 tout i2).