let x, y be object ; :: thesis: for E being non empty set
for v, w being Element of E ^omega
for F being Subset of (E ^omega)
for TS being non empty transition-system over F st not <%> E in rng (dom the Tran of TS) holds
for P being RedSequence of ==>.-relation TS st P . 1 = [x,v] & P . (len P) = [y,w] & not len v > len w holds
( len P = 1 & x = y & v = w )
let E be non empty set ; :: thesis: for v, w being Element of E ^omega
for F being Subset of (E ^omega)
for TS being non empty transition-system over F st not <%> E in rng (dom the Tran of TS) holds
for P being RedSequence of ==>.-relation TS st P . 1 = [x,v] & P . (len P) = [y,w] & not len v > len w holds
( len P = 1 & x = y & v = w )
let v, w be Element of E ^omega ; :: thesis: for F being Subset of (E ^omega)
for TS being non empty transition-system over F st not <%> E in rng (dom the Tran of TS) holds
for P being RedSequence of ==>.-relation TS st P . 1 = [x,v] & P . (len P) = [y,w] & not len v > len w holds
( len P = 1 & x = y & v = w )
let F be Subset of (E ^omega); :: thesis: for TS being non empty transition-system over F st not <%> E in rng (dom the Tran of TS) holds
for P being RedSequence of ==>.-relation TS st P . 1 = [x,v] & P . (len P) = [y,w] & not len v > len w holds
( len P = 1 & x = y & v = w )
let TS be non empty transition-system over F; :: thesis: ( not <%> E in rng (dom the Tran of TS) implies for P being RedSequence of ==>.-relation TS st P . 1 = [x,v] & P . (len P) = [y,w] & not len v > len w holds
( len P = 1 & x = y & v = w ) )
assume A1: not <%> E in rng (dom the Tran of TS) ; :: thesis: for P being RedSequence of ==>.-relation TS st P . 1 = [x,v] & P . (len P) = [y,w] & not len v > len w holds
( len P = 1 & x = y & v = w )
let P be RedSequence of ==>.-relation TS; :: thesis: ( P . 1 = [x,v] & P . (len P) = [y,w] & not len v > len w implies ( len P = 1 & x = y & v = w ) )
assume A2: ( P . 1 = [x,v] & P . (len P) = [y,w] ) ; :: thesis: ( len v > len w or ( len P = 1 & x = y & v = w ) )
consider u being Element of E ^omega such that
A3: v = u ^ w by A2, Th53;
A4: len v >= len w by A2, Th59;

per cases ( len v > len w or len v <= len w ) ;

suppose len v > len w ; :: thesis: ( len v > len w or ( len P = 1 & x = y & v = w ) )

hence ( len v > len w or ( len P = 1 & x = y & v = w ) ) ; :: thesis: verum

end;

suppose A5: len v <= len w ; :: thesis: ( len v > len w or ( len P = 1 & x = y & v = w ) )

A6: len v = (len u) + (len w) by A3, AFINSQ_1:17;
len v = len w by A4, A5, XXREAL_0:1;
then u = <%> E by A6;
hence ( len v > len w or ( len P = 1 & x = y & v = w ) ) by A1, A2, Th60, A3; :: thesis: verum

end;

end;