type families + GADT = type unsafety?