Mysaa/pieuvre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correction du typage de ExFalso.

Browse Source
This commit is contained in:
Mysaa 2022-05-10 14:23:38 +02:00
parent 188bc43576
commit 2b98fd6407
Signed by: Mysaa
GPG Key ID: 7054D5D6A90F084F
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pieuvre.ml
View File

@ -137,9 +137,9 @@ let rec computeType (env: gam) (l: lam) : ty option =
| [] -> None | [] -> None
end end
| LExf(l',t) -> | LExf(l',t) ->
if (computeType env l')=Some t match (computeType env l') with
then Some t | Some TFalse -> Some t (* On applique le ExFalso *)
else None (* Le ex falso a le mauvais type *) | _ -> None (* Le ex falso a le mauvais type *)
;; ;;
(* Vérifie que le λ-terme l sous l'environnement env a bien le type t *) (* Vérifie que le λ-terme l sous l'environnement env a bien le type t *)