CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-09-19 00:15:39 +03:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Aymeric Fromherz 2023-03-28 13:08:24 +09:00
parent d0ef61219f
commit 5f04e0efaf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/verification/z3backend.real.ml
View File

@ -759,7 +759,7 @@ and translate_expr (ctx : context) (vc : typed expr) : context * Expr.expr =
in
ctx, Expr.mk_app ctx.ctx_z3 fd z3_args
| EAbs { binder; _ } ->
let vars, body = Bindlib.unmbind binder in
let vars, _ = Bindlib.unmbind binder in
if Array.length vars != 1 || List.length args != 1 then
failwith "[Z3 encoding] EAbs not supported beyond let_in"
else