1. 'a : S
2. x : ('a)
3. f : 'a
4. n : 
5. x = <m:. if m<n then f(m) else @x:'a. true fi ,n>
6. ||f{n}|| = n-0
7. m : 
8. m<n
9. m<||f{n}||
  f(m) = (f{n})[m]

By:	LemmaRW Thm* n:, f:(nT), i:n. (f{n})[i] = f(i) THEN StrongAuto THEN Try (Complete (Unfold `label` 0))

1

f  n'a

1 step

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