File: misc.lisp

package info (click to toggle)
acl2 8.3dfsg-2
  • links: PTS
  • area: main
  • in suites: bullseye
  • size: 309,408 kB
  • sloc: lisp: 3,311,842; javascript: 22,569; cpp: 9,029; ansic: 7,872; perl: 6,501; xml: 3,838; java: 3,738; makefile: 3,383; ruby: 2,633; sh: 2,489; ml: 763; python: 741; yacc: 721; awk: 260; csh: 186; php: 171; lex: 154; tcl: 49; 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)))