Paris7/unification-pfa
Archived
1
0
Fork 0
Code Issues Activity

useless application

Browse source
This commit is contained in:
Mylloon 2024-04-27 12:33:58 +02:00
parent cc709fb5b3
commit fd68a06c08
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 18 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lib/typeSubstitution.ml
View file

@ -22,20 +22,25 @@ let rec apply subst = function
| Type.Arrow (ty1, ty2) -> Type.Arrow (apply subst ty1, apply subst ty2) | Type.Arrow (ty1, ty2) -> Type.Arrow (apply subst ty1, apply subst ty2)
;; ;;
(** Compose two substitutions *) (** Compose two substitutions, last with priority *)
let compose s2 s1 = let compose s2 s1 =
let merger =
IdentifierMap.merge IdentifierMap.merge
(* ID type_s1 type_s2 *)
(fun _ ty1 ty2 -> (fun _ ty1 ty2 ->
match ty1, ty2 with match ty1, ty2 with
(* If we have 2, we pick one of them *) (* Dans ce cas, on donne la priorité à s1 *)
| Some ty1', Some _ -> Some (apply s2 ty1') | Some ty1', Some _ -> Some ty1'
(* If we have 1, we pick the one we have *) (* Utilisation de la substitution que l'on à déjà *)
| Some ty1', None -> Some (apply s2 ty1') | Some ty1', None -> Some ty1'
| None, Some ty2' -> Some (apply s2 ty2') | None, Some ty2' -> Some ty2'
(* If we have 0, we return nothing *) (* Variable untyped *)
| None, None -> None) | None, None -> None)
s1 s1
s2 s2
in
print_endline "wow!";
merger
;; ;;
let to_string map = let to_string map =