Fix While timeout in Isabelle semantics

input-output-hk · Apr 14, 2019 · 7a5749d · 7a5749d
1 parent b626bfb
commit 7a5749d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/semantics-2.0/formalisation/Semantics.thy b/semantics-2.0/formalisation/Semantics.thy
@@ -563,7 +563,7 @@ function reduceRec :: "BlockNumber \<Rightarrow> State \<Rightarrow> Environment
         (Constant (evalValue blockNum state def))
         (reduceRec blockNum state env contract)" |
 "reduceRec blockNum state env (While obs timeout contractWhile contractAfter) =
-  (if isExpired timeout blockNum
+  (if isExpired blockNum timeout
    then reduceRec blockNum state env contractAfter
    else (if evalObservation blockNum state obs
          then (While obs timeout (reduceRec blockNum state env contractWhile) contractAfter)