Def 'a  'b == 'a'b

is mentioned by

Thm* 'a:S. equal(nil,abs_list(pair((n:hnum. select(e:'a. t)),0)))	[hnil_def]
Thm* 'a:S.  Thm* and Thm* (all(a:hlist('a). equal(abs_list(rep_list(a)),a)) Thm* ,all Thm* ,(r:hprod((hnum  'a); hnum). equal Thm* ,(r:hprod((hnum  'a); hnum). (is_list_rep(r) Thm* ,(r:hprod((hnum  'a); hnum). ,equal(rep_list(abs_list(r)),r))))	[hlist_iso_def]
Thm* 'a:S.  Thm* exists Thm* (rep:hlist('a)  hprod((hnum  'a); hnum). type_definition Thm* (rep:hlist('a)  hprod((hnum  'a); hnum). (is_list_rep Thm* (rep:hlist('a)  hprod((hnum  'a); hnum). ,rep))	[hlist_ty_def]
Thm* 'a:S.  Thm* all Thm* (r:hprod((hnum  'a); hnum Thm* (r:hprod(). equal Thm* (r:hprod(). (is_list_rep(r) Thm* (r:hprod(). ,exists Thm* (r:hprod(). ,(f:hnum  'a. exists Thm* (r:hprod(). ,(f:hnum  'a. (n:hnum. equal Thm* (r:hprod(). ,(f:hnum  'a. (n:hnum. (r Thm* (r:hprod(). ,(f:hnum  'a. (n:hnum. ,pair Thm* (r:hprod(). ,(f:hnum  'a. (n:hnum. ,((m:hnum. cond Thm* (r:hprod(). ,(f:hnum  'a. (n:hnum. ,((m:hnum. (lt(m,n) Thm* (r:hprod(). ,(f:hnum  'a. (n:hnum. ,((m:hnum. ,f(m) Thm* (r:hprod(). ,(f:hnum  'a. (n:hnum. ,((m:hnum. ,select(x:'a. t))) Thm* (r:hprod(). ,(f:hnum  'a. (n:hnum. ,,n))))))	[his_list_rep_wd]
Thm* 'a:S. el  (hnum  hlist('a)  'a)	[hel_wf]
Thm* 'a:S. hd  (hlist('a)  'a)	[hhd_wf]

In prior sections: hol bool hol restr binder hol num hol pair hol prim rec

Try larger context: HOLlib IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html