:: deftheorem Def28 defines incl FUNCTOR0:def 28 :
for A being AltCatStr
for B being SubCatStr of A
for b3 being strict FunctorStr over B,A holds
( b3 = incl B iff ( the ObjectMap of b3 = id [: the carrier of B, the carrier of B:] & the MorphMap of b3 = id the Arrows of B ) );