Attention une mise à jour du serveur va être effectuée le lundi 17 mai entre 13h et 13h30. Cette mise à jour va générer une interruption du service de quelques minutes.

Commit 68e17edd authored by Andrei Paskevich's avatar Andrei Paskevich

check for duplicate arguments in function definitions

parent 401c4ce9
...@@ -47,6 +47,9 @@ let check_vl ty v = ty_equal_check ty v.vs_ty ...@@ -47,6 +47,9 @@ let check_vl ty v = ty_equal_check ty v.vs_ty
let check_tl ty t = ty_equal_check ty (t_type t) let check_tl ty t = ty_equal_check ty (t_type t)
let make_ls_defn ls vl t = let make_ls_defn ls vl t =
(* check for duplicate arguments *)
let add_v s v = Svs.add_new v (DuplicateVar v) s in
ignore (List.fold_left add_v Svs.empty vl);
(* build the definition axiom *) (* build the definition axiom *)
let hd = t_app ls (List.map t_var vl) t.t_ty in let hd = t_app ls (List.map t_var vl) t.t_ty in
let bd = TermTF.t_selecti t_equ t_iff hd t in let bd = TermTF.t_selecti t_equ t_iff hd t in
......
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