f tt x f isNat x s s x isNat s x isNat x isNat 0 tt f 2 tt 0 isNat 1 s 1 0 0 FULL enger-nonloop-isDNat.trs