Example. Factorial as a primrec [isa-001R]

primrec factorial :: "nat ⇒ nat" where "factorial 0 = Suc 0" | "factorial (Suc n) = Suc n * factorial n" print_theorems