Section ReadChar.
Variable sig : finType.
Variable (n : nat) (k : Fin.t n).
Definition ReadChar_at : pTM sig (option sig) n :=
LiftTapes ReadChar [|k|].
Definition ReadChar_at_Rel : pRel sig (option sig) n :=
fun tin '(yout, tout) =>
yout = current tin[@k] /\
tout = tin.

Lemma ReadChar_at_Sem :
ReadChar_at ⊨c(1) ReadChar_at_Rel.