Commit 5104cd07 authored by Simon Cruanes's avatar Simon Cruanes
Browse files

bugfix for f_neq special case

parent ba8f3677
......@@ -505,12 +505,12 @@ let ps_neq =
let v = ty_var (create_tvsymbol (id_fresh "a")) in
create_psymbol (id_fresh "infix <>") [v; v]
let f_equ t1 t2 = f_app ps_equ [t1; t2]
let f_neq t1 t2 = f_app ps_neq [t1; t2]
let f_app p tl =
if ls_equal p ps_neq then f_not (f_app ps_equ tl) else f_app p tl
let f_equ t1 t2 = f_app ps_equ [t1; t2]
let f_neq t1 t2 = f_app ps_neq [t1; t2]
let f_app_unsafe = f_app
let fs_tuple n =
......
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