| 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) '⌝ + ⌜pcsl⌝ , ⌜pal⌝ ), frag(IOAut(astart, astep, aext))(⌜as '⌝ + aσ, aα), cext !(⌜πra(step, cstep, ren, cren, (s, cs) ' + pcsl, pal)⌝ ) ⊑ aext !(aα) ⊦ repls(step, cstep, cren, ren, aren, cext, aext, (s, cs) ' + pcsl, pal, ⌜as '⌝ + aσ, aα) ≠ [] ∧ repls(step, cstep, cren, ren, aren, cext, aext, (s, cs) ' + pcsl, pal, ⌜as '⌝ + aσ, aα).head = (s, as) |