IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
hlist iso def 'a:S.
and
(all(a:hlist('a). equal(abs_list(rep_list(a)),a))
,all
,(r:hprod((hnum 'a); hnum). equal
,(r:hprod((hnum 'a); hnum). (is_list_rep(r)
,(r:hprod((hnum 'a); hnum). ,equal(rep_list(abs_list(r)),r))))