| nounsharedextR(cren, cext, ren), Πok(ext, cext, ren, cren), frag(IOAut(Π(start, cstart), Π(step, cstep, ren, cren, ext, cext), Π(ext, cext, ren, cren)))(⌜(s, cs) '⌝ + pcσ, pα), frag(IOAut(astart, astep, aext))(⌜as '⌝ + aσ, aα), cext !(πra(step, cstep, ren, cren, ⌜(s, cs) '⌝ + pcσ, pα)) ⊑ aext !(aα) ⊦ repls(step, cstep, cren, ren, aren, cext, aext, ⌜(s, cs) '⌝ + pcσ, pα, ⌜as '⌝ + aσ, aα) ≠ [] ∧ hd(repls(step, cstep, cren, ren, aren, cext, aext, ⌜(s, cs) '⌝ + pcσ, pα, ⌜as '⌝ + aσ, aα)) = (s, as) |