1. a : 
2. k : 
3. (p,i. if p(i) 1 else 0 fi)  (a {k} )a {k} 2
4. (f,i. f(i)=1)  (a {k} 2)a {k} 
  InvFuns(a {k} ;a {k} 2;p,i. if p(i) 1 else 0 fi;f,i. f(i)=1)

1	5. p : a {k}    (i.if p(i) 1 else 0 fi=1) = p	7 steps
2	5. f : a {k} 2   (i.if f(i)=1 1 else 0 fi) = f	6 steps

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