( 1 * 1 = 1 ^2 & 0 * 0 = 0 ^2 ) ;
hence for b1 being Nat st b1 is trivial holds
b1 is square by NAT_2:def 1; :: thesis: verum