(defpkg "M1" '(; Symbols Commonly Used in Programs t nil quote if equal and or not implies iff cons car cdr consp endp list list* atom symbolp + - * / expt floor mod natp integerp nfix zp < <= > >= let let* cond case otherwise ; Symbols Commonly Used in Commands defun defthm thm defconst defmacro progn \&rest mutual-recursion in-package declare ignore xargs in-theory enable disable e/d include-book ld i-am-here pbt pcb pcb! pe pe! pf pl pr pr! puff u ubt ubt! ; Less Commonly Used Symbols o-p o< acl2-count intern-in-package-of-symbol coerce symbol-name string concatenate strip-cars assoc pairlis\$ pairlis-x2 syntaxp quotep)) (in-package "M1")