Input decomposition theorem for parse-equal-/-equal-slash.
Theorem:
(defthm input-decomposition-of-parse-equal-/-equal-slash (b* (((mv error? tree? rest-input) (parse-equal-/-equal-slash input))) (implies (not error?) (equal (append (tree->string tree?) rest-input) (nat-list-fix input)))))