Evaluate an input section.
(eval-input-section insec curve) → funargs
We evaluate its items, using the input title as the sort.
Function:
(defun eval-input-section (insec curve) (declare (xargs :guard (and (input-sectionp insec) (curvep curve)))) (let ((__function__ 'eval-input-section)) (declare (ignorable __function__)) (eval-input-item-list (input-section->items insec) (input-section->title insec) curve)))
Theorem:
(defthm funarg-list-resultp-of-eval-input-section (b* ((funargs (eval-input-section insec curve))) (funarg-list-resultp funargs)) :rule-classes :rewrite)
Theorem:
(defthm eval-input-section-of-input-section-fix-insec (equal (eval-input-section (input-section-fix insec) curve) (eval-input-section insec curve)))
Theorem:
(defthm eval-input-section-input-section-equiv-congruence-on-insec (implies (input-section-equiv insec insec-equiv) (equal (eval-input-section insec curve) (eval-input-section insec-equiv curve))) :rule-classes :congruence)
Theorem:
(defthm eval-input-section-of-curve-fix-curve (equal (eval-input-section insec (curve-fix curve)) (eval-input-section insec curve)))
Theorem:
(defthm eval-input-section-curve-equiv-congruence-on-curve (implies (curve-equiv curve curve-equiv) (equal (eval-input-section insec curve) (eval-input-section insec curve-equiv))) :rule-classes :congruence)