tff(human_type,type,human: $tType). tff(grade_type,type,grade: $tType). tff(john_type,type,john: human). tff(a_type,type,a: grade). tff(f_type,type,f: grade). tff(created_equal_type,type,created_equal: (human * human) > $o). tff(grade_of_type,type,grade_of: human > grade). tff(all_created_equal,axiom, ! [H1:human,H2:human] : created_equal(H1,H2) ). tff(john_got_an_f,axiom, grade_of(john) = f ). tff(someone_got_an_a,axiom, ? [H:human] : grade_of(H) = a ). tff(a_is_not_f,axiom, a != f ). tff(there_is_someone_else,conjecture, ? [H:human] : ( H != john & created_equal(H,john) ) ).