Thm* 'a:S.
Thm* all
Thm* ( P:hlist('a)  hbool. implies
Thm* ( P:hlist('a)  hbool. (and
Thm* ( P:hlist('a)  hbool. ((P(nil)
Thm* ( P:hlist('a)  hbool. (,all
Thm* ( P:hlist('a)  hbool. (,( t:hlist('a). implies
Thm* ( P:hlist('a)  hbool. (,( t:hlist('a). (P(t)
Thm* ( P:hlist('a)  hbool. (,( t:hlist('a). ,all( h:'a. P(cons(h,t))))))
Thm* ( P:hlist('a)  hbool. ,all( l:hlist('a). P(l)))) | [hlist_induct] |