Commit 96284057 authored by POTTIER Francois's avatar POTTIER Francois

Fixed [occurs], whose outcome was reversed.

parent 476e5ea1
......@@ -50,8 +50,8 @@
| Some _ -> false \
let OCCURS_FUN(term) x t = \
match FILTER_FUN(term) (fun y -> Atom.equal x y) t with \
| None -> true \
| Some _ -> false \
| None -> false \
| Some _ -> true \
(* -------------------------------------------------------------------------- *)
......
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