Skip to content

why3
why3
Commit 28854bb9 authored by Martin Clochard's avatar Martin Clochard Committed by Guillaume Melquiond
Browse files
Options

compute: another bugfix

parent c2f2610d
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 18 deletions
src/transform/reduction_engine.ml
View file @ 28854bb9
......@@ -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!@.";
*)
loop sigma r1 r2
end
else
begin
(*
Format.eprintf " no@.";
*)
raise NoMatch
end
| (Tconst _ | Ttrue | Tfalse) when t_equal t1 t2 ->
loop sigma r1 r2
| _ -> 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