Attention une mise à jour du serveur va être effectuée le vendredi 16 avril entre 12h et 12h30. Cette mise à jour va générer une interruption du service de quelques minutes.

Commit 2ab8c14e authored by Martin Clochard's avatar Martin Clochard

compute: fix correction bug related to typing corner cases

parent c0e2fdb3
......@@ -330,8 +330,12 @@ let first_order_matching (vars : Svs.t) (largs : term list)
begin
match t2.t_node with
| Tapp(ls2,args2) when ls_equal ls1 ls2 ->
loop sigma (List.rev_append args1 r1)
(List.rev_append args2 r2)
let mt, mv = loop sigma (List.rev_append args1 r1)
(List.rev_append args2 r2) in
begin
try Ty.oty_match mt t1.t_ty t2.t_ty, mv
with Ty.TypeMismatch _ -> raise NoMatch
end
| _ -> raise NoMatch
end
| _ ->
......
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