tff(d_human_type,type, d_human: $tType ).
tff(d_cat_type,type, d_cat: $tType ).
tff(d_jon_decl,type, d_jon: d_human ).
tff(d_garfield_decl,type, d_garfield: d_cat ).
tff(d_arlene_decl,type, d_arlene: d_cat ).
tff(d_nermal_decl,type, d_nermal: d_cat ).
... and add type promotion functions ...
tff(d2human_decl,type, d2human: d_human > human ).
tff(d2cat_decl,type, d2cat: d_cat > cat ).