proposition: Fact subcode_sss_compute_trans P Q st1 st2 st3 : P <sc Q -> P // st1 ->> st2 -> Q // st2 ->> st3 -> Q // st1 ->> st3.
proof: Proof. intros ? H. apply sss_compute_trans. revert H; apply subcode_sss_compute; auto. Qed.
imports: List Arith Lia Undecidability.Shared.Libs.DLW(Utils.utils Code.subcode)