Correction du typage de ExFalso.

2022-05-10 14:23:38 +02:00 · 2022-05-10 14:23:38 +02:00 · 2b98fd6407
commit 2b98fd6407
parent 188bc43576
1 changed files with 3 additions and 3 deletions
--- a/pieuvre.ml
+++ b/pieuvre.ml
@ -137,9 +137,9 @@ let rec computeType (env: gam) (l: lam) : ty option =
        | [] -> None
        end
    | LExf(l',t) ->
-        if (computeType env l')=Some t
-        then Some t
-        else None (* Le ex falso a le mauvais type *)
+        match (computeType env l') with
+        | Some TFalse -> Some t (* On applique le ExFalso *)
+        | _ -> None (* Le ex falso a le mauvais type *)
 ;;

 (* Vérifie que le λ-terme l sous l'environnement env a bien le type t *)