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)