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.
End KnotInput.