File: misc.lisp

package info (click to toggle)
acl2 8.0dfsg-1
  • links: PTS
  • area: main
  • in suites: buster
  • size: 226,956 kB
  • sloc: lisp: 2,678,900; ansic: 6,101; perl: 5,816; xml: 3,586; cpp: 2,624; ruby: 2,576; makefile: 2,443; sh: 2,312; python: 778; yacc: 764; ml: 763; awk: 260; csh: 186; php: 171; lex: 165; tcl: 44; java: 41; asm: 23; haskell: 17
file content (19 lines) | stat: -rw-r--r-- 663 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
; This book contains truly miscellaneous facts.  We have started it as a place
; to put facts that justify claims made in the ACL2 sources.

(in-package "ACL2")

; Justification for using floor to compute nonnegative-integer-quotient in raw
; Lisp:

(local (include-book "rtl/rel9/arithmetic/top" :dir :system))

(defun nonnegative-integer-quotient-as-floor-test (i j)
; Guard is from nonnegative-integer-quotient.
  (declare (xargs :guard (and (integerp i)
                              (not (< i 0))
                              (integerp j)
                              (< 0 j))))
  (mbe :logic (nonnegative-integer-quotient i j)
       :exec (floor i j)))