We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 07155c0 commit 86c4195Copy full SHA for 86c4195
examples/exception.ec
@@ -1,19 +1,19 @@
1
require import AllCore.
2
3
-exception toto.
4
-exception tata.
+exception e1.
+exception e2.
5
6
module M ={
7
proc truc (x:int) : int = {
8
if (x = 3) {
9
- raise toto;
+ raise e1;
10
} else { x <- 5; }
11
return x;
12
}
13
}.
14
15
lemma truc (_x: int):
16
-hoare [M.truc : _x = x ==> (4 < res) | toto:(_x = 3) | tata:(false) ].
+hoare [M.truc : _x = x ==> (4 < res) | e1:_x = 3 | e2:false ].
17
proof.
18
proc.
19
conseq (: _ ==> x = 5).
@@ -78,7 +78,6 @@ hoare [M'.truc : p8 ==> q3 | assume:q1 |assert: q2 ].
78
admitted.
79
80
81
-(*Conseq is brocken, should take into account the post of exception*)
82
lemma assert_assume' :
83
hoare [M'.truc : p9 ==> p4 | assume:p6 |assert: p5 ].
84
0 commit comments