((/nonstd/nsa/complex-polar.lisp::radiuspart (nil nil (acl2-sqrt) nil nil nil nil) (nil nil nil (+) nil nil nil) (nil nil nil (* *) nil nil nil) (nil nil (realpart realpart imagpart imagpart) nil nil nil nil) ((x x x x) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/nonstd/nsa/complex-polar.lisp::anglepart (nil nil nil nil (if) nil nil) (nil (0) nil (equal let) nil nil nil) (((angle (acl2-acos (/ (realpart x) (radiuspart x))))) (0) (fix) nil (if) nil nil) ((x angle) nil nil (< -) nil nil nil) ((angle) (0) (imagpart) (*) nil nil nil) ((x acl2-pi) (2) nil nil nil nil nil) (nil nil nil nil nil nil nil)))