NUM_FACT_CONV : term -> thm
|- FACT n = s
# NUM_FACT_CONV `FACT 0`;; val it : thm = |- FACT 0 = 1 # NUM_FACT_CONV `FACT 6`;; val it : thm = |- FACT 6 = 720 # NUM_FACT_CONV `FACT 30`;; val it : thm = |- FACT 30 = 265252859812191058636308480000000