IF YOU CAN SEE THIS go to http://www.cs.cornell.edu/Info/People/sfa/Nuprl/Shared/Xindentation_hack_doc.html
Iteration over a singleton is just the value for the one index.
At:
iter via intseg singleton A:Type, f:(AAA), u:A.
is_ident(A; f; u)
(a,b:, e:({a..b}A). a+1 = b (Iter(f;u) i:{a..b}. e(i)) = e(a))