induction-machine-plus-tests

Included Books

induction-machine-plus assert-bang must-succeed-star

other

(in-package "ACL2")

include-book

(include-book "induction-machine-plus")

include-book

(include-book "std/testing/assert-bang" :dir :system)

include-book

(include-book "std/testing/must-succeed-star" :dir :system)

other

(assert! (let ((im (induction-machine+ 'len (w state))))
    (and (pseudo-tests-and-calls-listp im)
      (= (len im) 2)
      (let ((im1 (first im)))
        (and (equal (access tests-and-calls im1 :tests) '((consp x)))
          (equal (access tests-and-calls im1 :calls) '((len (cdr x))))))
      (let ((im2 (second im)))
        (and (equal (access tests-and-calls im2 :tests)
            '((not (consp x))))
          (equal (access tests-and-calls im2 :calls) nil))))))

other

(must-succeed* (defun fib
    (n)
    (if (zp n)
      1
      (if (= n 1)
        1
        (+ (fib (- n 1)) (fib (- n 2))))))
  (assert! (let ((im (induction-machine+ 'fib (w state))))
      (and (pseudo-tests-and-calls-listp im)
        (= (len im) 3)
        (let ((im1 (first im)))
          (and (equal (access tests-and-calls im1 :tests) '((zp n)))
            (equal (access tests-and-calls im1 :calls) nil)))
        (let ((im2 (second im)))
          (and (equal (access tests-and-calls im2 :tests)
              '((not (zp n)) (= n '1)))
            (equal (access tests-and-calls im2 :calls) nil)))
        (let ((im3 (third im)))
          (and (equal (access tests-and-calls im3 :tests)
              '((not (zp n)) (not (= n '1))))
            (equal (access tests-and-calls im3 :calls)
              '((fib (binary-+ '-1 n)) (fib (binary-+ '-2 n))))))))))