((/coi/gacc/wrap.lisp::offset-range-wrap-induct-with-x (nil nil nil nil (if) nil nil) ((x) nil (zp) (cons) nil nil nil) ((size) nil nil (loghead) nil (recursive-call) nil) ((width base width x) nil nil (loghead +) nil nil nil) ((width size) (-1) nil (+) nil nil nil) (nil (1) (ifix) nil nil nil nil) ((base) nil nil nil nil nil nil)) (/coi/gacc/wrap.lisp::get-enabled-structure (nil nil (strip-cdrs) nil nil nil nil) (nil nil (cdr) nil nil nil nil) (nil nil nil nil (access) nil nil) ((enabled-structure :theory-array) nil nil nil (access) nil nil) ((rewrite-constant :current-enabled-structure) nil nil nil (access) nil nil) ((prove-spec-var pspv :rewrite-constant) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/coi/gacc/wrap.lisp::turn-on-expensive-rules (nil nil nil nil (if) nil nil) ((stable-under-simplificationp nil) nil (`) nil nil nil nil) (nil nil (:in-theory) nil nil nil nil) (nil nil nil (union-theories) nil nil nil) (nil nil (quote quote) nil nil nil nil) (nil nil (, (:rewrite ACL2::LOGHEAD-SUM-SPLIT-INTO-2-CASES)) nil nil nil nil) (nil nil (get-enabled-structure :rewrite) nil nil nil nil)) (/coi/gacc/wrap.lisp::sub1-sub1-induct (nil nil nil nil (if) nil nil) (nil nil (zp) (list recursive-call) nil nil nil) ((n m n) nil nil (+ +) nil nil nil) ((m n) (-1 -1) nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))