1. A : Type
2. P : AAProp
3. X : A List
4. Y : A List
5. a : A
6. b : A
7. P(a,b)
8. i : 
9. i<||X @ [b; a / Y]||
10. i<||X||
11. i = ||X||
  (X @ [b; a / Y])[||X||] = (X @ [a; b / Y])[(||X||+1)]

By:	RWO Thm* as,bs:T List, i:{||as||..(||as||+||bs||)}. (as @ bs)[i] = bs[(i-||as||)] 0

1

[b; a / Y][(||X||-||X||)] = [a; b / Y][(||X||+1-||X||)]

1 step

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