/usr/share/acl2-7.1/books/arithmetic/realp.lisp is in acl2-books-source 7.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 40 | (in-package "ACL2")
; Contributed by Ruben Gamboa
; Copyright (C) 2014, University of Wyoming
; All rights reserved.
; License: A 3-clause BSD license. See the LICENSE file distributed with ACL2.
;;; Surprisingly, ACL2 knows very little about the rational numbers.
;;; Even though its type system knows that x*y is rational when x and
;;; y are rational, it gets confused when a theorem has that as a
;;; hypothesis, because the crucial fact is needed by the rewriter,
;;; not the type-system. Sad, really.
;;; The arithmetic books solve this problem for the rationals. The
;;; same problems apply to ACL2(r) with the reals, so we include those
;;; simple theorems here.
#+non-standard-analysis
; [Jared] adding #+non-standard-analysis so that we can include this book in
; ordinary ACL2, and hence keep the include-book commands uniform across both
; ACL2 and ACL2(r).
(progn
(defthm realp-+
(implies (and (realp x) (realp y))
(realp (+ x y))))
(defthm realp-uminus
(implies (realp x)
(realp (- x))))
(defthm realp-*
(implies (and (realp x) (realp y))
(realp (* x y))))
(defthm realp-udiv
(implies (realp x)
(realp (/ x))))
)
|