Skip to content
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
25 lines (20 sloc) 789 Bytes
* 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
(forall (l p1 p2)
(if (and (line 1)
(point p1)
(point p2)
(not (= p1 p2))
(in p1 l)
(in p2 l))
(adj p1 p2)))
You can’t perform that action at this time.