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

improved Term.t_app_partial

parent df70e910
......@@ -1446,7 +1446,11 @@ let t_closure ls tyl ty =
let t_app_partial ls tl tyl ty =
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] 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 =
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