Definition other := (store * terminationMeasure)%type.Definition ORel (x y:other) : Prop :=
    store_incr (fst x) (fst y) /\
    termMeasure_incr (snd x) (snd y).

(* Specifications: *)
Lemma ORel_refl : reflexive other ORel.
Lemma ORel_trans : transitive other ORel.