fromCoproductSchema
given fromCoproductSchema[T, R <: Tuple, RV <: Tuple, D, DN, SelN <: TypeName, ST, DV, STS](using val fr: Aux[SelN, R, Aux[T, ST, D, DN, DV, SelN, STS]]): ComponentRetriever[Aux[T, CoproductShape[T, R, RV, D, DN]], SubTypeSelector[SelN]]