Parse a
(parse-*-import-declaration token input) → (mv trees next-token rest-input)
Function:
(defun parse-*-import-declaration (token input) (declare (xargs :guard (and (abnf::tree-optionp token) (abnf::tree-listp input)))) (let ((__function__ 'parse-*-import-declaration)) (declare (ignorable __function__)) (abnf::tree-option-case token :none (mv nil nil (abnf::tree-list-fix input)) :some (b* (((mv tree1 token1 input1) (parse-import-declaration token input)) ((when (reserrp tree1)) (mv nil (abnf::tree-option-fix token) (abnf::tree-list-fix input))) ((pok trees) (parse-*-import-declaration token1 input1))) (mv (cons tree1 trees) token input)))))
Theorem:
(defthm tree-list-resultp-of-parse-*-import-declaration.trees (b* (((mv ?trees ?next-token ?rest-input) (parse-*-import-declaration token input))) (abnf::tree-list-resultp trees)) :rule-classes :rewrite)
Theorem:
(defthm tree-optionp-of-parse-*-import-declaration.next-token (b* (((mv ?trees ?next-token ?rest-input) (parse-*-import-declaration token input))) (abnf::tree-optionp next-token)) :rule-classes :rewrite)
Theorem:
(defthm tree-listp-of-parse-*-import-declaration.rest-input (b* (((mv ?trees ?next-token ?rest-input) (parse-*-import-declaration token input))) (abnf::tree-listp rest-input)) :rule-classes :rewrite)
Theorem:
(defthm parsize-of-parse-*-import-declaration-<= (b* (((mv ?trees ?next-token ?rest-input) (parse-*-import-declaration token input))) (<= (parsize next-token rest-input) (parsize token input))) :rule-classes :linear)
Theorem:
(defthm parse-*-import-declaration-of-tree-option-fix-token (equal (parse-*-import-declaration (abnf::tree-option-fix token) input) (parse-*-import-declaration token input)))
Theorem:
(defthm parse-*-import-declaration-tree-option-equiv-congruence-on-token (implies (abnf::tree-option-equiv token token-equiv) (equal (parse-*-import-declaration token input) (parse-*-import-declaration token-equiv input))) :rule-classes :congruence)
Theorem:
(defthm parse-*-import-declaration-of-tree-list-fix-input (equal (parse-*-import-declaration token (abnf::tree-list-fix input)) (parse-*-import-declaration token input)))
Theorem:
(defthm parse-*-import-declaration-tree-list-equiv-congruence-on-input (implies (abnf::tree-list-equiv input input-equiv) (equal (parse-*-import-declaration token input) (parse-*-import-declaration token input-equiv))) :rule-classes :congruence)