• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Community
    • Proof-automation
    • Macro-libraries
      • B*
      • Defunc
      • Fty
      • Apt
        • Simplify-defun
        • Isodata
        • Tailrec
          • Tailrec-implementation
            • Tailrec-event-generation
            • Tailrec-fn
            • Tailrec-macro-definition
            • Tailrec-input-processing
              • Tailrec-process-inputs
              • Tailrec-process-old
              • Tailrec-process-domain
              • Tailrec-decompose-recursive-branch
              • Tailrec-check-nonrec-conditions
              • Tailrec-process-variant
                • Tailrec-process-variant$
              • Tailrec-infer-domain
              • Tailrec-find-nonrec-term-in-term/terms
              • Tailrec-process-accumulator
              • Tailrec-variantp
        • Schemalg
        • Restrict
        • Expdata
        • Casesplit
        • 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
      • Theories
      • Rule-classes
      • Proof-builder
      • Recursion-and-induction
      • Hons-and-memoization
      • Events
      • Parallelism
      • History
      • Programming
      • Operational-semantics
      • Real
      • Start-here
      • Debugging
      • Miscellaneous
      • Output-controls
      • Macros
        • Make-event
        • Defmacro
        • Untranslate-patterns
        • Tc
        • Trans*
        • Macro-aliases-table
        • Macro-args
        • Defabbrev
        • User-defined-functions-table
        • Trans
        • Untranslate-for-execution
        • Add-macro-fn
        • Check-vars-not-free
        • Safe-mode
        • Macro-libraries
          • B*
          • Defunc
          • Fty
          • Apt
            • Simplify-defun
            • Isodata
            • Tailrec
              • Tailrec-implementation
                • Tailrec-event-generation
                • Tailrec-fn
                • Tailrec-macro-definition
                • Tailrec-input-processing
                  • Tailrec-process-inputs
                  • Tailrec-process-old
                  • Tailrec-process-domain
                  • Tailrec-decompose-recursive-branch
                  • Tailrec-check-nonrec-conditions
                  • Tailrec-process-variant
                    • Tailrec-process-variant$
                  • Tailrec-infer-domain
                  • Tailrec-find-nonrec-term-in-term/terms
                  • Tailrec-process-accumulator
                  • Tailrec-variantp
            • Schemalg
            • Restrict
            • Expdata
            • Casesplit
            • 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
        • Trans1
        • Defmacro-untouchable
        • Set-duplicate-keys-action
        • Add-macro-alias
        • Magic-macroexpand
        • Defmacroq
        • Trans!
        • Remove-macro-fn
        • Remove-macro-alias
        • Add-binop
        • Untrans-table
        • Trans*-
        • Remove-binop
        • Tcp
        • Tca
      • Interfacing-tools
    • Interfacing-tools
    • Hardware-verification
    • Software-verification
    • Math
    • Testing-utilities
  • Tailrec-input-processing

Tailrec-process-variant

Process the variant input.

Signature
(tailrec-process-variant variant description 
                         error-erp error-val ctx state) 
 
  → 
(mv erp val state)
Arguments
description — Guard (msgp description).
error-erp — Flag to return in case of error.
error-val — Value to return in case of error.
ctx — Context for errors.
Returns
erp — Type (implies erp (equal erp error-erp)).
val — Type (and (implies erp (equal val error-val)) (implies (and (not erp) error-erp) (not val))) .

Definitions and Theorems

Function: tailrec-process-variant

(defun tailrec-process-variant
       (variant description
                error-erp error-val ctx state)
  (declare (xargs :stobjs (state)))
  (declare (xargs :guard (msgp description)))
  (b*
    (((unless (tailrec-variantp variant))
      (er-soft+
           ctx error-erp error-val
           "~@0 must be :MONOID, :MONOID-ALT, :ASSOC or :ASSOC-ALT."
           description)))
    (value nil)))

Theorem: return-type-of-tailrec-process-variant.erp

(defthm return-type-of-tailrec-process-variant.erp
  (b* (((mv ?erp ?val acl2::?state)
        (tailrec-process-variant variant description
                                 error-erp error-val ctx state)))
    (implies erp (equal erp error-erp)))
  :rule-classes :rewrite)

Theorem: return-type-of-tailrec-process-variant.val

(defthm return-type-of-tailrec-process-variant.val
  (b* (((mv ?erp ?val acl2::?state)
        (tailrec-process-variant variant description
                                 error-erp error-val ctx state)))
    (and (implies erp (equal val error-val))
         (implies (and (not erp) error-erp)
                  (not val))))
  :rule-classes :rewrite)

Subtopics

Tailrec-process-variant$
Calls tailrec-process-variant with ctx and state as the last two arguments.