diff options
Diffstat (limited to 'Test/z3api/boog10.bpl')
-rw-r--r-- | Test/z3api/boog10.bpl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/Test/z3api/boog10.bpl b/Test/z3api/boog10.bpl new file mode 100644 index 00000000..5ac43287 --- /dev/null +++ b/Test/z3api/boog10.bpl @@ -0,0 +1,22 @@ +// types
+type Color;
+const unique red: Color;
+const unique blue: Color;
+const unique green: Color;
+
+axiom (forall ce:Color :: ce==red || ce==blue || ce==green);
+var myColor: Color;
+
+// procedure
+procedure SetTo(c: Color);
+ modifies myColor
;
+
+ ensures myColor==c;
+
+implementation SetTo(c: Color) {
+ assert (blue==green);
+ myColor:=blue;
+}
+
+
+
|