blob: 112328b63e73fbd97fdfdc839cb84fd48fec0fcf (
plain)
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
|
; Depends On: th_smt.plf
(declare Real sort)
(define arithpred_Real (! x (term Real)
(! y (term Real)
formula)))
(declare >_Real arithpred_Real)
(declare >=_Real arithpred_Real)
(declare <_Real arithpred_Real)
(declare <=_Real arithpred_Real)
(define arithterm_Real (! x (term Real)
(! y (term Real)
(term Real))))
(declare +_Real arithterm_Real)
(declare -_Real arithterm_Real)
(declare *_Real arithterm_Real) ; is * ok to use?
(declare /_Real arithterm_Real) ; is / ok to use?
; a constant term
(declare a_real (! x mpq (term Real)))
(declare >=0_Real (! x (term Real) formula))
(declare =0_Real (! x (term Real) formula))
(declare >0_Real (! x (term Real) formula))
(declare distinct0_Real (! x (term Real) formula))
; unary negation
(declare u-_Real (! t (term Real) (term Real)))
; Is this rational positive?
(program mpq_ispos ((x mpq)) bool
(mp_ifneg x ff (mp_ifzero x ff tt)))
|