let T be reflexive transitive antisymmetric with_suprema Noetherian adj-structured TA-structure ; :: thesis: for t being type of T
for a being adjective of T st a is_applicable_to t holds
a ast t in types a
let t be type of T; :: thesis: for a being adjective of T st a is_applicable_to t holds
a ast t in types a
let a be adjective of T; :: thesis: ( a is_applicable_to t implies a ast t in types a )
assume a is_applicable_to t ; :: thesis: a ast t in types a
then (types a) /\ (downarrow t) is Ideal of T by Th19;
then sup ((types a) /\ (downarrow t)) in (types a) /\ (downarrow t) by Th1;
hence a ast t in types a by XBOOLE_0:def 4; :: thesis: verum