proposition: Lemma halt_comp (c : mconfig sig (state (projT1 pM)) n) : haltConf (M := projT1 pM) c = false -> haltConf (M := WhileTM) c = false.
proof: Proof. intros HHalt. cbn in *. destruct c as [q t]. cbn in *. apply andb_false_iff. now left. Qed.
imports: Undecidability(TM.Util.TM_facts) Undecidability.Shared.Libs.PSL.FiniteTypes.DepPairs EqdepFacts