|Version 3 (modified by chak, 6 years ago) (diff)|
To guarantee the termination and completeness of the solving of equality constraints, we need to impose rather draconian restrictions on the instances of type synonym families. More specifically, to achieve both termination and completeness, we need the Strong Termination Condition and if we settle for termination alone (accepting to be incomplete for some rather exotic programs), we need the Relaxed (Termination) Condition as defined in Type Checking with Open Type Functions. The Strong Termination Condition corresponds closely to the conditions imposed on functional dependencies. The Relaxed Condition is somewhat more liberal, but still does not permit, for example, nested applications of type families in the right-hand side of a type instance. For many practically attractive uses of type families, where the the system is actually terminating, this is still to restrictive.
data Z; data S a; -- meets the Strong Termination Condition type family x :+ y type instance Z :+ y = y type instance S x :+ y = S (x :+ y) -- meets only the Relaxed Condition type family x :* y type instance Z :* y = Z type instance (S x) :* y = x :* y :+ y
The family (:+) meets the Relaxed Condition, but not the Strong Termination Condition. However, (:*) meets not even the Relaxed Condition. Nevertheless, we would expect that families defined by structural recursion should not compromise termination. Another somewhat irritating aspect of this example is that we would like these definitions to be closed, but they are open in their present form.
We might want to define equality on types as
data TFalse; data TTrue; type family TypeEq s t type instance TypeEq s s = TTrue type instance TypeEq s t = FFalse -- matches only if the previous instance does not
Unfortunately, the two instances are overlapping and there is no means by which we can disambiguate the overlap by using the same textual ordering as that which we are used to from value-level functions.
Defining total families
To enable textual disambiguation of overlapping instances, we declare the equalities together (by transferring GADT syntax to type synonyms):
type TypeEq s t where TypeEq s s = TTrue TypeEq s t = TFalse
TypeEq is a standard type family, but by virtue of being total (i.e., exhaustive) it is also closed. Further equalities cannot define it any further.
Let's use the same idea for the addition/multiplication examples:
type x :+ y where Z :+ y = y S x :+ y = S (x :+ y) type x :* y where Z :* y = Z (S x) :* y = x :* y :+ y
In contrast to TypeEq, (:+) and (:*) is not total without an extra equality. We take another idea from value-level function definitions and implicitly complete each of these definitions by a final catch all equality. So, for (:+), we assume a final
x :+ y = VOID
and for (:*) a final
x :* y = VOID