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