tff(peano_type,type, peano: $tType).
tff(zero_decl,type, zero: peano ).
tff(s_decl,type, s: peano > peano ).
tff(peano2person_decl,type,peano2person: peano > person ).
tff(peano_less_decl,type,
peano_less: ( peano * peano ) > $o ).
tff(people,interpretation,
( ! [I: peano] : ( I = zero | ? [P: peano] : I = s(P) )
& ! [I1: peano,I2: peano,I3: peano] :
( peano_less(I1,s(I1))
& ( ( peano_less(I1,I2) & peano_less(I2,I3) )
=> peano_less(I1,I3) )
& ( peano_less(I1,I2)
=> I1 != I2 ) )
& ! [P: person] : ? [I: peano] : ( P = peano2person(I) )
& ! [I1: peano,I2: peano] :
( peano2person(I1) = peano2person(I2) => I1 = I2 )