/
lp_discrete.clif
39 lines (36 loc) · 1.03 KB
/
lp_discrete.clif
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
/*******************************************************************************
* 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 http://creativecommons.org/licenses/by-sa/4.0/legalcode.
*
* Contributors:
* Michael Gruninger - initial implementation
*******************************************************************************/
(cl-text http://colore.oor.net/timepoints/lp_discrete.clif
(cl-imports http://colore.oor.net/timepoints/lp_ordering.clif)
(forall (x)
(if
(timepoint x)
(and
(exists (y)
(and
(timepoint y)
(before x y)
(not
(exists (z)
(and
(timepoint z)
(before x z)
(before z y))))))
(exists (y)
(and
(timepoint y)
(before y x)
(not
(exists (z)
(and
(timepoint z)
(before y z)
(before z x)))))))))
)