haskell-te: 177ec72ea8a1976c19b72408cfdaa1bd4e87e828

     1: ;; a ++ [] = a
     2: (assert-not (par (t) (forall ((a (List t)))
     3:   (= (append a constructorNil)
     4:      a))))
     5: 
     6: ;; rev (rev a) = a
     7: (assert-not (par (t) (forall ((a (List t)))
     8:   (= (reverse (reverse a))
     9:      a))))
    10: 
    11: ;; rev (map a b) = map a (rev b)
    12: (assert-not (par (i o) (forall ((a (=> i o)) (b (List i)))
    13:   (= (reverse (map a b))
    14:      (map a (reverse b))))))
    15: 
    16: ;; foldl a (foldl a b c) d = foldl a b (c ++ d)
    17: (assert-not (par (i o) (forall ((a (=> o (=> i o))) (b o) (c (List o)) (d (List i)))
    18:   (= (foldl a (foldl a b c) d)
    19:      (foldl a b (append c d))))))
    20: 
    21: ;; len (rev a) = len a
    22: (assert-not (par (t) (forall ((a (List t)))
    23:   (= (length (reverse a))
    24:      (length a)))))
    25: 
    26: ;; (a ++ b) ++ c = a ++ (b ++ c)
    27: (assert-not (par (t) (forall ((a (List t)) (b (List t)) (c (List t)))
    28:   (= (append (append a b) c)
    29:      (append a (append b c))))))
    30: 
    31: ;; (rev a) ++ (rev b) = rev (b ++ a)
    32: (assert-not (par (t) (forall ((a (List t)) (b (List t)))
    33:   (= (append (reverse a) (reverse b))
    34:      (reverse (append b a))))))
    35: 
    36: ;; (map a b) ++ (map a c) = map a (b ++ c)
    37: (assert-not (par (i o) (forall ((a (=> i o)) (b (List i)) (c (List i)))
    38:   (= (append (map a b) (map a c))
    39:      (map a (append b c))))))
    40: 
    41: ;; foldr a b (foldr a c d) = foldr a (b ++ c) d
    42: (assert-not (par (i o) (forall ((a (=> i (=> o o))) (b (List i)) (c (List i)) (d o))
    43:   (= (foldr a b (foldr a c d))
    44:      (foldr a (append b c) d)))))