:t \ (x: (Bit,Bit)) -> x.0
:t \ (x:a) (y:a) -> x