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