Thm* 'a:S.
Thm* all
Thm* ( P:hlist('a)  hbool. equal
Thm* ( P:hlist('a)  hbool. (all
Thm* ( P:hlist('a)  hbool. (( l:hlist('a). implies(equal(length(l),0),P(l)))
Thm* ( P:hlist('a)  hbool. ,P(nil))) | [hlength_eq_nil] |
Thm* 'a:S.
Thm* all
Thm* ( P:hlist('a)
Thm* ( hbool. all
Thm* ( hbool. ( n:hnum. equal
Thm* ( hbool. ( n:hnum. (all
Thm* ( hbool. ( n:hnum. (( l:hlist('a). implies(equal(length(l),suc(n)),P(l)))
Thm* ( hbool. ( n:hnum. ,all
Thm* ( hbool. ( n:hnum. ,( l:hlist('a). implies
Thm* ( hbool. ( n:hnum. ,( l:hlist('a). (equal(length(l),n)
Thm* ( hbool. ( n:hnum. ,( l:hlist('a). ,( l:hlist('a). all
Thm* ( hbool. ( n:hnum. ,( l:hlist('a). ,( l:hlist('a). ( x:'a. P(cons(x,l))))
Thm* ( hbool. ( n:hnum. ,( l:hlist('a). ,(l)))))) | [hlength_eq_cons] |
Thm* 'a:S.
Thm* all
Thm* ( Q:'a  hbool. all
Thm* ( Q:'a  hbool. ( P:'a  hbool. all
Thm* ( Q:'a  hbool. ( P:'a  hbool. ( l:hlist('a). equal
Thm* ( Q:'a  hbool. ( P:'a  hbool. ( l:hlist('a). (every
Thm* ( Q:'a  hbool. ( P:'a  hbool. ( l:hlist('a). ((( x:'a. and(P(x),Q(x)))
Thm* ( Q:'a  hbool. ( P:'a  hbool. ( l:hlist('a). (,l)
Thm* ( Q:'a  hbool. ( P:'a  hbool. ( l:hlist('a). ,and
Thm* ( Q:'a  hbool. ( P:'a  hbool. ( l:hlist('a). ,(every(P,l)
Thm* ( Q:'a  hbool. ( P:'a  hbool. ( l:hlist('a). ,,every(Q,l)))))) | [hevery_conj] |
Thm* 'a:S.
Thm* all
Thm* ( l:hlist('a). all
Thm* ( l:hlist('a). ( P:'a  hbool. equal
Thm* ( l:hlist('a). ( P:'a  hbool. (every(P,l)
Thm* ( l:hlist('a). ( P:'a  hbool. ,all
Thm* ( l:hlist('a). ( P:'a  hbool. ,( n:hnum. implies
Thm* ( l:hlist('a). ( P:'a  hbool. ,( n:hnum. (lt(n,length(l))
Thm* ( l:hlist('a). ( P:'a  hbool. ,( n:hnum. ,P(el(n,l))))))) | [hevery_el] |
Thm* 'b,'a:S.
Thm* all( l:hlist('a). all( f:'a  'b. equal(length(map(f,l)),length(l)))) | [hlength_map] |
Thm* 'a,'b:S.
Thm* all
Thm* ( f:'a  'b. all
Thm* ( f:'a  'b. ( l1:hlist('a). all
Thm* ( f:'a  'b. ( l1:hlist('a). ( l2:hlist('a). equal
Thm* ( f:'a  'b. ( l1:hlist('a). ( l2:hlist('a). (map(f,append(l1,l2))
Thm* ( f:'a  'b. ( l1:hlist('a). ( l2:hlist('a). ,append
Thm* ( f:'a  'b. ( l1:hlist('a). ( l2:hlist('a). ,(map(f,l1)
Thm* ( f:'a  'b. ( l1:hlist('a). ( l2:hlist('a). ,,map(f,l2)))))) | [hmap_append_2] |
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] |
Thm* 'b,'a:S.
Thm* all
Thm* ( x:'b. all
Thm* ( x:'b. ( f:'b
Thm* ( x:'b. ( 'a
Thm* ( x:'b. ( hlist('a)
Thm* ( x:'b. ( 'b. exists_unique
Thm* ( x:'b. ( 'b. ( fn1:hlist('a)  'b. and
Thm* ( x:'b. ( 'b. ( fn1:hlist('a)  'b. (equal(fn1(nil),x)
Thm* ( x:'b. ( 'b. ( fn1:hlist('a)  'b. ,all
Thm* ( x:'b. ( 'b. ( fn1:hlist('a)  'b. ,( h:'a. all
Thm* ( x:'b. ( 'b. ( fn1:hlist('a)  'b. ,( h:'a. ( t:hlist('a). equal
Thm* ( x:'b. ( 'b. ( fn1:hlist('a)  'b. ,( h:'a. ( t:hlist('a). (fn1
Thm* ( x:'b. ( 'b. ( fn1:hlist('a)  'b. ,( h:'a. ( t:hlist('a). ((cons(h,t))
Thm* ( x:'b. ( 'b. ( fn1:hlist('a)  'b. ,( h:'a. ( t:hlist('a). ,f
Thm* ( x:'b. ( 'b. ( fn1:hlist('a)  'b. ,( h:'a. ( t:hlist('a). ,(fn1(t)
Thm* ( x:'b. ( 'b. ( fn1:hlist('a)  'b. ,( h:'a. ( t:hlist('a). ,,h
Thm* ( x:'b. ( 'b. ( fn1:hlist('a)  'b. ,( h:'a. ( t:hlist('a). ,,t)))))))) | [hlist_axiom] |
Thm* 'a:S.
Thm* and
Thm* (all( P:'a  hbool. equal(every(P,nil),t))
Thm* ,all
Thm* ,( P:'a  hbool. all
Thm* ,( P:'a  hbool. ( h:'a. all
Thm* ,( P:'a  hbool. ( h:'a. ( t:hlist('a). equal
Thm* ,( P:'a  hbool. ( h:'a. ( t:hlist('a). (every(P,cons(h,t))
Thm* ,( P:'a  hbool. ( h:'a. ( t:hlist('a). ,and(P(h),every(P,t))))))) | [hevery_def] |
Thm* 'a,'b,'c:S.
Thm* and
Thm* (all( f:'a  'b  'c. equal(map2(f,nil,nil),nil))
Thm* ,all
Thm* ,( f:'a
Thm* ,( 'b
Thm* ,( 'c. all
Thm* ,( 'c. ( h1:'a. all
Thm* ,( 'c. ( h1:'a. ( t1:hlist
Thm* ,( 'c. ( h1:'a. (('a). all
Thm* ,( 'c. ( h1:'a. (('a). ( h2:'b. all
Thm* ,( 'c. ( h1:'a. (('a). ( h2:'b. ( t2:hlist('b). equal
Thm* ,( 'c. ( h1:'a. (('a). ( h2:'b. ( t2:hlist('b). (map2
Thm* ,( 'c. ( h1:'a. (('a). ( h2:'b. ( t2:hlist('b). ((f
Thm* ,( 'c. ( h1:'a. (('a). ( h2:'b. ( t2:hlist('b). (,cons(h1,t1)
Thm* ,( 'c. ( h1:'a. (('a). ( h2:'b. ( t2:hlist('b). (,cons(h2,t2))
Thm* ,( 'c. ( h1:'a. (('a). ( h2:'b. ( t2:hlist('b). ,cons
Thm* ,( 'c. ( h1:'a. (('a). ( h2:'b. ( t2:hlist('b). ,(f(h1,h2)
Thm* ,( 'c. ( h1:'a. (('a). ( h2:'b. ( t2:hlist('b). ,,map2(f,t1,t2))))))))) | [hmap2_wd] |
Thm* 'a,'b:S.
Thm* and
Thm* (all( f:'a  'b. equal(map(f,nil),nil))
Thm* ,all
Thm* ,( f:'a  'b. all
Thm* ,( f:'a  'b. ( h:'a. all
Thm* ,( f:'a  'b. ( h:'a. ( t:hlist('a). equal
Thm* ,( f:'a  'b. ( h:'a. ( t:hlist('a). (map(f,cons(h,t))
Thm* ,( f:'a  'b. ( h:'a. ( t:hlist('a). ,cons(f(h),map(f,t))))))) | [hmap_wd] |
Thm* 'a:S.
Thm* all
Thm* ( h:'a. all
Thm* ( h:'a. ( t:hlist('a). equal
Thm* ( h:'a. ( t:hlist('a). (cons(h,t)
Thm* ( h:'a. ( t:hlist('a). ,abs_list
Thm* ( h:'a. ( t:hlist('a). ,(pair
Thm* ( h:'a. ( t:hlist('a). ,((( m:hnum. cond
Thm* ( h:'a. ( t:hlist('a). ,((( m:hnum. (equal(m,0)
Thm* ( h:'a. ( t:hlist('a). ,((( m:hnum. ,h
Thm* ( h:'a. ( t:hlist('a). ,((( m:hnum. ,fst(rep_list(t),pre(m))))
Thm* ( h:'a. ( t:hlist('a). ,(,suc(snd(rep_list(t)))))))) | [hcons_def] |