(external-ident ident) → qualified-ident
Function:
(defun external-ident (ident) (declare (xargs :guard (identp ident))) (let ((__function__ 'external-ident)) (declare (ignorable __function__)) (make-qualified-ident :ident ident)))
Theorem:
(defthm qualified-identp-of-external-ident (b* ((qualified-ident (external-ident ident))) (qualified-identp qualified-ident)) :rule-classes :rewrite)