c1Cat 0 ,1 is Cartesian by Th12;
hence ex b1 being non empty non void Category-like ProdCatStr st
( b1 is strict & b1 is Cartesian ) ; :: thesis: verum