intros (x1,x2) (y1,y2).
destruct (O1.compare x1 y1).
- apply LT; unfold lt; auto.
- destruct (O2.compare x2 y2).
+ apply LT; unfold lt; auto.
+ apply EQ; unfold eq; auto.
+ apply GT; unfold lt; auto with ordered_type.
- apply GT; unfold lt; auto.
Defined.
Definition eq_dec : forall x y : t, {eq x y} + {~ eq x y}.

Lemma eq_dec (x y: positive): {x = y} + {x <> y}.
End PositiveOrderedTypeBits.