8 lines
204 B
Text
8 lines
204 B
Text
open nat
|
|
|
|
variable a : nat
|
|
|
|
-- The variable 'a' in the following definition is not the variable 'a' above
|
|
definition tadd : nat → nat → nat
|
|
| tadd zero b := b
|
|
| tadd (succ a) b := succ (tadd a b)
|