NUMBER_RULE : term -> thm
# NUMBER_RULE
`!a b a' b'. ~(gcd(a,b) = 0) /\ a = a' * gcd(a,b) /\ b = b' * gcd(a,b)
==> coprime(a',b')`;;
...
val it : thm =
|- !a b a' b'.
~(gcd (a,b) = 0) /\ a = a' * gcd (a,b) /\ b = b' * gcd (a,b)
==> coprime (a',b')