Lambdas.golden

Singletons/Lambdas.hs:(0,0)-(0,0): Splicing declarations
    singletons
      [d| foo0 :: a -> b -> a
          foo0 = (\ x y -> x)
          foo1 :: a -> b -> a
          foo1 x = (\ _ -> x)
          foo2 :: a -> b -> a
          foo2 x y = (\ _ -> x) y
          foo3 :: a -> a
          foo3 x = (\ y -> y) x
          foo4 :: a -> b -> c -> a
          foo4 x y z = (\ _ _ -> x) y z
          foo5 :: a -> b -> b
          foo5 x y = (\ x -> x) y
          foo6 :: a -> b -> a
          foo6 a b = (\ x -> \ _ -> x) a b
          foo7 :: a -> b -> b
          foo7 x y = (\ (_, b) -> b) (x, y)
          foo8 :: Foo a b -> a
          foo8 x = (\ (Foo a _) -> a) x
          
          data Foo a b = Foo a b |]
  ======>
    foo0 :: a -> b -> a
    foo0 = \ x y -> x
    foo1 :: a -> b -> a
    foo1 x = \ _ -> x
    foo2 :: a -> b -> a
    foo2 x y = (\ _ -> x) y
    foo3 :: a -> a
    foo3 x = (\ y -> y) x
    foo4 :: a -> b -> c -> a
    foo4 x y z = (\ _ _ -> x) y z
    foo5 :: a -> b -> b
    foo5 x y = (\ x -> x) y
    foo6 :: a -> b -> a
    foo6 a b = (\ x -> \ _ -> x) a b
    foo7 :: a -> b -> b
    foo7 x y = (\ (_, b) -> b) (x, y)
    data Foo a b = Foo a b
    foo8 :: Foo a b -> a
    foo8 x = (\ (Foo a _) -> a) x
    type FooSym0 :: forall a b. (~>) a ((~>) b (Foo a b))
    data FooSym0 :: (~>) a ((~>) b (Foo a b))
      where
        FooSym0KindInference :: SameKind (Apply FooSym0 arg) (FooSym1 arg) =>
                                FooSym0 a0123456789876543210
    type instance Apply @a @((~>) b (Foo a b)) FooSym0 a0123456789876543210 = FooSym1 a0123456789876543210
    instance SuppressUnusedWarnings FooSym0 where
      suppressUnusedWarnings = snd ((,) FooSym0KindInference ())
    type FooSym1 :: forall a b. a -> (~>) b (Foo a b)
    data FooSym1 (a0123456789876543210 :: a) :: (~>) b (Foo a b)
      where
        FooSym1KindInference :: SameKind (Apply (FooSym1 a0123456789876543210) arg) (FooSym2 a0123456789876543210 arg) =>
                                FooSym1 a0123456789876543210 a0123456789876543210
    type instance Apply @b @(Foo a b) (FooSym1 a0123456789876543210) a0123456789876543210 = Foo a0123456789876543210 a0123456789876543210
    instance SuppressUnusedWarnings (FooSym1 a0123456789876543210) where
      suppressUnusedWarnings = snd ((,) FooSym1KindInference ())
    type FooSym2 :: forall a b. a -> b -> Foo a b
    type family FooSym2 @a @b (a0123456789876543210 :: a) (a0123456789876543210 :: b) :: Foo a b where
      FooSym2 a0123456789876543210 a0123456789876543210 = Foo a0123456789876543210 a0123456789876543210
    type family LamCases_0123456789876543210 (x0123456789876543210 :: Foo a0123456789876543210 b0123456789876543210) a_0123456789876543210 where
      LamCases_0123456789876543210 x (Foo a _) = a
    data LamCases_0123456789876543210Sym0 (x0123456789876543210 :: Foo a0123456789876543210 b0123456789876543210) a_01234567898765432100123456789876543210
      where
        LamCases_0123456789876543210Sym0KindInference :: SameKind (Apply (LamCases_0123456789876543210Sym0 x0123456789876543210) arg) (LamCases_0123456789876543210Sym1 x0123456789876543210 arg) =>
                                                         LamCases_0123456789876543210Sym0 x0123456789876543210 a_01234567898765432100123456789876543210
    type instance Apply @_ @_ (LamCases_0123456789876543210Sym0 x0123456789876543210) a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 a_01234567898765432100123456789876543210
    instance SuppressUnusedWarnings (LamCases_0123456789876543210Sym0 x0123456789876543210) where
      suppressUnusedWarnings
        = snd ((,) LamCases_0123456789876543210Sym0KindInference ())
    type family LamCases_0123456789876543210Sym1 (x0123456789876543210 :: Foo a0123456789876543210 b0123456789876543210) a_01234567898765432100123456789876543210 where
      LamCases_0123456789876543210Sym1 x0123456789876543210 a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 a_01234567898765432100123456789876543210
    type family LamCases_0123456789876543210 (x0123456789876543210 :: a0123456789876543210) (y0123456789876543210 :: b0123456789876543210) a_0123456789876543210 where
      LamCases_0123456789876543210 x y '(_, b) = b
    data LamCases_0123456789876543210Sym0 (x0123456789876543210 :: a0123456789876543210) (y0123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210
      where
        LamCases_0123456789876543210Sym0KindInference :: SameKind (Apply (LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210) arg) (LamCases_0123456789876543210Sym1 x0123456789876543210 y0123456789876543210 arg) =>
                                                         LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210 a_01234567898765432100123456789876543210
    type instance Apply @_ @_ (LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210) a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 y0123456789876543210 a_01234567898765432100123456789876543210
    instance SuppressUnusedWarnings (LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210) where
      suppressUnusedWarnings
        = snd ((,) LamCases_0123456789876543210Sym0KindInference ())
    type family LamCases_0123456789876543210Sym1 (x0123456789876543210 :: a0123456789876543210) (y0123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210 where
      LamCases_0123456789876543210Sym1 x0123456789876543210 y0123456789876543210 a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 y0123456789876543210 a_01234567898765432100123456789876543210
    type family LamCases_0123456789876543210 x0123456789876543210 (a0123456789876543210 :: a0123456789876543210) (b0123456789876543210 :: b0123456789876543210) a_0123456789876543210 where
      LamCases_0123456789876543210 x a b _ = x
    data LamCases_0123456789876543210Sym0 x0123456789876543210 (a0123456789876543210 :: a0123456789876543210) (b0123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210
      where
        LamCases_0123456789876543210Sym0KindInference :: SameKind (Apply (LamCases_0123456789876543210Sym0 x0123456789876543210 a0123456789876543210 b0123456789876543210) arg) (LamCases_0123456789876543210Sym1 x0123456789876543210 a0123456789876543210 b0123456789876543210 arg) =>
                                                         LamCases_0123456789876543210Sym0 x0123456789876543210 a0123456789876543210 b0123456789876543210 a_01234567898765432100123456789876543210
    type instance Apply @_ @_ (LamCases_0123456789876543210Sym0 x0123456789876543210 a0123456789876543210 b0123456789876543210) a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 a0123456789876543210 b0123456789876543210 a_01234567898765432100123456789876543210
    instance SuppressUnusedWarnings (LamCases_0123456789876543210Sym0 x0123456789876543210 a0123456789876543210 b0123456789876543210) where
      suppressUnusedWarnings
        = snd ((,) LamCases_0123456789876543210Sym0KindInference ())
    type family LamCases_0123456789876543210Sym1 x0123456789876543210 (a0123456789876543210 :: a0123456789876543210) (b0123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210 where
      LamCases_0123456789876543210Sym1 x0123456789876543210 a0123456789876543210 b0123456789876543210 a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 a0123456789876543210 b0123456789876543210 a_01234567898765432100123456789876543210
    type family LamCases_0123456789876543210 (a0123456789876543210 :: a0123456789876543210) (b0123456789876543210 :: b0123456789876543210) a_0123456789876543210 where
      LamCases_0123456789876543210 a b x = LamCases_0123456789876543210Sym0 x a b
    data LamCases_0123456789876543210Sym0 (a0123456789876543210 :: a0123456789876543210) (b0123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210
      where
        LamCases_0123456789876543210Sym0KindInference :: SameKind (Apply (LamCases_0123456789876543210Sym0 a0123456789876543210 b0123456789876543210) arg) (LamCases_0123456789876543210Sym1 a0123456789876543210 b0123456789876543210 arg) =>
                                                         LamCases_0123456789876543210Sym0 a0123456789876543210 b0123456789876543210 a_01234567898765432100123456789876543210
    type instance Apply @_ @_ (LamCases_0123456789876543210Sym0 a0123456789876543210 b0123456789876543210) a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 a0123456789876543210 b0123456789876543210 a_01234567898765432100123456789876543210
    instance SuppressUnusedWarnings (LamCases_0123456789876543210Sym0 a0123456789876543210 b0123456789876543210) where
      suppressUnusedWarnings
        = snd ((,) LamCases_0123456789876543210Sym0KindInference ())
    type family LamCases_0123456789876543210Sym1 (a0123456789876543210 :: a0123456789876543210) (b0123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210 where
      LamCases_0123456789876543210Sym1 a0123456789876543210 b0123456789876543210 a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 a0123456789876543210 b0123456789876543210 a_01234567898765432100123456789876543210
    type family LamCases_0123456789876543210 (x0123456789876543210 :: a0123456789876543210) (y0123456789876543210 :: b0123456789876543210) a_0123456789876543210 where
      LamCases_0123456789876543210 x y x = x
    data LamCases_0123456789876543210Sym0 (x0123456789876543210 :: a0123456789876543210) (y0123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210
      where
        LamCases_0123456789876543210Sym0KindInference :: SameKind (Apply (LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210) arg) (LamCases_0123456789876543210Sym1 x0123456789876543210 y0123456789876543210 arg) =>
                                                         LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210 a_01234567898765432100123456789876543210
    type instance Apply @_ @_ (LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210) a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 y0123456789876543210 a_01234567898765432100123456789876543210
    instance SuppressUnusedWarnings (LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210) where
      suppressUnusedWarnings
        = snd ((,) LamCases_0123456789876543210Sym0KindInference ())
    type family LamCases_0123456789876543210Sym1 (x0123456789876543210 :: a0123456789876543210) (y0123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210 where
      LamCases_0123456789876543210Sym1 x0123456789876543210 y0123456789876543210 a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 y0123456789876543210 a_01234567898765432100123456789876543210
    type family LamCases_0123456789876543210 (x0123456789876543210 :: a0123456789876543210) (y0123456789876543210 :: b0123456789876543210) (z0123456789876543210 :: c0123456789876543210) a_0123456789876543210 a_0123456789876543210 where
      LamCases_0123456789876543210 x y z _ _ = x
    data LamCases_0123456789876543210Sym0 (x0123456789876543210 :: a0123456789876543210) (y0123456789876543210 :: b0123456789876543210) (z0123456789876543210 :: c0123456789876543210) a_01234567898765432100123456789876543210
      where
        LamCases_0123456789876543210Sym0KindInference :: SameKind (Apply (LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210 z0123456789876543210) arg) (LamCases_0123456789876543210Sym1 x0123456789876543210 y0123456789876543210 z0123456789876543210 arg) =>
                                                         LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210 z0123456789876543210 a_01234567898765432100123456789876543210
    type instance Apply @_ @_ (LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210 z0123456789876543210) a_01234567898765432100123456789876543210 = LamCases_0123456789876543210Sym1 x0123456789876543210 y0123456789876543210 z0123456789876543210 a_01234567898765432100123456789876543210
    instance SuppressUnusedWarnings (LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210 z0123456789876543210) where
      suppressUnusedWarnings
        = snd ((,) LamCases_0123456789876543210Sym0KindInference ())
    data LamCases_0123456789876543210Sym1 (x0123456789876543210 :: a0123456789876543210) (y0123456789876543210 :: b0123456789876543210) (z0123456789876543210 :: c0123456789876543210) a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210
      where
        LamCases_0123456789876543210Sym1KindInference :: SameKind (Apply (LamCases_0123456789876543210Sym1 x0123456789876543210 y0123456789876543210 z0123456789876543210 a_01234567898765432100123456789876543210) arg) (LamCases_0123456789876543210Sym2 x0123456789876543210 y0123456789876543210 z0123456789876543210 a_01234567898765432100123456789876543210 arg) =>
                                                         LamCases_0123456789876543210Sym1 x0123456789876543210 y0123456789876543210 z0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210
    type instance Apply @_ @_ (LamCases_0123456789876543210Sym1 x0123456789876543210 y0123456789876543210 z0123456789876543210 a_01234567898765432100123456789876543210) a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 y0123456789876543210 z0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210
    instance SuppressUnusedWarnings (LamCases_0123456789876543210Sym1 x0123456789876543210 y0123456789876543210 z0123456789876543210 a_01234567898765432100123456789876543210) where
      suppressUnusedWarnings
        = snd ((,) LamCases_0123456789876543210Sym1KindInference ())
    type family LamCases_0123456789876543210Sym2 (x0123456789876543210 :: a0123456789876543210) (y0123456789876543210 :: b0123456789876543210) (z0123456789876543210 :: c0123456789876543210) a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 where
      LamCases_0123456789876543210Sym2 x0123456789876543210 y0123456789876543210 z0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 y0123456789876543210 z0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210
    type family LamCases_0123456789876543210 (x0123456789876543210 :: a0123456789876543210) a_0123456789876543210 where
      LamCases_0123456789876543210 x y = y
    data LamCases_0123456789876543210Sym0 (x0123456789876543210 :: a0123456789876543210) a_01234567898765432100123456789876543210
      where
        LamCases_0123456789876543210Sym0KindInference :: SameKind (Apply (LamCases_0123456789876543210Sym0 x0123456789876543210) arg) (LamCases_0123456789876543210Sym1 x0123456789876543210 arg) =>
                                                         LamCases_0123456789876543210Sym0 x0123456789876543210 a_01234567898765432100123456789876543210
    type instance Apply @_ @_ (LamCases_0123456789876543210Sym0 x0123456789876543210) a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 a_01234567898765432100123456789876543210
    instance SuppressUnusedWarnings (LamCases_0123456789876543210Sym0 x0123456789876543210) where
      suppressUnusedWarnings
        = snd ((,) LamCases_0123456789876543210Sym0KindInference ())
    type family LamCases_0123456789876543210Sym1 (x0123456789876543210 :: a0123456789876543210) a_01234567898765432100123456789876543210 where
      LamCases_0123456789876543210Sym1 x0123456789876543210 a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 a_01234567898765432100123456789876543210
    type family LamCases_0123456789876543210 (x0123456789876543210 :: a0123456789876543210) (y0123456789876543210 :: b0123456789876543210) a_0123456789876543210 where
      LamCases_0123456789876543210 x y _ = x
    data LamCases_0123456789876543210Sym0 (x0123456789876543210 :: a0123456789876543210) (y0123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210
      where
        LamCases_0123456789876543210Sym0KindInference :: SameKind (Apply (LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210) arg) (LamCases_0123456789876543210Sym1 x0123456789876543210 y0123456789876543210 arg) =>
                                                         LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210 a_01234567898765432100123456789876543210
    type instance Apply @_ @_ (LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210) a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 y0123456789876543210 a_01234567898765432100123456789876543210
    instance SuppressUnusedWarnings (LamCases_0123456789876543210Sym0 x0123456789876543210 y0123456789876543210) where
      suppressUnusedWarnings
        = snd ((,) LamCases_0123456789876543210Sym0KindInference ())
    type family LamCases_0123456789876543210Sym1 (x0123456789876543210 :: a0123456789876543210) (y0123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210 where
      LamCases_0123456789876543210Sym1 x0123456789876543210 y0123456789876543210 a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 y0123456789876543210 a_01234567898765432100123456789876543210
    type family LamCases_0123456789876543210 (x0123456789876543210 :: a0123456789876543210) (a_01234567898765432100123456789876543210 :: b0123456789876543210) a_0123456789876543210 where
      LamCases_0123456789876543210 x a_0123456789876543210 _ = x
    data LamCases_0123456789876543210Sym0 (x0123456789876543210 :: a0123456789876543210) (a_01234567898765432100123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210
      where
        LamCases_0123456789876543210Sym0KindInference :: SameKind (Apply (LamCases_0123456789876543210Sym0 x0123456789876543210 a_01234567898765432100123456789876543210) arg) (LamCases_0123456789876543210Sym1 x0123456789876543210 a_01234567898765432100123456789876543210 arg) =>
                                                         LamCases_0123456789876543210Sym0 x0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210
    type instance Apply @_ @_ (LamCases_0123456789876543210Sym0 x0123456789876543210 a_01234567898765432100123456789876543210) a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210
    instance SuppressUnusedWarnings (LamCases_0123456789876543210Sym0 x0123456789876543210 a_01234567898765432100123456789876543210) where
      suppressUnusedWarnings
        = snd ((,) LamCases_0123456789876543210Sym0KindInference ())
    type family LamCases_0123456789876543210Sym1 (x0123456789876543210 :: a0123456789876543210) (a_01234567898765432100123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210 where
      LamCases_0123456789876543210Sym1 x0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 x0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210
    type family LamCases_0123456789876543210 (a_01234567898765432100123456789876543210 :: a0123456789876543210) (a_01234567898765432100123456789876543210 :: b0123456789876543210) a_0123456789876543210 a_0123456789876543210 where
      LamCases_0123456789876543210 a_0123456789876543210 a_0123456789876543210 x y = x
    data LamCases_0123456789876543210Sym0 (a_01234567898765432100123456789876543210 :: a0123456789876543210) (a_01234567898765432100123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210
      where
        LamCases_0123456789876543210Sym0KindInference :: SameKind (Apply (LamCases_0123456789876543210Sym0 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) arg) (LamCases_0123456789876543210Sym1 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 arg) =>
                                                         LamCases_0123456789876543210Sym0 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210
    type instance Apply @_ @_ (LamCases_0123456789876543210Sym0 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) a_01234567898765432100123456789876543210 = LamCases_0123456789876543210Sym1 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210
    instance SuppressUnusedWarnings (LamCases_0123456789876543210Sym0 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) where
      suppressUnusedWarnings
        = snd ((,) LamCases_0123456789876543210Sym0KindInference ())
    data LamCases_0123456789876543210Sym1 (a_01234567898765432100123456789876543210 :: a0123456789876543210) (a_01234567898765432100123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210
      where
        LamCases_0123456789876543210Sym1KindInference :: SameKind (Apply (LamCases_0123456789876543210Sym1 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) arg) (LamCases_0123456789876543210Sym2 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 arg) =>
                                                         LamCases_0123456789876543210Sym1 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210
    type instance Apply @_ @_ (LamCases_0123456789876543210Sym1 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210
    instance SuppressUnusedWarnings (LamCases_0123456789876543210Sym1 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210) where
      suppressUnusedWarnings
        = snd ((,) LamCases_0123456789876543210Sym1KindInference ())
    type family LamCases_0123456789876543210Sym2 (a_01234567898765432100123456789876543210 :: a0123456789876543210) (a_01234567898765432100123456789876543210 :: b0123456789876543210) a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 where
      LamCases_0123456789876543210Sym2 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 = LamCases_0123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210 a_01234567898765432100123456789876543210
    type Foo8Sym0 :: (~>) (Foo a b) a
    data Foo8Sym0 :: (~>) (Foo a b) a
      where
        Foo8Sym0KindInference :: SameKind (Apply Foo8Sym0 arg) (Foo8Sym1 arg) =>
                                 Foo8Sym0 a0123456789876543210
    type instance Apply @(Foo a b) @a Foo8Sym0 a0123456789876543210 = Foo8 a0123456789876543210
    instance SuppressUnusedWarnings Foo8Sym0 where
      suppressUnusedWarnings = snd ((,) Foo8Sym0KindInference ())
    type Foo8Sym1 :: Foo a b -> a
    type family Foo8Sym1 @a @b (a0123456789876543210 :: Foo a b) :: a where
      Foo8Sym1 a0123456789876543210 = Foo8 a0123456789876543210
    type Foo7Sym0 :: (~>) a ((~>) b b)
    data Foo7Sym0 :: (~>) a ((~>) b b)
      where
        Foo7Sym0KindInference :: SameKind (Apply Foo7Sym0 arg) (Foo7Sym1 arg) =>
                                 Foo7Sym0 a0123456789876543210
    type instance Apply @a @((~>) b b) Foo7Sym0 a0123456789876543210 = Foo7Sym1 a0123456789876543210
    instance SuppressUnusedWarnings Foo7Sym0 where
      suppressUnusedWarnings = snd ((,) Foo7Sym0KindInference ())
    type Foo7Sym1 :: a -> (~>) b b
    data Foo7Sym1 (a0123456789876543210 :: a) :: (~>) b b
      where
        Foo7Sym1KindInference :: SameKind (Apply (Foo7Sym1 a0123456789876543210) arg) (Foo7Sym2 a0123456789876543210 arg) =>
                                 Foo7Sym1 a0123456789876543210 a0123456789876543210
    type instance Apply @b @b (Foo7Sym1 a0123456789876543210) a0123456789876543210 = Foo7 a0123456789876543210 a0123456789876543210
    instance SuppressUnusedWarnings (Foo7Sym1 a0123456789876543210) where
      suppressUnusedWarnings = snd ((,) Foo7Sym1KindInference ())
    type Foo7Sym2 :: a -> b -> b
    type family Foo7Sym2 @a @b (a0123456789876543210 :: a) (a0123456789876543210 :: b) :: b where
      Foo7Sym2 a0123456789876543210 a0123456789876543210 = Foo7 a0123456789876543210 a0123456789876543210
    type Foo6Sym0 :: (~>) a ((~>) b a)
    data Foo6Sym0 :: (~>) a ((~>) b a)
      where
        Foo6Sym0KindInference :: SameKind (Apply Foo6Sym0 arg) (Foo6Sym1 arg) =>
                                 Foo6Sym0 a0123456789876543210
    type instance Apply @a @((~>) b a) Foo6Sym0 a0123456789876543210 = Foo6Sym1 a0123456789876543210
    instance SuppressUnusedWarnings Foo6Sym0 where
      suppressUnusedWarnings = snd ((,) Foo6Sym0KindInference ())
    type Foo6Sym1 :: a -> (~>) b a
    data Foo6Sym1 (a0123456789876543210 :: a) :: (~>) b a
      where
        Foo6Sym1KindInference :: SameKind (Apply (Foo6Sym1 a0123456789876543210) arg) (Foo6Sym2 a0123456789876543210 arg) =>
                                 Foo6Sym1 a0123456789876543210 a0123456789876543210
    type instance Apply @b @a (Foo6Sym1 a0123456789876543210) a0123456789876543210 = Foo6 a0123456789876543210 a0123456789876543210
    instance SuppressUnusedWarnings (Foo6Sym1 a0123456789876543210) where
      suppressUnusedWarnings = snd ((,) Foo6Sym1KindInference ())
    type Foo6Sym2 :: a -> b -> a
    type family Foo6Sym2 @a @b (a0123456789876543210 :: a) (a0123456789876543210 :: b) :: a where
      Foo6Sym2 a0123456789876543210 a0123456789876543210 = Foo6 a0123456789876543210 a0123456789876543210
    type Foo5Sym0 :: (~>) a ((~>) b b)
    data Foo5Sym0 :: (~>) a ((~>) b b)
      where
        Foo5Sym0KindInference :: SameKind (Apply Foo5Sym0 arg) (Foo5Sym1 arg) =>
                                 Foo5Sym0 a0123456789876543210
    type instance Apply @a @((~>) b b) Foo5Sym0 a0123456789876543210 = Foo5Sym1 a0123456789876543210
    instance SuppressUnusedWarnings Foo5Sym0 where
      suppressUnusedWarnings = snd ((,) Foo5Sym0KindInference ())
    type Foo5Sym1 :: a -> (~>) b b
    data Foo5Sym1 (a0123456789876543210 :: a) :: (~>) b b
      where
        Foo5Sym1KindInference :: SameKind (Apply (Foo5Sym1 a0123456789876543210) arg) (Foo5Sym2 a0123456789876543210 arg) =>
                                 Foo5Sym1 a0123456789876543210 a0123456789876543210
    type instance Apply @b @b (Foo5Sym1 a0123456789876543210) a0123456789876543210 = Foo5 a0123456789876543210 a0123456789876543210
    instance SuppressUnusedWarnings (Foo5Sym1 a0123456789876543210) where
      suppressUnusedWarnings = snd ((,) Foo5Sym1KindInference ())
    type Foo5Sym2 :: a -> b -> b
    type family Foo5Sym2 @a @b (a0123456789876543210 :: a) (a0123456789876543210 :: b) :: b where
      Foo5Sym2 a0123456789876543210 a0123456789876543210 = Foo5 a0123456789876543210 a0123456789876543210
    type Foo4Sym0 :: (~>) a ((~>) b ((~>) c a))
    data Foo4Sym0 :: (~>) a ((~>) b ((~>) c a))
      where
        Foo4Sym0KindInference :: SameKind (Apply Foo4Sym0 arg) (Foo4Sym1 arg) =>
                                 Foo4Sym0 a0123456789876543210
    type instance Apply @a @((~>) b ((~>) c a)) Foo4Sym0 a0123456789876543210 = Foo4Sym1 a0123456789876543210
    instance SuppressUnusedWarnings Foo4Sym0 where
      suppressUnusedWarnings = snd ((,) Foo4Sym0KindInference ())
    type Foo4Sym1 :: a -> (~>) b ((~>) c a)
    data Foo4Sym1 (a0123456789876543210 :: a) :: (~>) b ((~>) c a)
      where
        Foo4Sym1KindInference :: SameKind (Apply (Foo4Sym1 a0123456789876543210) arg) (Foo4Sym2 a0123456789876543210 arg) =>
                                 Foo4Sym1 a0123456789876543210 a0123456789876543210
    type instance Apply @b @((~>) c a) (Foo4Sym1 a0123456789876543210) a0123456789876543210 = Foo4Sym2 a0123456789876543210 a0123456789876543210
    instance SuppressUnusedWarnings (Foo4Sym1 a0123456789876543210) where
      suppressUnusedWarnings = snd ((,) Foo4Sym1KindInference ())
    type Foo4Sym2 :: a -> b -> (~>) c a
    data Foo4Sym2 (a0123456789876543210 :: a) (a0123456789876543210 :: b) :: (~>) c a
      where
        Foo4Sym2KindInference :: SameKind (Apply (Foo4Sym2 a0123456789876543210 a0123456789876543210) arg) (Foo4Sym3 a0123456789876543210 a0123456789876543210 arg) =>
                                 Foo4Sym2 a0123456789876543210 a0123456789876543210 a0123456789876543210
    type instance Apply @c @a (Foo4Sym2 a0123456789876543210 a0123456789876543210) a0123456789876543210 = Foo4 a0123456789876543210 a0123456789876543210 a0123456789876543210
    instance SuppressUnusedWarnings (Foo4Sym2 a0123456789876543210 a0123456789876543210) where
      suppressUnusedWarnings = snd ((,) Foo4Sym2KindInference ())
    type Foo4Sym3 :: a -> b -> c -> a
    type family Foo4Sym3 @a @b @c (a0123456789876543210 :: a) (a0123456789876543210 :: b) (a0123456789876543210 :: c) :: a where
      Foo4Sym3 a0123456789876543210 a0123456789876543210 a0123456789876543210 = Foo4 a0123456789876543210 a0123456789876543210 a0123456789876543210
    type Foo3Sym0 :: (~>) a a
    data Foo3Sym0 :: (~>) a a
      where
        Foo3Sym0KindInference :: SameKind (Apply Foo3Sym0 arg) (Foo3Sym1 arg) =>
                                 Foo3Sym0 a0123456789876543210
    type instance Apply @a @a Foo3Sym0 a0123456789876543210 = Foo3 a0123456789876543210
    instance SuppressUnusedWarnings Foo3Sym0 where
      suppressUnusedWarnings = snd ((,) Foo3Sym0KindInference ())
    type Foo3Sym1 :: a -> a
    type family Foo3Sym1 @a (a0123456789876543210 :: a) :: a where
      Foo3Sym1 a0123456789876543210 = Foo3 a0123456789876543210
    type Foo2Sym0 :: (~>) a ((~>) b a)
    data Foo2Sym0 :: (~>) a ((~>) b a)
      where
        Foo2Sym0KindInference :: SameKind (Apply Foo2Sym0 arg) (Foo2Sym1 arg) =>
                                 Foo2Sym0 a0123456789876543210
    type instance Apply @a @((~>) b a) Foo2Sym0 a0123456789876543210 = Foo2Sym1 a0123456789876543210
    instance SuppressUnusedWarnings Foo2Sym0 where
      suppressUnusedWarnings = snd ((,) Foo2Sym0KindInference ())
    type Foo2Sym1 :: a -> (~>) b a
    data Foo2Sym1 (a0123456789876543210 :: a) :: (~>) b a
      where
        Foo2Sym1KindInference :: SameKind (Apply (Foo2Sym1 a0123456789876543210) arg) (Foo2Sym2 a0123456789876543210 arg) =>
                                 Foo2Sym1 a0123456789876543210 a0123456789876543210
    type instance Apply @b @a (Foo2Sym1 a0123456789876543210) a0123456789876543210 = Foo2 a0123456789876543210 a0123456789876543210
    instance SuppressUnusedWarnings (Foo2Sym1 a0123456789876543210) where
      suppressUnusedWarnings = snd ((,) Foo2Sym1KindInference ())
    type Foo2Sym2 :: a -> b -> a
    type family Foo2Sym2 @a @b (a0123456789876543210 :: a) (a0123456789876543210 :: b) :: a where
      Foo2Sym2 a0123456789876543210 a0123456789876543210 = Foo2 a0123456789876543210 a0123456789876543210
    type Foo1Sym0 :: (~>) a ((~>) b a)
    data Foo1Sym0 :: (~>) a ((~>) b a)
      where
        Foo1Sym0KindInference :: SameKind (Apply Foo1Sym0 arg) (Foo1Sym1 arg) =>
                                 Foo1Sym0 a0123456789876543210
    type instance Apply @a @((~>) b a) Foo1Sym0 a0123456789876543210 = Foo1Sym1 a0123456789876543210
    instance SuppressUnusedWarnings Foo1Sym0 where
      suppressUnusedWarnings = snd ((,) Foo1Sym0KindInference ())
    type Foo1Sym1 :: a -> (~>) b a
    data Foo1Sym1 (a0123456789876543210 :: a) :: (~>) b a
      where
        Foo1Sym1KindInference :: SameKind (Apply (Foo1Sym1 a0123456789876543210) arg) (Foo1Sym2 a0123456789876543210 arg) =>
                                 Foo1Sym1 a0123456789876543210 a0123456789876543210
    type instance Apply @b @a (Foo1Sym1 a0123456789876543210) a0123456789876543210 = Foo1 a0123456789876543210 a0123456789876543210
    instance SuppressUnusedWarnings (Foo1Sym1 a0123456789876543210) where
      suppressUnusedWarnings = snd ((,) Foo1Sym1KindInference ())
    type Foo1Sym2 :: a -> b -> a
    type family Foo1Sym2 @a @b (a0123456789876543210 :: a) (a0123456789876543210 :: b) :: a where
      Foo1Sym2 a0123456789876543210 a0123456789876543210 = Foo1 a0123456789876543210 a0123456789876543210
    type Foo0Sym0 :: (~>) a ((~>) b a)
    data Foo0Sym0 :: (~>) a ((~>) b a)
      where
        Foo0Sym0KindInference :: SameKind (Apply Foo0Sym0 arg) (Foo0Sym1 arg) =>
                                 Foo0Sym0 a0123456789876543210
    type instance Apply @a @((~>) b a) Foo0Sym0 a0123456789876543210 = Foo0Sym1 a0123456789876543210
    instance SuppressUnusedWarnings Foo0Sym0 where
      suppressUnusedWarnings = snd ((,) Foo0Sym0KindInference ())
    type Foo0Sym1 :: a -> (~>) b a
    data Foo0Sym1 (a0123456789876543210 :: a) :: (~>) b a
      where
        Foo0Sym1KindInference :: SameKind (Apply (Foo0Sym1 a0123456789876543210) arg) (Foo0Sym2 a0123456789876543210 arg) =>
                                 Foo0Sym1 a0123456789876543210 a0123456789876543210
    type instance Apply @b @a (Foo0Sym1 a0123456789876543210) a0123456789876543210 = Foo0 a0123456789876543210 a0123456789876543210
    instance SuppressUnusedWarnings (Foo0Sym1 a0123456789876543210) where
      suppressUnusedWarnings = snd ((,) Foo0Sym1KindInference ())
    type Foo0Sym2 :: a -> b -> a
    type family Foo0Sym2 @a @b (a0123456789876543210 :: a) (a0123456789876543210 :: b) :: a where
      Foo0Sym2 a0123456789876543210 a0123456789876543210 = Foo0 a0123456789876543210 a0123456789876543210
    type Foo8 :: Foo a b -> a
    type family Foo8 @a @b (a :: Foo a b) :: a where
      Foo8 x = Apply (LamCases_0123456789876543210Sym0 x) x
    type Foo7 :: a -> b -> b
    type family Foo7 @a @b (a :: a) (a :: b) :: b where
      Foo7 x y = Apply (LamCases_0123456789876543210Sym0 x y) (Apply (Apply Tuple2Sym0 x) y)
    type Foo6 :: a -> b -> a
    type family Foo6 @a @b (a :: a) (a :: b) :: a where
      Foo6 a b = Apply (Apply (LamCases_0123456789876543210Sym0 a b) a) b
    type Foo5 :: a -> b -> b
    type family Foo5 @a @b (a :: a) (a :: b) :: b where
      Foo5 x y = Apply (LamCases_0123456789876543210Sym0 x y) y
    type Foo4 :: a -> b -> c -> a
    type family Foo4 @a @b @c (a :: a) (a :: b) (a :: c) :: a where
      Foo4 x y z = Apply (Apply (LamCases_0123456789876543210Sym0 x y z) y) z
    type Foo3 :: a -> a
    type family Foo3 @a (a :: a) :: a where
      Foo3 x = Apply (LamCases_0123456789876543210Sym0 x) x
    type Foo2 :: a -> b -> a
    type family Foo2 @a @b (a :: a) (a :: b) :: a where
      Foo2 x y = Apply (LamCases_0123456789876543210Sym0 x y) y
    type Foo1 :: a -> b -> a
    type family Foo1 @a @b (a :: a) (a :: b) :: a where
      Foo1 x a_0123456789876543210 = Apply (LamCases_0123456789876543210Sym0 x a_0123456789876543210) a_0123456789876543210
    type Foo0 :: a -> b -> a
    type family Foo0 @a @b (a :: a) (a :: b) :: a where
      Foo0 a_0123456789876543210 a_0123456789876543210 = Apply (Apply (LamCases_0123456789876543210Sym0 a_0123456789876543210 a_0123456789876543210) a_0123456789876543210) a_0123456789876543210
    sFoo8 ::
      (forall (t :: Foo a b). Sing t -> Sing (Foo8 t :: a) :: Type)
    sFoo7 ::
      (forall (t :: a) (t :: b).
       Sing t -> Sing t -> Sing (Foo7 t t :: b) :: Type)
    sFoo6 ::
      (forall (t :: a) (t :: b).
       Sing t -> Sing t -> Sing (Foo6 t t :: a) :: Type)
    sFoo5 ::
      (forall (t :: a) (t :: b).
       Sing t -> Sing t -> Sing (Foo5 t t :: b) :: Type)
    sFoo4 ::
      (forall (t :: a) (t :: b) (t :: c).
       Sing t -> Sing t -> Sing t -> Sing (Foo4 t t t :: a) :: Type)
    sFoo3 :: (forall (t :: a). Sing t -> Sing (Foo3 t :: a) :: Type)
    sFoo2 ::
      (forall (t :: a) (t :: b).
       Sing t -> Sing t -> Sing (Foo2 t t :: a) :: Type)
    sFoo1 ::
      (forall (t :: a) (t :: b).
       Sing t -> Sing t -> Sing (Foo1 t t :: a) :: Type)
    sFoo0 ::
      (forall (t :: a) (t :: b).
       Sing t -> Sing t -> Sing (Foo0 t t :: a) :: Type)
    sFoo8 (sX :: Sing x)
      = applySing
          (singFun1
             @(LamCases_0123456789876543210Sym0 x)
             (\cases (SFoo (sA :: Sing a) _) -> sA))
          sX
    sFoo7 (sX :: Sing x) (sY :: Sing y)
      = applySing
          (singFun1
             @(LamCases_0123456789876543210Sym0 x y)
             (\cases (STuple2 _ (sB :: Sing b)) -> sB))
          (applySing (applySing (singFun2 @Tuple2Sym0 STuple2) sX) sY)
    sFoo6 (sA :: Sing a) (sB :: Sing b)
      = applySing
          (applySing
             (singFun1
                @(LamCases_0123456789876543210Sym0 a b)
                (\cases
                   (sX :: Sing x)
                     -> singFun1
                          @(LamCases_0123456789876543210Sym0 x a b) (\cases _ -> sX)))
             sA)
          sB
    sFoo5 (sX :: Sing x) (sY :: Sing y)
      = applySing
          (singFun1
             @(LamCases_0123456789876543210Sym0 x y)
             (\cases (sX :: Sing x) -> sX))
          sY
    sFoo4 (sX :: Sing x) (sY :: Sing y) (sZ :: Sing z)
      = applySing
          (applySing
             (singFun2
                @(LamCases_0123456789876543210Sym0 x y z) (\cases _ _ -> sX))
             sY)
          sZ
    sFoo3 (sX :: Sing x)
      = applySing
          (singFun1
             @(LamCases_0123456789876543210Sym0 x)
             (\cases (sY :: Sing y) -> sY))
          sX
    sFoo2 (sX :: Sing x) (sY :: Sing y)
      = applySing
          (singFun1 @(LamCases_0123456789876543210Sym0 x y) (\cases _ -> sX))
          sY
    sFoo1
      (sX :: Sing x)
      (sA_0123456789876543210 :: Sing a_0123456789876543210)
      = applySing
          (singFun1
             @(LamCases_0123456789876543210Sym0 x a_0123456789876543210)
             (\cases _ -> sX))
          sA_0123456789876543210
    sFoo0
      (sA_0123456789876543210 :: Sing a_0123456789876543210)
      (sA_0123456789876543210 :: Sing a_0123456789876543210)
      = applySing
          (applySing
             (singFun2
                @(LamCases_0123456789876543210Sym0 a_0123456789876543210 a_0123456789876543210)
                (\cases (sX :: Sing x) (sY :: Sing y) -> sX))
             sA_0123456789876543210)
          sA_0123456789876543210
    instance SingI (Foo8Sym0 :: (~>) (Foo a b) a) where
      sing = singFun1 @Foo8Sym0 sFoo8
    instance SingI (Foo7Sym0 :: (~>) a ((~>) b b)) where
      sing = singFun2 @Foo7Sym0 sFoo7
    instance SingI d => SingI (Foo7Sym1 (d :: a) :: (~>) b b) where
      sing = singFun1 @(Foo7Sym1 (d :: a)) (sFoo7 (sing @d))
    instance SingI1 (Foo7Sym1 :: a -> (~>) b b) where
      liftSing (s :: Sing (d :: a))
        = singFun1 @(Foo7Sym1 (d :: a)) (sFoo7 s)
    instance SingI (Foo6Sym0 :: (~>) a ((~>) b a)) where
      sing = singFun2 @Foo6Sym0 sFoo6
    instance SingI d => SingI (Foo6Sym1 (d :: a) :: (~>) b a) where
      sing = singFun1 @(Foo6Sym1 (d :: a)) (sFoo6 (sing @d))
    instance SingI1 (Foo6Sym1 :: a -> (~>) b a) where
      liftSing (s :: Sing (d :: a))
        = singFun1 @(Foo6Sym1 (d :: a)) (sFoo6 s)
    instance SingI (Foo5Sym0 :: (~>) a ((~>) b b)) where
      sing = singFun2 @Foo5Sym0 sFoo5
    instance SingI d => SingI (Foo5Sym1 (d :: a) :: (~>) b b) where
      sing = singFun1 @(Foo5Sym1 (d :: a)) (sFoo5 (sing @d))
    instance SingI1 (Foo5Sym1 :: a -> (~>) b b) where
      liftSing (s :: Sing (d :: a))
        = singFun1 @(Foo5Sym1 (d :: a)) (sFoo5 s)
    instance SingI (Foo4Sym0 :: (~>) a ((~>) b ((~>) c a))) where
      sing = singFun3 @Foo4Sym0 sFoo4
    instance SingI d =>
             SingI (Foo4Sym1 (d :: a) :: (~>) b ((~>) c a)) where
      sing = singFun2 @(Foo4Sym1 (d :: a)) (sFoo4 (sing @d))
    instance SingI1 (Foo4Sym1 :: a -> (~>) b ((~>) c a)) where
      liftSing (s :: Sing (d :: a))
        = singFun2 @(Foo4Sym1 (d :: a)) (sFoo4 s)
    instance (SingI d, SingI d) =>
             SingI (Foo4Sym2 (d :: a) (d :: b) :: (~>) c a) where
      sing
        = singFun1
            @(Foo4Sym2 (d :: a) (d :: b)) (sFoo4 (sing @d) (sing @d))
    instance SingI d =>
             SingI1 (Foo4Sym2 (d :: a) :: b -> (~>) c a) where
      liftSing (s :: Sing (d :: b))
        = singFun1 @(Foo4Sym2 (d :: a) (d :: b)) (sFoo4 (sing @d) s)
    instance SingI2 (Foo4Sym2 :: a -> b -> (~>) c a) where
      liftSing2 (s :: Sing (d :: a)) (s :: Sing (d :: b))
        = singFun1 @(Foo4Sym2 (d :: a) (d :: b)) (sFoo4 s s)
    instance SingI (Foo3Sym0 :: (~>) a a) where
      sing = singFun1 @Foo3Sym0 sFoo3
    instance SingI (Foo2Sym0 :: (~>) a ((~>) b a)) where
      sing = singFun2 @Foo2Sym0 sFoo2
    instance SingI d => SingI (Foo2Sym1 (d :: a) :: (~>) b a) where
      sing = singFun1 @(Foo2Sym1 (d :: a)) (sFoo2 (sing @d))
    instance SingI1 (Foo2Sym1 :: a -> (~>) b a) where
      liftSing (s :: Sing (d :: a))
        = singFun1 @(Foo2Sym1 (d :: a)) (sFoo2 s)
    instance SingI (Foo1Sym0 :: (~>) a ((~>) b a)) where
      sing = singFun2 @Foo1Sym0 sFoo1
    instance SingI d => SingI (Foo1Sym1 (d :: a) :: (~>) b a) where
      sing = singFun1 @(Foo1Sym1 (d :: a)) (sFoo1 (sing @d))
    instance SingI1 (Foo1Sym1 :: a -> (~>) b a) where
      liftSing (s :: Sing (d :: a))
        = singFun1 @(Foo1Sym1 (d :: a)) (sFoo1 s)
    instance SingI (Foo0Sym0 :: (~>) a ((~>) b a)) where
      sing = singFun2 @Foo0Sym0 sFoo0
    instance SingI d => SingI (Foo0Sym1 (d :: a) :: (~>) b a) where
      sing = singFun1 @(Foo0Sym1 (d :: a)) (sFoo0 (sing @d))
    instance SingI1 (Foo0Sym1 :: a -> (~>) b a) where
      liftSing (s :: Sing (d :: a))
        = singFun1 @(Foo0Sym1 (d :: a)) (sFoo0 s)
    data SFoo :: forall a b. Foo a b -> Type
      where
        SFoo :: forall a b (n :: a) (n :: b).
                (Sing n) -> (Sing n) -> SFoo (Foo n n :: Foo a b)
    type instance Sing @(Foo a b) = SFoo
    instance (SingKind a, SingKind b) => SingKind (Foo a b) where
      type Demote (Foo a b) = Foo (Demote a) (Demote b)
      fromSing (SFoo b b) = Foo (fromSing b) (fromSing b)
      toSing (Foo (b :: Demote a) (b :: Demote b))
        = (\cases (SomeSing c) (SomeSing c) -> SomeSing (SFoo c c))
            (toSing b :: SomeSing a) (toSing b :: SomeSing b)
    instance (SingI n, SingI n) => SingI (Foo (n :: a) (n :: b)) where
      sing = SFoo sing sing
    instance SingI n => SingI1 (Foo (n :: a)) where
      liftSing = SFoo sing
    instance SingI2 Foo where
      liftSing2 = SFoo
    instance SingI (FooSym0 :: (~>) a ((~>) b (Foo a b))) where
      sing = singFun2 @FooSym0 SFoo
    instance SingI d =>
             SingI (FooSym1 (d :: a) :: (~>) b (Foo a b)) where
      sing = singFun1 @(FooSym1 (d :: a)) (SFoo (sing @d))
    instance SingI1 (FooSym1 :: a -> (~>) b (Foo a b)) where
      liftSing (s :: Sing (d :: a))
        = singFun1 @(FooSym1 (d :: a)) (SFoo s)