Ffamilytype family Append (l :: [a]) (r :: [a]) :: [a] wherePeek#EquationsAppend (a2 ': l) r = a2 ': Append l rAppend '[] r = r