fact: Definition construct_trans {n : nat} (f : (Fin.t n) * bool -> option ((Fin.t n) * bool * direction)) : Vector.t ( (option ((Fin.t n) * bool * direction)) * (option ((Fin.t n) * bool * direction))) n := Vector.map (fun q => (f (q, true), f (q, false))) (seq_Vector n).
imports: Undecidability(TM.SBTM) PeanoNat Lia List ssreflect ssrbool ssrfun