Une MAJ de sécurité est nécessaire sur notre version actuelle. Elle sera effectuée lundi 02/08 entre 12h30 et 13h. L'interruption de service devrait durer quelques minutes (probablement moins de 5 minutes).

Commit c4244b0f authored by Jean-Christophe Filliâtre's avatar Jean-Christophe Filliâtre
Browse files

improved Term.t_app_partial

parent df70e910
...@@ -1446,8 +1446,12 @@ let t_closure ls tyl ty = ...@@ -1446,8 +1446,12 @@ let t_closure ls tyl ty =
let t_app_partial ls tl tyl ty = let t_app_partial ls tl tyl ty =
if tyl = [] then t_app ls tl ty else if tyl = [] then t_app ls tl ty else
let tyl = List.fold_right (fun t tyl -> t_type t :: tyl) tl tyl in match tl with
t_func_app_l (t_closure ls tyl ty) tl | [t] when ls_equal ls fs_func_app -> t
| _ ->
let cons t tyl = t_type t :: tyl in
let tyl = List.fold_right cons tl tyl in
t_func_app_l (t_closure ls tyl ty) tl
let rec t_app_beta_l lam tl = let rec t_app_beta_l lam tl =
if tl = [] then lam else if tl = [] then lam else
......
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