We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 2f52e1b + dc8f0c9 commit 66e8cc7Copy full SHA for 66e8cc7
1 file changed
src/test/resources/all/issues/silver/0688.vpr
@@ -0,0 +1,24 @@
1
+adt Unit {
2
+ unit()
3
+}
4
+
5
+domain Exe67 {
6
+ function F67(x : Int, y : Int) : Int
7
8
+ function L67() : Int
9
+ function R67() : Int
10
11
+ axiom LeftUnit67 {
12
+ forall x : Int :: {F67(L67(), x)} F67(L67(), x) == L67()
13
+ }
14
15
+ axiom RightUnit67 {
16
+ forall x : Int :: {F67(x, R67())} F67(x, R67()) == R67()
17
18
19
20
+function functionUnit(x : Int) : Unit
21
22
+function lemmaLEqualR67() : Unit
23
+ ensures L67() == R67()
24
+{let x == (F67(L67(), R67())) in unit() }
0 commit comments