let x, y, z be object ; :: thesis: for E being non empty set
for F being Subset of (E ^omega)
for TS being non empty transition-system over F st x,y -->. z,TS holds
==>.-relation TS reduces [x,y],[z,(<%> E)]

let E be non empty set ; :: thesis: for F being Subset of (E ^omega)
for TS being non empty transition-system over F st x,y -->. z,TS holds
==>.-relation TS reduces [x,y],[z,(<%> E)]

let F be Subset of (E ^omega); :: thesis: for TS being non empty transition-system over F st x,y -->. z,TS holds
==>.-relation TS reduces [x,y],[z,(<%> E)]

let TS be non empty transition-system over F; :: thesis: ( x,y -->. z,TS implies ==>.-relation TS reduces [x,y],[z,(<%> E)] )
assume x,y -->. z,TS ; :: thesis: ==>.-relation TS reduces [x,y],[z,(<%> E)]
then <*[x,y],[z,(<%> E)]*> is RedSequence of ==>.-relation TS by Th57;
then [[x,y],[z,(<%> E)]] in ==>.-relation TS by Th8;
hence ==>.-relation TS reduces [x,y],[z,(<%> E)] by REWRITE1:15; :: thesis: verum