1
0
Fork 0
This commit is contained in:
Mylloon 2024-04-13 19:20:38 +02:00
parent e75d5170c8
commit b349849b80
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

@ -29,7 +29,7 @@ let tests_typeof =
, Term.(App (Fun (x, Binop (Var x, Plus, IntConst 1)), Pair (IntConst 1, IntConst 2))) , Term.(App (Fun (x, Binop (Var x, Plus, IntConst 1)), Pair (IntConst 1, IntConst 2)))
, None ) , None )
; (* x -> y -> (x -> y -> z) -> z *) ; (* x -> y -> (x -> y -> z) -> z *)
( "fun x y -> fun z -> z x y" ( "fun x -> fun y -> fun z -> z x y"
, Term.(Fun (x, Fun (y, Fun (z, App (Var z, App (Var x, Var y)))))) , Term.(Fun (x, Fun (y, Fun (z, App (Var z, App (Var x, Var y))))))
, Some , Some
Type.( Type.(