(<=> (Natural ?X) (And (Integer ?X) (> ?X 0)))
(> ?X 0) (Integer ?X)
(<=> (Natural ?X) (And (Integer ?X) (> ?X 0))) (=> (Float-Radix $X $Y) (Natural $Y))