Theorem:
(defthm svex-eval-equiv-implies-equal-svex-monotonic-p-1 (implies (svex-eval-equiv x x-equiv) (equal (svex-monotonic-p x) (svex-monotonic-p x-equiv))) :rule-classes (:congruence))
Theorem:
(defthm svex-var-monotonic (svex-monotonic-p (svex-var k)))