Fix test for CI

This commit is contained in:
Denis Merigoux 2022-12-13 14:09:21 +01:00
parent 3577507ee9
commit 6906fa48d1
No known key found for this signature in database
GPG Key ID: EE99DCFA365C3EE3

View File

@ -20,7 +20,7 @@ let S =
let S : (bool) → integer → integer =
λ (env: (bool)) (param: integer) →
let x1 : bool = env.0 in
if x1 then param else - param in
if x1 then param else -! param in
(S, (x)) in
let z : integer =
let code_and_env : ((bool) → integer → integer * (bool)) = f in