Theorems |
unzip_def : unzip = foldr (\(x,y) (xs,ys). CONS x xs,CONS y ys) ([],[])zip_def : !l1 l2. zip l1 l2 = zipwith (,) l1 l2zipwith_cons : !f h1 h2 t1 t2.
LENGTH t1 = LENGTH t2
==> zipwith f (CONS h1 t1) (CONS h2 t2) =
CONS (f h1 h2) (zipwith f t1 t2)zipwith_nil : !f. zipwith f [] [] = [] |