test/regress/regress1/strings/substr001.smt2


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(set-logic QF_S)
(set-info :status sat)

(declare-fun x () String)
(declare-fun i1 () Int)
(declare-fun i2 () Int)
(declare-fun i3 () Int)
(declare-fun i4 () Int)

(assert (and (>= i1 0) (>= i2 0) (< (+ i1 i2) (str.len x))))
(assert (and (>= i3 0) (>= i4 0) (< (+ i3 i4) (str.len x))))
(assert (= "efg" (str.substr x i1 i2) ) )
(assert (= "bef" (str.substr x i3 i4) ) )
(assert (> (str.len x) 5))

(check-sat)