Definition compare : forall x y : t, Compare lt eq x y.Definition eq_dec (x y: t) : {x = y} + {x <> y}.Definition t := equation.Definition eq (x y: t) := x = y.Definition lt (x y: t) :=
    OrderedLoc.lt (eloc x) (eloc y) \/ (eloc x = eloc y /\
    (Plt (ereg x) (ereg y) \/ (ereg x = ereg y /\
    OrderedEqKind.lt (ekind x) (ekind y)))).

Lemma eq_refl : forall x : t, eq x x.