let G be Graph; :: thesis: for sc being oriented simple Chain of G holds sc is OrientedPath of G
let sc be oriented simple Chain of G; :: thesis: sc is OrientedPath of G
assume sc is not OrientedPath of G ; :: thesis: contradiction
then consider m, n being Nat such that
A1: 1 <= m and
A2: m < n and
A3: n <= len sc and
A4: sc . m = sc . n by GRAPH_1:def 16;
sc is Simple by Th18;
then consider vs being FinSequence of the carrier of G such that
A5: vs is_oriented_vertex_seq_of sc and
A6: for n, m being Nat st 1 <= n & n < m & m <= len vs & vs . n = vs . m holds
( n = 1 & m = len vs ) ;
A7: len vs = (len sc) + 1 by A5;
A8: m <= len sc by A2, A3, XXREAL_0:2;
A9: 1 <= n by A1, A2, XXREAL_0:2;
A10: n <= len vs by A3, A7, NAT_1:12;
A11: m + 1 < n + 1 by A2, XREAL_1:6;
A12: n + 1 <= len vs by A3, A7, XREAL_1:6;
A13: m < n + 1 by A11, NAT_1:12;
set v1 = vs /. m;
set v2 = vs /. (m + 1);
A14: sc . m orientedly_joins vs /. m,vs /. (m + 1) by A1, A5, A8;
set v19 = vs /. n;
set v29 = vs /. (n + 1);
A15: sc . n orientedly_joins vs /. n,vs /. (n + 1) by A3, A5, A9;
then A16: vs /. m = vs /. n by A4, A14;
A17: vs /. (m + 1) = vs /. (n + 1) by A4, A14, A15;
A18: m <= len vs by A12, A13, XXREAL_0:2;
A19: m + 1 <= len vs by A11, A12, XXREAL_0:2;
A20: vs /. m = vs . m by A1, A18, FINSEQ_4:15;
A21: vs /. (m + 1) = vs . (m + 1) by A19, FINSEQ_4:15, NAT_1:12;
A22: vs /. n = vs . n by A9, A10, FINSEQ_4:15;
A23: vs /. (n + 1) = vs . (n + 1) by A12, FINSEQ_4:15, NAT_1:12;
m = 1 by A1, A2, A6, A10, A16, A20, A22;
hence contradiction by A6, A11, A12, A17, A21, A23; :: thesis: verum