		Search-engine friendly clone of the ACL2 documentation.

Constant-propagation

Const-prop-fundef

Signature
(const-prop-fundef fundef env) → new-fundef
Arguments: fundef — Guard (fundefp fundef).; env — Guard (envp env).
Returns: new-fundef — Type (fundefp new-fundef).

Definitions and Theorems

Function: const-prop-fundef

(defun const-prop-fundef (fundef env)
  (declare (xargs :guard (and (fundefp fundef) (envp env))))
  (let ((__function__ 'const-prop-fundef))
    (declare (ignorable __function__))
    (b* (((fundef fundef) fundef)
         ((mv specs -)
          (const-prop-decl-spec-list fundef.specs env))
         ((mv declor -)
          (const-prop-declor fundef.declor env))
         ((mv declons -)
          (const-prop-declon-list fundef.declons env))
         ((mv body -)
          (const-prop-comp-stmt fundef.body (push-scope-env env))))
      (make-fundef :extension fundef.extension
                   :specs specs
                   :declor declor
                   :asm? fundef.asm?
                   :declons declons
                   :body body
                   :info fundef.info))))

Theorem: fundefp-of-const-prop-fundef

(defthm fundefp-of-const-prop-fundef
  (b* ((new-fundef (const-prop-fundef fundef env)))
    (fundefp new-fundef))
  :rule-classes :rewrite)