9 lines
202 B
Text
9 lines
202 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)
|