• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Community
  • Std
  • Proof-automation
  • Macro-libraries
    • B*
    • Defunc
    • Fty
    • Apt
    • Std/util
    • Defdata
    • Defrstobj
    • Seq
    • Match-tree
    • Defrstobj
    • With-supporters
    • Def-partial-measure
    • Template-subst
    • Soft
      • Soft-future-work
      • Soft-macros
        • Defun-inst
        • Defequal
          • Defequal-implementation
            • Defequal-fn
            • Defequal-event-generation
            • Defequal-input-processing
              • Defequal-process-inputs
              • Defequal-process-left-and-right
              • Defequal-process-vars
              • Defequal-process-right-to-left-name
              • Defequal-process-left-to-right-name
              • Defequal-process-vars-aux
              • Defequal-process-name
            • Defequal-table
            • Defequal-macro-definition
        • Defsoft
        • Defthm-inst
        • Defun2
        • Defunvar
        • Defun-sk2
        • Defchoose2
        • Defthm-2nd-order
        • Define-sk2
        • Defund-sk2
        • Define2
        • Defund2
      • Updates-to-workshop-material
      • Soft-implementation
      • Soft-notions
    • 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

• Defequal-input-processing

Defequal-process-right-to-left-name

Process the :right-to-left input.

Signature

(defequal-process-right-to-left-name 
     right-to-left-name name 
     left right names-to-avoid ctx state) 
 
  → 
(mv erp result state)

Arguments

name — Guard (symbolp name).

left — Guard (symbolp left).

right — Guard (symbolp right).

names-to-avoid — Guard (symbol-listp names-to-avoid).

Returns

result — A tuple (right-to-left updated-names-to-avoid) satisfying (typed-tuplep symbolp symbol-listp result).

Definitions and Theorems

Function: defequal-process-right-to-left-name

(defun defequal-process-right-to-left-name
       (right-to-left-name name
                           left right names-to-avoid ctx state)
 (declare (xargs :stobjs (state)))
 (declare (xargs :guard (and (symbolp name)
                             (symbolp left)
                             (symbolp right)
                             (symbol-listp names-to-avoid))))
 (let ((__function__ 'defequal-process-right-to-left-name))
   (declare (ignorable __function__))
   (b* (((er &)
         (ensure-value-is-symbol$ right-to-left-name
                                  "The :RIGHT-TO-LEFT input" t nil))
        (right-to-left (if (eq right-to-left-name :auto)
                           (packn-pos (list right '-to- left) name)
                         right-to-left-name))
        ((er names-to-avoid)
         (ensure-symbol-is-fresh-event-name$
              right-to-left
              (msg "The name ~x0 specified by :RIGHT-TO-LEFT-NAME"
                   right-to-left)
              'function
              names-to-avoid t nil)))
     (value (list right-to-left names-to-avoid)))))