		Search-engine friendly clone of the ACL2 documentation.

Output-execution

Eval-output-item

Evaluate an output item.

Signature
(eval-output-item outitem curve) → val
Arguments: outitem — Guard (output-itemp outitem).; curve — Guard (curvep curve).
Returns: val — Type (value-resultp val).

Definitions and Theorems

Function: eval-output-item

(defun eval-output-item (outitem curve)
  (declare (xargs :guard (and (output-itemp outitem)
                              (curvep curve))))
  (let ((__function__ 'eval-output-item))
    (declare (ignorable __function__))
    (eval-output-expression (output-item->get outitem)
                            curve)))

Theorem: value-resultp-of-eval-output-item

(defthm value-resultp-of-eval-output-item
  (b* ((val (eval-output-item outitem curve)))
    (value-resultp val))
  :rule-classes :rewrite)

Theorem: eval-output-item-of-output-item-fix-outitem

(defthm eval-output-item-of-output-item-fix-outitem
  (equal (eval-output-item (output-item-fix outitem)
                           curve)
         (eval-output-item outitem curve)))

Theorem: eval-output-item-output-item-equiv-congruence-on-outitem

(defthm eval-output-item-output-item-equiv-congruence-on-outitem
  (implies (output-item-equiv outitem outitem-equiv)
           (equal (eval-output-item outitem curve)
                  (eval-output-item outitem-equiv curve)))
  :rule-classes :congruence)

Theorem: eval-output-item-of-curve-fix-curve

(defthm eval-output-item-of-curve-fix-curve
  (equal (eval-output-item outitem (curve-fix curve))
         (eval-output-item outitem curve)))

Theorem: eval-output-item-curve-equiv-congruence-on-curve

(defthm eval-output-item-curve-equiv-congruence-on-curve
  (implies (curve-equiv curve curve-equiv)
           (equal (eval-output-item outitem curve)
                  (eval-output-item outitem curve-equiv)))
  :rule-classes :congruence)