Commit edd05951 authored by Martin Clochard's avatar Martin Clochard

compute: another bugfix

parent a78ba0cb
......@@ -338,24 +338,9 @@ let first_order_matching (vars : Svs.t) (largs : term list)
end
| _ -> raise NoMatch
end
| _ ->
(*
Format.eprintf "are these terms equal ?...";
*)
if t_equal t1 t2 then
begin
(*
Format.eprintf " yes!@.";
*)
| (Tconst _ | Ttrue | Tfalse) when t_equal t1 t2 ->
loop sigma r1 r2
end
else
begin
(*
Format.eprintf " no@.";
*)
raise NoMatch
end
| _ -> raise NoMatch
end
| _ -> raise NoMatch
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