blob: 215698ade91a5fe73757478c8b94a5f2f822adc1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(set-logic AUFLIA)
(set-info :status unsat)
;; don't use a datatypes for currently focusing in uf
(declare-sort list 0)
(declare-fun cons (Int list) list)
(declare-fun nil () list)
;;define length
(declare-fun length (list) Int)
(assert (forall ((?l list)) (! (=> (= ?l nil) (= (length ?l) 0)) :rewrite-rule)))
(assert (forall ((?e Int) (?l list)) (! (= (length (cons ?e ?l)) (+ (length ?l) 1)) :rewrite-rule)))
;;(assert (forall ((?l list)) (=> (= ?l nil) (= (length ?l) 0))))
;;(assert (forall ((?e Int) (?l list) (?l2 list)) (=> (= ?l2 (cons ?e ?l)) (= (length ?l2) (+ (length ?l) 1)))))
(assert (not (= (length (cons 1 (cons 2 (cons 3 nil)))) 3)))
(check-sat)
(exit)
|