data AddressTypeInEra addrtype era where
ByronAddressInAnyEra :: AddressTypeInEra ByronAddr era
ShelleyAddressInEra :: ShelleyBasedEra era
-> AddressTypeInEra ShelleyAddr era
deriving instance Show (AddressTypeInEra addrtype era)