blob: aa0c29f5eea9dbb227278bf12fceb8f39ae9871f (
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
(set-logic AUFBVDTNIRA)
(set-info :smt-lib-version 2.6)
(set-info :status unsat)
(declare-sort us_private 0)
(declare-sort integer 0)
(declare-fun to_rep1 (integer) Int)
(declare-datatypes ((us_split_fields 0)) (((mk___split_fields (rec__unit1__t1__c1 integer) (rec__ext__ us_private)))))
(declare-datatypes ((us_split_fields__ref 0)) (((mk___split_fields__ref (us_split_fields__content us_split_fields)))))
(define-fun us_split_fields__ref___projection ((a us_split_fields__ref)) us_split_fields
(us_split_fields__content a))
(declare-datatypes ((us_rep 0)) (((mk___rep (us_split_fields1 us_split_fields) (attr__tag Int)))))
(define-fun us_rep___projection ((a us_rep)) us_split_fields (us_split_fields1
a))
(declare-fun is_zero (us_rep) Bool)
(declare-fun is_zero__post_predicate (Bool us_rep) Bool)
;; is_zero__def_axiom
(assert
(forall ((x us_rep))
(! (=> (is_zero__post_predicate (is_zero x) x)
(= (= (is_zero x) true)
(= (to_rep1 (rec__unit1__t1__c1 (us_split_fields1 x))) 0))) :pattern (
(is_zero x)) )))
(declare-datatypes ((us_split_fields2 0)) (((mk___split_fields1 (rec__unit2__t2__c2 integer) (rec__unit1__t1__c11 integer) (rec__ext__1 us_private)))))
(declare-datatypes ((us_split_fields__ref1 0)) (((mk___split_fields__ref1 (us_split_fields__content1 us_split_fields2)))))
(define-fun us_split_fields__ref_2__projection ((a us_split_fields__ref1)) us_split_fields2
(us_split_fields__content1 a))
(declare-datatypes ((us_rep1 0)) (((mk___rep1 (us_split_fields3 us_split_fields2) (attr__tag1 Int)))))
(define-fun us_rep_3__projection ((a us_rep1)) us_split_fields2 (us_split_fields3
a))
(declare-fun hide_ext__ (integer us_private) us_private)
(define-fun to_base ((a us_rep1)) us_rep (mk___rep
(mk___split_fields
(rec__unit1__t1__c11
(us_split_fields3 a))
(hide_ext__
(rec__unit2__t2__c2
(us_split_fields3 a))
(rec__ext__1 (us_split_fields3 a))))
(attr__tag1 a)))
(declare-fun is_zero2 (us_rep1) Bool)
(declare-fun is_zero__post_predicate2 (Bool us_rep1) Bool)
;; is_zero__def_axiom
(assert
(forall ((x us_rep1))
(! (=> (is_zero__post_predicate2 (is_zero2 x) x)
(= (= (is_zero2 x) true)
(and (= (is_zero (to_base x)) true)
(= (to_rep1 (rec__unit2__t2__c2 (us_split_fields3 x))) 0)))) :pattern (
(is_zero2 x)) )))
(declare-fun x2__attr__tag () Int)
(declare-fun x2__split_fields () integer)
(declare-fun x2__split_fields1 () integer)
(declare-fun x2__split_fields2 () us_private)
;; H
(assert
(forall ((x2__split_fields3 us_split_fields2)) (is_zero__post_predicate2
(is_zero2 (mk___rep1 x2__split_fields3 x2__attr__tag))
(mk___rep1 x2__split_fields3 x2__attr__tag))))
;; H
(assert
(and (= (to_rep1 x2__split_fields1) 0) (= (to_rep1 x2__split_fields) 0)))
;; Should be enough to imply following hypothesis
(assert
(forall ((x us_rep1)) (is_zero__post_predicate (is_zero (to_base x))
(to_base x))))
(assert
;; WP_parameter_def
;; File "main.adb", line 5, characters 0-0
(not
(= (is_zero (to_base (mk___rep1
(mk___split_fields1 x2__split_fields x2__split_fields1
x2__split_fields2) x2__attr__tag))) true)))
(check-sat)
|