File: let-with-bv1.smt2

package info (click to toggle)
cbmc 5.10-5
  • links: PTS
  • area: main
  • in suites: buster
  • size: 73,416 kB
  • sloc: cpp: 264,330; ansic: 38,268; java: 19,025; python: 4,539; yacc: 4,275; makefile: 2,547; lex: 2,394; sh: 932; perl: 525; xml: 289; pascal: 169
file content (32 lines) | stat: -rw-r--r-- 575 bytes parent folder | download | duplicates (3) 
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
 
(set-logic QF_BV)

; try 'let' on bitvectors

(define-fun x () (_ BitVec 4) #x0)

; very simple
(define-fun let0 () Bool (= (let ((x #x0)) #x1) #x1))

; let hides the function 'x'
(define-fun let1 () Bool (= (let ((x #x1)) x) #x1))

; the binding isn't visible immediately
(define-fun let2 () Bool (= (let ((x x)) x) #x0))

; parallel let
(define-fun let3 () Bool (= (let ((x #x1) (y x)) y) #x0))

; limited scope
(define-fun let4 () Bool (and (= (let ((x #x1)) x) #x1) (= x #x0)))

; all must be true

(assert (not (and
  let0
  let1
  let2
  let3
  let4
  )))

(check-sat)