2 | 7. i:Vertices(the_graph), s1,s2:traversal(the_graph).
s = (s1 @ [inr(i) / s2]) traversal(the_graph)

( j:Vertices(the_graph). (inr(j) s2)  (inl(j) s2)  j-the_graph- > *i) 8. j:Vertices(the_graph). (inr(j) s)  L-the_graph- > *j 9. i:Vertices(the_graph), s1,s2:traversal(the_graph).
( j:Vertices(the_graph). i-the_graph- > *j  non-trivial-loop(the_graph;j))

s = (s1 @ [inl(i) / s2]) traversal(the_graph)  L-the_graph- > *i 10. i@0: Vertices(the_graph) 11. u: Vertices(the_graph)+Vertices(the_graph) 12. v: (Vertices(the_graph)+Vertices(the_graph)) List 13. s2: traversal(the_graph) 14. j:Vertices(the_graph). i@0-the_graph- > *j  non-trivial-loop(the_graph;j) 15. inr(i) = u 16. s = (v @ [inl(i@0) / s2]) traversal(the_graph) L-the_graph- > *i@0 | 1 step |