let G be acyclic _Graph; :: thesis: for W being Path of G
for e being set st not e in W .edges() & e in (W .last() ) .edgesInOut() holds
W .addEdge e is Path-like

let W be Path of G; :: thesis: for e being set st not e in W .edges() & e in (W .last() ) .edgesInOut() holds
W .addEdge e is Path-like

let e be set ; :: thesis: ( not e in W .edges() & e in (W .last() ) .edgesInOut() implies W .addEdge e is Path-like )
assume A1: ( not e in W .edges() & e in (W .last() ) .edgesInOut() ) ; :: thesis: W .addEdge e is Path-like
then A2: e Joins W .last() ,(W .last() ) .adj e,G by GLIB_000:70;
set v = (W .last() ) .adj e;
set W2 = W .addEdge e;
A3: W .addEdge e is Trail-like by A1, GLIB_001:143;
A4: len (W .addEdge e) = (len W) + 2 by A2, GLIB_001:65;
now
per cases ( W is trivial or not W is trivial ) ;
suppose A6: not W is trivial ; :: thesis: W .addEdge e is Path-like
now
let n be odd Element of NAT ; :: thesis: ( 1 < n & n <= len W implies W . n <> (W .last() ) .adj e )
assume A8: ( 1 < n & n <= len W ) ; :: thesis: W . n <> (W .last() ) .adj e
now end;
hence W . n <> (W .last() ) .adj e ; :: thesis: verum
end;
hence W .addEdge e is Path-like by A1, A2, A7, GLIB_001:151; :: thesis: verum
end;
end;
end;
hence W .addEdge e is Path-like ; :: thesis: verum