(observability-size-check lit-size full-size config) → *
Function:
(defun observability-size-check (lit-size full-size config) (declare (xargs :guard (and (natp lit-size) (natp full-size) (observability-config-p config)))) (let ((__function__ 'observability-size-check)) (declare (ignorable __function__)) (b* (((observability-config config))) (and (or (not config.hyp-max-size) (<= (lnfix lit-size) config.hyp-max-size)) (or (not config.concl-min-size) (>= (lnfix full-size) config.concl-min-size)) (<= (* (numerator config.min-ratio) (lnfix lit-size)) (* (denominator config.min-ratio) (lnfix full-size)))))))
Theorem:
(defthm observability-size-check-of-nfix-lit-size (equal (observability-size-check (nfix lit-size) full-size config) (observability-size-check lit-size full-size config)))
Theorem:
(defthm observability-size-check-nat-equiv-congruence-on-lit-size (implies (nat-equiv lit-size lit-size-equiv) (equal (observability-size-check lit-size full-size config) (observability-size-check lit-size-equiv full-size config))) :rule-classes :congruence)
Theorem:
(defthm observability-size-check-of-nfix-full-size (equal (observability-size-check lit-size (nfix full-size) config) (observability-size-check lit-size full-size config)))
Theorem:
(defthm observability-size-check-nat-equiv-congruence-on-full-size (implies (nat-equiv full-size full-size-equiv) (equal (observability-size-check lit-size full-size config) (observability-size-check lit-size full-size-equiv config))) :rule-classes :congruence)
Theorem:
(defthm observability-size-check-of-observability-config-fix-config (equal (observability-size-check lit-size full-size (observability-config-fix config)) (observability-size-check lit-size full-size config)))
Theorem:
(defthm observability-size-check-observability-config-equiv-congruence-on-config (implies (observability-config-equiv config config-equiv) (equal (observability-size-check lit-size full-size config) (observability-size-check lit-size full-size config-equiv))) :rule-classes :congruence)