		Search-engine friendly clone of the ACL2 documentation.

Std/system/term-queries

Check-or-call

Check if a term is a (translated) call of or.

Signature
(check-or-call term) → (mv yes/no left right)
Arguments: term — Guard (pseudo-termp term).
Returns: yes/no — Type (booleanp yes/no).; left — Type (pseudo-termp left), given the guard.; right — Type (pseudo-termp right), given the guard.

If it is, return its disjuncts. If it is not, all results are nil.

Definitions and Theorems

Function: check-or-call

(defun check-or-call (term)
  (declare (xargs :guard (pseudo-termp term)))
  (let ((__function__ 'check-or-call))
    (declare (ignorable __function__))
    (b* (((mv ifp test then else)
          (check-if-call term))
         ((when (not ifp)) (mv nil nil nil)))
      (if (equal test then)
          (mv t test else)
        (mv nil nil nil)))))

Theorem: booleanp-of-check-or-call.yes/no

(defthm booleanp-of-check-or-call.yes/no
  (b* (((mv ?yes/no ?left ?right)
        (check-or-call term)))
    (booleanp yes/no))
  :rule-classes :rewrite)

Theorem: pseudo-termp-of-check-or-call.left

(defthm pseudo-termp-of-check-or-call.left
  (implies (and (pseudo-termp term))
           (b* (((mv ?yes/no ?left ?right)
                 (check-or-call term)))
             (pseudo-termp left)))
  :rule-classes :rewrite)

Theorem: pseudo-termp-of-check-or-call.right

(defthm pseudo-termp-of-check-or-call.right
  (implies (and (pseudo-termp term))
           (b* (((mv ?yes/no ?left ?right)
                 (check-or-call term)))
             (pseudo-termp right)))
  :rule-classes :rewrite)

Theorem: acl2-count-of-check-or-call.left

(defthm acl2-count-of-check-or-call.left
  (b* (((mv ?yes/no ?left ?right)
        (check-or-call term)))
    (implies yes/no
             (< (acl2-count left)
                (acl2-count term))))
  :rule-classes :linear)

Theorem: acl2-count-of-check-or-call.right

(defthm acl2-count-of-check-or-call.right
  (b* (((mv ?yes/no ?left ?right)
        (check-or-call term)))
    (implies yes/no
             (< (acl2-count right)
                (acl2-count term))))
  :rule-classes :linear)