		Search-engine friendly clone of the ACL2 documentation.

Skip-detection

Sd-analyze-modulelist

Perform skip-detection on a module list.

Signature
(sd-analyze-modulelist x) → probs
Arguments: x — Guard (vl-modulelist-p x).
Returns: probs — Sorted in priority order.
Type (sd-problemlist-p probs).

Definitions and Theorems

Function: sd-analyze-modulelist

(defun sd-analyze-modulelist (x)
  (declare (xargs :guard (vl-modulelist-p x)))
  (let ((__function__ 'sd-analyze-modulelist))
    (declare (ignorable __function__))
    (b* ((analyze (cwtime (sd-analyze-modulelist-aux x)
                          :name sd-analyze-modulelist-aux
                          :mintime 1))
         (sort (cwtime (sd-problem-sort analyze)
                       :name sd-analyze-modulelist-sort
                       :mintime 1/2)))
      sort)))

Theorem: sd-problemlist-p-of-sd-analyze-modulelist

(defthm sd-problemlist-p-of-sd-analyze-modulelist
  (b* ((probs (sd-analyze-modulelist x)))
    (sd-problemlist-p probs))
  :rule-classes :rewrite)

Theorem: true-listp-of-sd-analyze-modulelist

(defthm true-listp-of-sd-analyze-modulelist
  (true-listp (sd-analyze-modulelist x))
  :rule-classes :type-prescription)