Definition t:= address.Definition eq:= @eq t.Definition lt' (x y:t): bool :=
      (match x, y with (x1,x2),(y1,y2) =>
        if peq x1 y1 then zlt x2 y2 else plt x1 y1
      end).Definition lt x y:= is_true (lt' x y).

Lemma lt_trans : forall x y z : t, lt x y -> lt y z -> lt x z.