Skip to content
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
38 lines (30 sloc) 1.13 KB
* Copyright (c) University of Toronto and others. All rights reserved.
* The content of this file is licensed under the Creative Commons Attribution-
* ShareAlike 4.0 Unported license. The legal text of this license can be
* found at
* Contributors:
* Michael Gruninger - initial implementation
(cl-comment 'NEIGH-1')
(forall (x y)
(if (precedence x y)
(exists (w)
(and (precedence x w)
(not (exists (z)
(and (precedence x z)
(precedence z w))))))))
(cl-comment 'NEIGH-2')
(forall (x y)
(if (precedence y x)
(exists (w)
(and (precedence w x)
(not (exists (z)
(and (precedence w z)
(precedence z x))))))))
You can’t perform that action at this time.