Mysaa/mpri-2.4-project-2023-2024
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tried to implement Var and Abs has_type method ...

Browse Source
This commit is contained in:
MysaaJava 2024-02-15 05:46:29 +01:00
parent f600a1b212
commit 1fc5a46904
Signed by: Mysaa
GPG Key ID: DBA23608F23F5A10
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/Infer.ml
View File

@ -83,11 +83,27 @@ module Make(T : Utils.Functor) = struct
let rec has_type (env : env) (t : Untyped.term) (w : variable) : (STLC.term, err) t = let rec has_type (env : env) (t : Untyped.term) (w : variable) : (STLC.term, err) t =
match t with match t with
| Untyped.Var x -> | Untyped.Var x ->
Utils.not_yet "Infer.has_type: Var case" (env, t, w, x) (Option.fold
~none:(
let a = Var.fresh "x" in
Exist(a, None, Ret (fun _ -> STLC.Var(x)))
)
~some:(
fun envt -> Map(eq envt w, fun _ -> STLC.Var(x))
)
(Env.find_opt x env)
)
| Untyped.App (t, u) -> | Untyped.App (t, u) ->
Utils.not_yet "Infer.has_type: App case" (env, t, u, fun () -> has_type) Utils.not_yet "Infer.has_type: App case" (env, t, u, fun () -> has_type)
| Untyped.Abs (x, t) -> | Untyped.Abs (x, t) ->
Utils.not_yet "Infer.has_type: Abs case" (env, x, t, fun () -> has_type) let tau,a,b = Var.fresh "τ",Var.fresh "α", Var.fresh "β" in
let newenv = Env.add x a env in
Exist(tau, Some (Arrow(a, b)),
Map(Conj(
has_type newenv t b,
eq tau w
), fun t -> let (x,_) = p in x) (* term * unit -> term isomorphism *)
)
| Untyped.Let (x, t, u) -> | Untyped.Let (x, t, u) ->
Utils.not_yet "Infer.has_type: Let case" (env, x, t, u, fun () -> has_type) Utils.not_yet "Infer.has_type: Let case" (env, x, t, u, fun () -> has_type)
| Untyped.Annot (t, ty) -> | Untyped.Annot (t, ty) ->