Pretty-print a type.
Theorem:
(defthm return-type-of-pprint-type.part (b* ((?part (pprint-type type))) (msgp part)) :rule-classes :rewrite)
Theorem:
(defthm return-type-of-pprint-type-list.parts (b* ((?parts (pprint-type-list types))) (msg-listp parts)) :rule-classes :rewrite)
Theorem:
(defthm pprint-type-of-type-fix-type (equal (pprint-type (type-fix type)) (pprint-type type)))
Theorem:
(defthm pprint-type-list-of-type-list-fix-types (equal (pprint-type-list (type-list-fix types)) (pprint-type-list types)))
Theorem:
(defthm pprint-type-type-equiv-congruence-on-type (implies (type-equiv type type-equiv) (equal (pprint-type type) (pprint-type type-equiv))) :rule-classes :congruence)
Theorem:
(defthm pprint-type-list-type-list-equiv-congruence-on-types (implies (type-list-equiv types types-equiv) (equal (pprint-type-list types) (pprint-type-list types-equiv))) :rule-classes :congruence)