		Search-engine friendly clone of the ACL2 documentation.

Defun-sk-queries

Defun-sk-rewrite-name

Retrieve the name of the rewrite rule of a function introduced via defun-sk.

Signature
(defun-sk-rewrite-name fn wrld) → name
Arguments: fn — Guard (defun-sk-namep fn wrld).; wrld — Guard (plist-worldp wrld).
Returns: name — A symbolp.

Definitions and Theorems

Function: defun-sk-rewrite-name

(defun defun-sk-rewrite-name (fn wrld)
  (declare (xargs :guard (and (plist-worldp wrld)
                              (defun-sk-namep fn wrld))))
  (let ((__function__ 'defun-sk-rewrite-name))
    (declare (ignorable __function__))
    (b* ((options (defun-sk-options fn wrld))
         (pair (assoc-eq :thm-name options))
         ((unless (null pair)) (cdr pair))
         (quantifier (defun-sk-quantifier fn wrld)))
      (case quantifier
        (forall (add-suffix fn "-NECC"))
        (exists (add-suffix fn "-SUFF"))
        (t (impossible))))))