Constraints induced by a terminated tree that matches
Theorem:
(defthm constraints-from-tree-match-bin/dec/hex-val (implies (and (tree-match-element-p tree (!_ (/_ *bin-val*) (/_ *dec-val*) (/_ *hex-val*)) *grammar*) (tree-terminatedp tree)) (member-equal (car (tree->string tree)) (chars=>nats '(#\B #\D #\X #\b #\d #\x)))) :rule-classes nil)