1. k : 
2. 0<k
3. P:((k-1)). 
3. ((i:(k-1). P(i))  0<search(k-1;P))
3. & (0<search(k-1;P)
3. & (
3. & (P(search(k-1;P)-1) & (j:(k-1). j<search(k-1;P)-1  P(j)))
4. P : k
5. 0<search(k-1;P)
6. P(search(k-1;P)-1)
7. j:(k-1). j<search(k-1;P)-1  P(j)
8. i1 : (k-1)
9. P(i1)
10. i : k
11. P(i)
  search(k;P) = search(k-1;P)

1

primrec(k;0;i,j. if 0<j j ; P(i) i+1 else 0 fi) = search(k-1;P)

1 step

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