(INTERN-IN-PACKAGE-OF-SYMBOL-LEMMA
 (12 2 (:REWRITE INTERN-IN-PACKAGE-OF-SYMBOL-IS-IDENTITY))
 (4 4 (:TYPE-PRESCRIPTION MEMBER-SYMBOL-NAME))
 (4 2 (:REWRITE DEFAULT-SYMBOL-NAME))
 (4 2 (:REWRITE DEFAULT-PKG-IMPORTS))
 (2 2 (:TYPE-PRESCRIPTION STRINGP-SYMBOL-PACKAGE-NAME))
 (2 2 (:REWRITE DEFAULT-SYMBOL-PACKAGE-NAME))
 (2 2 (:REWRITE DEFAULT-INTERN-IN-PACKAGE-OF-SYMBOL))
 )
(EQUAL-OF-INTERN-IN-PACKAGE-OF-SYMBOLS
 (24 4 (:REWRITE INTERN-IN-PACKAGE-OF-SYMBOL-IS-IDENTITY))
 (8 8 (:TYPE-PRESCRIPTION MEMBER-SYMBOL-NAME))
 (8 4 (:REWRITE DEFAULT-PKG-IMPORTS))
 (4 4 (:TYPE-PRESCRIPTION STRINGP-SYMBOL-PACKAGE-NAME))
 (4 4 (:REWRITE DEFAULT-SYMBOL-PACKAGE-NAME))
 (4 4 (:REWRITE DEFAULT-INTERN-IN-PACKAGE-OF-SYMBOL))
 )
