IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
spanner-root-exists121 1. T : Id 2. to : |T|(IdLnk List)
3. from : |T|(IdLnk List)
4. f : Edge(T) 5. bi-graph(T;to;from)
6. i,j:|T|.
6. p:Edge(T) List.
6. lconnects(p;i;j) & (q:Edge(T) List. lconnects(q;i;j) q = p)
7. L : |T| List
8. i:|T|. (iL)
9. j : |T|
10. bi-graph(T;to;from)
11. spanner(f;T;to;from)
12. n : 13. p:Edge(T) List. lpath(p) ||p||n 14. ||to(j)|| = 0
Dec(i:|T|. spanner-root(f;T;to;from;i))