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 0e833cee authored by Andrei Paskevich's avatar Andrei Paskevich

add a missing type unification

parent 3c204e66
......@@ -781,14 +781,16 @@ let add_logics dl th =
| None -> fs,None
| Some t ->
let loc = t.pp_loc in
let ty = dty denv ty in
let t = dterm denv t in
if not (unify t.dt_ty ty) then
term_expected_type ~loc t.dt_ty ty;
let vl = match fs.ls_value with
| Some _ -> mk_vlist fs.ls_args
| _ -> assert false
in
let env = env_of_vsymbol_list vl in
try make_fs_defn fs vl (term env t)
with _ -> term_expected_type ~loc t.dt_ty (dty denv ty)
make_fs_defn fs vl (term env t)
end
in
let dl = List.map type_decl dl 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