Commit 6cfcbf82 authored by Andrei Paskevich's avatar Andrei Paskevich

whyml: typing

parent 5006540b
This diff is collapsed.
......@@ -292,7 +292,7 @@ and expr_fun locals x bl (_, e1, _) =
l_expr = e1;
l_post = create_post res1 t_true; (* TODO *)
l_xpost = Mexn.empty; (* TODO *)
} in
} in
create_fun_defn (id_user x) lam
(** Type declaration *)
......
......@@ -16,14 +16,17 @@ module N
use import M
goal G1: f 41 = 42
type unit = ()
type tree 'a = Node 'a (forest 'a) | Leaf
with forest 'a = Cons (tree 'a) (forest 'a) | Nil
type ref 'b = {| ghost mutable contents : 'b |}
function id (tree 'c) : (tree 'c)
let h (x : tree 'd) = ((id x) : tree 'd)
let h x =
let bang y = y.contents in
let z = bang x + zero in
Node x Nil
end
(*
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment