1. R : Id
2. in : |R|IdLnk
3. out : |R|IdLnk
4. i:|R|. 
4. R(source(in(i))) & R(destination(out(i)))
4. & source(out(i)) = i
4. & & destination(in(i)) = i
4. & & in(destination(out(i))) = out(i)
4. & & out(source(in(i))) = in(i)
5. i,j:|R|. k:. x.destination(out(x))^k(i) = j
6. i : |R|
7. k : 
8. x.destination(out(x))^k(i) = i
9. (x.destination(out(x)))  |R||R|
  i@0:|R|. (i@0  map(k.x.destination(out(x))^k(i);upto(k)))

By:	Analyze 0 THEN RWO Thm* a:T List, x:T', f:(TT'). (x  map(f;a))  (y:T. (y  a) & x = f(y)) 0

1	10. |R| 11. k1 : k   x.destination(out(x))^k1(i)  |R|	1 step
2	10. i@0 : |R|   y:k. (y  upto(k)) & i@0 = (k.x.destination(out(x))^k(i))(y)	32 steps

About: IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html