OpX2 ... OpXn вида case class OpXn(...) extends Op[Xn]
Нужно доказать что имея инстанс типа
(OpX1 => F[X1]) :: (OpX2 => F[X2]) :: ... :: OpXn => F[Xn] :: HNil
для любого F[_]: Functor я могу получить инстанс Op ~> F.
Я смог получить промежуточную функцию
f: Generic[Op[_]]#Repr => F[X1 :+: X2 :+: ... :+: Xn :+: CNil]
и тогда
new (Op ~> F) {
def apply[A](op: Op[A]): F[A] =
f(Generic[Op[_]].to(op)).map(Coproduct.unsafeGet).asInstanceOf[F[A]]
}
И оно работает, и промежуточная функция точно верна и asInstanceOf[F[A]] безопасен,
но интересно можно ли подругому?
Пока не складывается. По-видимости нет конструктивной индукции (forall x: Op[_]. exists i .x.type~ Op[Ci]), полагаю, в случае даже одного Op а это было бы эквивалентно аксиоме исключённого третьего, которой в явном виде нет в теории типов
Обсуждают сегодня