((/centaur/gl/g-unary-concrete.lisp::def-g-unary-concrete-fn (nil nil nil (let) nil nil nil) (((x (car (wgetprop fn (quote formals))))) nil (`) nil nil nil nil) (nil nil nil nil nil (progn) nil) (nil nil nil (def-g-fn) (def-gobjectp-thm verify-g-guards) (def-g-correct-thm) nil) ((:hints :hints eval-g-base :hints) nil (, , ` , ` , `) (let) nil nil nil) ((fn fn (goal :in-theory (e/d nil ((force) (:definition (, gfn)))) :induct ((, gfn) (, (quote (, x))) hyp clk) :expand (((, gfn) (, (quote (, x))) hyp clk))) fn (Goal :in-theory (Disable (, gfn))) fn) nil ((x (quote (, x))) `) ((Goal :in-theory (e/d ((:induction (, gfn)) general-concrete-obj) ((:definition (, gfn)))) :induct ((, gfn) (, (quote (, x))) hyp clk) :expand (((, gfn) (, (quote (, x))) hyp clk) (:with eval-g-base (eval-g-base (, (quote (, x))) env))))) nil nil nil) ((,) nil (fn quote) nil (if) nil nil)))