2. to : |T|
(IdLnk List)
3. from : |T|
(IdLnk List)
4. f : Edge(T)
5. bi-tree(T;to;from)
6. bi-graph(T;to;from)
7.
i,j:|T|.
7.
p:Edge(T) List.
7. lconnects(p;i;j) & (
q:Edge(T) List. lconnects(q;i;j) 
q = p)
8. L1 : |T| List
9.
i:|T|. (i 
L1)
10. |T|
11. spanner(f;T;to;from)
12. i : |T|
13. j : |T|
14. spanner-root(f;T;to;from;i)
15. spanner-root(f;T;to;from;j)
16.
p:Edge(T) List. 0<||p|| lpath(p) f(last(p)) (lp.f(l))
17. bi-graph(T;to;from)
18.
i,j:|T|.
18.
p:Edge(T) List.
18. lconnects(p;i;j) & (
q:Edge(T) List. lconnects(q;i;j) q = p)
19. L : |T| List
20.
i:|T|. (i L)
21. |T|
22. lpath(nil)
23. 0 = 0
i = j
24.
0 = 0 i = source("?") & j = destination(last(nil))
25.
q:Edge(T) List. lconnects(q;i;j) q = nil
i = j
