1 const 0 is unary ;
hence ex b1 being NAT * -defined homogeneous Function st
( not b1 is empty & b1 is unary & b1 is len-total & b1 is to-naturals ) ; :: thesis: verum