other
(in-package "GL")
other
(include-book "eval-g-base")
other
(include-book "g-if")
other
(include-book "general-object-thms")
other
(include-book "tools/def-functional-instance" :dir :system)
other
(set-ignore-ok t)
def-eval-g-base-thm-instancemacro
(defmacro def-eval-g-base-thm-instance (new-name orig-name &key (rule-classes 'nil rule-classes-p)) `(def-functional-instance ,GL::NEW-NAME ,GL::ORIG-NAME ((generic-geval-ev eval-g-base-ev) (generic-geval-ev-lst eval-g-base-ev-lst) (generic-geval eval-g-base) (generic-geval-list eval-g-base-list)) :hints ('(:in-theory (e/d* (eval-g-base-ev-of-fncall-args eval-g-base-apply-agrees-with-eval-g-base-ev) (eval-g-base-apply)) :expand ((:with eval-g-base (eval-g-base x env)) (eval-g-base-list x env)))) . ,(AND GL::RULE-CLASSES-P `(:RULE-CLASSES ,GL::RULE-CLASSES))))
other
(def-eval-g-base-thm-instance eval-g-base-alt-def generic-geval-alt-def :rule-classes ((:definition :clique (eval-g-base) :controller-alist ((eval-g-base t nil)))))
other
(in-theory (disable eval-g-base-alt-def eval-g-base))
other
(def-eval-g-base-thm-instance general-boolean-value-correct-for-eval-g-base general-boolean-value-correct)
other
(def-eval-g-base-thm-instance mk-g-boolean-correct-for-eval-g-base mk-g-boolean-correct)
other
(def-eval-g-base-thm-instance booleanp-of-geval-for-eval-g-base booleanp-of-geval)
other
(def-eval-g-base-thm-instance gtests-obj-correct-for-eval-g-base gtests-obj-correct)
other
(def-eval-g-base-thm-instance gtests-nonnil-correct-for-eval-g-base gtests-nonnil-correct)
other
(def-eval-g-base-thm-instance bfr-assume-of-gtests-possibly-true-for-eval-g-base bfr-assume-of-gtests-possibly-true)
other
(def-eval-g-base-thm-instance bfr-assume-of-gtests-possibly-false-for-eval-g-base bfr-assume-of-gtests-possibly-false)
other
(def-eval-g-base-thm-instance general-integer-bits-correct-for-eval-g-base general-integer-bits-correct)
other
(def-eval-g-base-thm-instance integerp-of-geval-for-eval-g-base integerp-of-geval)
other
(def-eval-g-base-thm-instance general-consp-correct-for-eval-g-base general-consp-correct)
other
(def-eval-g-base-thm-instance not-consp-implies-not-general-consp-for-eval-g-base not-consp-implies-not-general-consp :rule-classes :forward-chaining)
other
(def-eval-g-base-thm-instance consp-of-geval-for-eval-g-base consp-of-geval)
other
(def-eval-g-base-thm-instance general-consp-car-when-concretep-for-eval-g-base general-consp-car-when-concretep)
other
(def-eval-g-base-thm-instance general-consp-cdr-when-concretep-for-eval-g-base general-consp-car-when-concretep)
other
(def-eval-g-base-thm-instance g-if-fn-correct-for-eval-g-base g-if-fn-correct)
other
(def-eval-g-base-thm-instance g-or-fn-correct-for-eval-g-base g-or-fn-correct)
other
(def-eval-g-base-thm-instance mk-g-ite-correct-for-eval-g-base mk-g-ite-correct)
other
(def-eval-g-base-thm-instance gobj-ite-merge-correct-for-eval-g-base gobj-ite-merge-correct)
other
(def-eval-g-base-thm-instance mk-g-bdd-ite-correct-for-eval-g-base mk-g-bdd-ite-correct)
other
(def-eval-g-base-thm-instance eval-g-base-g-apply generic-geval-g-apply)
other
(def-eval-g-base-thm-instance general-consp-car-correct-for-eval-g-base general-consp-car-correct)
other
(def-eval-g-base-thm-instance general-consp-cdr-correct-for-eval-g-base general-consp-cdr-correct)
other
(in-theory (disable general-consp-car-correct-for-eval-g-base general-consp-cdr-correct-for-eval-g-base))
other
(def-eval-g-base-thm-instance eval-g-base-cons generic-geval-cons)
other
(def-eval-g-base-thm-instance eval-g-base-non-cons generic-geval-non-cons)
other
(in-theory (disable eval-g-base-non-cons))
other
(def-eval-g-base-thm-instance general-number-fix-correct-for-eval-g-base general-number-fix-correct)
other
(def-eval-g-base-thm-instance geval-when-general-concretep-of-number-fix-for-eval-g-base geval-when-general-concretep-of-number-fix)
other
(def-eval-g-base-thm-instance not-general-integerp-not-integerp-for-eval-g-base not-general-integerp-not-integerp)
other
(def-eval-g-base-thm-instance mk-g-integer-correct-for-eval-g-base mk-g-integer-correct)
other
(def-eval-g-base-thm-instance mk-g-concrete-correct-for-eval-g-base mk-g-concrete-correct)
other
(def-eval-g-base-thm-instance g-concrete-quote-correct-for-eval-g-base g-concrete-quote-correct)
other
(def-eval-g-base-thm-instance eval-g-base-of-gl-cons generic-geval-gl-cons)
other
(def-eval-g-base-thm-instance eval-g-base-list-of-gl-cons generic-geval-list-gl-cons)
other
(def-eval-g-base-thm-instance generic-geval-of-g-ite-branches-for-eval-g-base generic-geval-of-g-ite-branches)
other
(def-eval-g-base-thm-instance general-concrete-obj-correct-for-eval-g-base general-concrete-obj-correct)