Module Type CL_SOUND.
Declare Module VSM : VERISTAR_MODEL. Import VSM VeriStarLogic.

Axiom rev_cmp_eq : forall {A:Type} (f : A -> A -> comparison) (a1 a2 : A),
Eq = rev_cmp f a1 a2 -> rev_cmp f a1 a2 = f a1 a2.