proposition: Fact bsm_compute_PUSH P i x b v st : (i,PUSH x b::nil) <sc P -> P // (1+i,v[(b::v#>x)/x]) ->> st -> P // (i,v) ->> st.
proof: Proof. intros; apply sss_progress_compute; eauto. Qed.
imports: List Arith Lia Bool Undecidability.Shared.Libs.DLW(utils list_bool pos vec subcode sss)