fact: Definition instruction_compiler_sound := forall lnk I i1 v1 i2 v2 w1, I /X/ (i1,v1) -1> (i2,v2) -> lnk (1+i1) = length (icomp lnk i1 I) + lnk i1 -> v1 ⋈ w1 -> exists w2, (lnk i1,icomp lnk i1 I) /Y/ (lnk i1,w1) -+> (lnk i2,w2) /\ v2 ⋈ w2.
imports: List Arith Lia Undecidability.Shared.Libs.DLW.Utils(utils) Undecidability.Shared.Libs.DLW.Code(subcode sss compiler)