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