8 lines
194 B
Text
8 lines
194 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
|
|
| 0 b := b
|
|
| (succ a) b := succ (tadd a b)
|