Section BiKeyOrder.
Variable A: Type.
Variable R1 R2 eqA1 eqA2: relation A.
Definition BiKey := union R1 (intersection eqA1 R2).

Lemma BiKey_StrictTotalOrder:
StrictTotalOrderViaEquiv R1 eqA1 ->
StrictTotalOrder R2 ->
StrictTotalOrder BiKey.