proposition: Lemma PROG_sc q : (j + 76 * ! q, PROG q) <sc (j, SIM).
proof: Proof. eapply PROG_sim_sc. destruct (Fin.to_nat q). cbn. lia. Qed.
imports: Undecidability.TM.KOSBTM.KOSBTM Undecidability.Shared.Libs.PSL.Vectors.FinNotation Undecidability.Shared.Libs.PSL.Vectors.Vectors Undecidability.Shared.Libs.PSL.EqDec List Arith Lia Bool Undecidability.Shared.Libs.DLW(utils list_bool pos vec subcode sss) Undecidability.StackMachines.BSM(bsm_defs)