(UNSET-WATERFALL-PARALLELISM)
(ASSIGN SCRIPT-MODE T)
 T
(SET-LD-PROMPT T STATE)
 T
ACL2 !>>(SET-INHIBITED-SUMMARY-TYPES '(TIME STEPS))
 (TIME STEPS)
ACL2 !>>(SET-INHIBIT-OUTPUT-LST '(PROOF-TREE))
 (PROOF-TREE)
ACL2 !>>(INCLUDE-BOOK "arithmetic/top"
                      :DIR :SYSTEM)

Summary
Form:  ( INCLUDE-BOOK "arithmetic/top" ...)
Rules: NIL
 (:SYSTEM . "arithmetic/top.lisp")
ACL2 !>>(PE 'MINUS-CANCELLATION-ON-RIGHT)
   d       4:x(INCLUDE-BOOK "arithmetic/top" :DIR ...)
              \
              [Included books, outermost to innermost:
               (:SYSTEM . "arithmetic/top.lisp")
               (:SYSTEM . "arithmetic/equalities.lisp")
              ]
              \
>              (DEFTHM MINUS-CANCELLATION-ON-RIGHT
                 (EQUAL (+ X Y (- X)) (FIX Y)))
ACL2 !>>(INCLUDE-BOOK "script-mode-pe-helper")

Summary
Form:  ( INCLUDE-BOOK "script-mode-pe-helper" ...)
Rules: NIL
 (:SYSTEM .
          "system/tests/script-mode-pe-helper.lisp")
ACL2 !>>(PE 'H)
           5:x(INCLUDE-BOOK "script-mode-pe-helper")
              \
              [Included books, outermost to innermost:
               (:MY-DIR . "script-mode-pe-helper.lisp")
              ]
              \
>L             (DEFUN H (X) X)
ACL2 !>>Bye.
