/
lub.clif
30 lines (24 loc) · 868 Bytes
/
lub.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
/*******************************************************************************
* 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/orderings/definitions/lub.clif
(cl-imports http://colore.oor.net/orderings/quasiorder.clif)
(forall (x y s)
(iff
(lub x y s)
(and
(leq x s)
(leq y s)
(forall (z)
(if (and
(leq x z)
(leq y z)
)
(leq s z))))))
)