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