blob: fce35d69140817293f6605bba1809c99b67184b5 (
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
27
28
29
30
31
32
33
34
35
36
37
|
; COMMAND-LINE: --rewrite-rules
;; Same than length.smt2 but the nil case is not a rewrite rule
;; So here the rewrite rules have no guards length
(set-logic AUFLIA)
(set-info :status unsat)
;; don't use a datatypes for currently focusing in uf
(declare-sort list 0)
;; don't use arith
(declare-sort mynat 0)
(declare-fun zero () mynat)
(declare-fun succ (mynat) mynat)
(declare-fun cons (Int list) list)
(declare-fun nil () list)
;;define length
(declare-fun length (list) mynat)
(assert (= (length nil) zero))
(assert (forall ((?e Int) (?l list)) (! (= (length (cons ?e ?l)) (succ (length ?l))) :rewrite-rule)))
(declare-fun ten_one_cons (list) list)
(assert (forall ((?l list)) (! (= (ten_one_cons ?l)
(cons 1 (cons 1 (cons 1 (cons 1 (cons 1 (cons 1 (cons 1 (cons 1 (cons 1 (cons 1 ?l) )))))))))
) :rewrite-rule)))
(assert (not (= (length (ten_one_cons nil))
(succ(succ(succ(succ(succ(succ(succ(succ(succ(succ zero)))))))))))))
(check-sat)
(exit)
|
