Other bit oddities

What about these?

test=# select B'1' << 4;
?column?
----------
0
(1 row)

test=# select B'1'::bit varying << 4;
?column?
----------
0
(1 row)

test=# select '1'::bit varying << 4;
?column?
----------
0
(1 row)