File: misc.lisp

package info (click to toggle)
acl2 7.2dfsg-3
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 198,968 kB
  • ctags: 182,300
  • sloc: lisp: 2,415,261; ansic: 5,675; perl: 5,577; xml: 3,576; sh: 3,255; cpp: 2,835; makefile: 2,440; ruby: 2,402; python: 778; ml: 763; yacc: 709; csh: 355; php: 171; lex: 162; tcl: 44; java: 24; 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)))