1. A : Type
2. R : AAProp
3. A
4. Trans x,y:A. R(x;y)
5. x:A. y:A. R(x;y)
6. k : 
7. 1<k
8. f : (k-1)A
9. i,j:(k-1). i<j  R(f(i);f(j))
10. y : A
11. R(f(k-2);y)
  f:(kA). i,j:k. i<j  R(f(i);f(j))

By:	Witness: z.if z<k-1 f(z) else y fi

1	(z.if z<k-1 f(z) else y fi)  kA	1 step
2	i,j:k.   i<j  R((z.if z<k-1 f(z) else y fi)(i);(z.if z<k-1 f(z) else y fi)(j))	7 steps

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