IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
list iso2211121211 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 : if m<n then f(m) else @x:'a. true fi
=
if m<||f{n}|| then (f{n})[m] else arb('a) fi
By:
BifCase THEN Simp THEN StrongAuto THEN BifCase THEN Simp THEN StrongAuto