• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
    • B*
    • Defunc
    • Fty
    • Apt
      • Simplify-defun
      • Isodata
      • Tailrec
      • Schemalg
      • Restrict
      • Expdata
      • Casesplit
        • Casesplit-implementation
          • Casesplit-event-generation
          • Casesplit-fn
          • Casesplit-input-processing
          • Casesplit-macro-definition
          • Casesplit-library-extensions
      • Simplify-term
      • Simplify-defun-sk
      • Parteval
      • Solve
      • Wrap-output
      • Propagate-iso
      • Simplify
      • Finite-difference
      • Drop-irrelevant-params
      • Copy-function
      • Lift-iso
      • Rename-params
      • Utilities
      • Simplify-term-programmatic
      • Simplify-defun-sk-programmatic
      • Simplify-defun-programmatic
      • Simplify-defun+
      • Common-options
      • Common-concepts
    • Std/util
    • Defdata
    • Defrstobj
    • Seq
    • Match-tree
    • Defrstobj
    • With-supporters
    • Def-partial-measure
    • Template-subst
    • Soft
    • Defthm-domain
    • Event-macros
    • Def-universal-equiv
    • Def-saved-obligs
    • With-supporters-after
    • Definec
    • Sig
    • Outer-local
    • Data-structures
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• Casesplit-implementation

Casesplit-macro-definition

Definition of the casesplit macro.

Submit the event form generated by casesplit-fn.

Macro: casesplit

(defmacro casesplit (&whole call old conditions
                            theorems &key (new-name ':auto)
                            (new-enable ':auto)
                            (thm-name ':auto)
                            (thm-enable 't)
                            (verify-guards ':auto)
                            (hints 'nil)
                            (print ':result)
                            (show-only 'nil))
 (cons
  'make-event-terse
  (cons
   (cons
    'casesplit-fn
    (cons
     (cons 'quote (cons old 'nil))
     (cons
      (cons 'quote (cons conditions 'nil))
      (cons
       (cons 'quote (cons theorems 'nil))
       (cons
        (cons 'quote (cons new-name 'nil))
        (cons
         (cons 'quote (cons new-enable 'nil))
         (cons
          (cons 'quote (cons thm-name 'nil))
          (cons
           (cons 'quote (cons thm-enable 'nil))
           (cons
            (cons 'quote (cons verify-guards 'nil))
            (cons
             (cons 'quote (cons hints 'nil))
             (cons
              (cons 'quote (cons print 'nil))
              (cons
               (cons 'quote (cons show-only 'nil))
               (cons
                (cons 'quote (cons call 'nil))
                (cons
                     (cons 'cons
                           (cons ''casesplit
                                 (cons (cons 'quote (cons old 'nil))
                                       'nil)))
                     '(state)))))))))))))))
   (cons ':suppress-errors
         (cons (not print) 'nil)))))