proposition: Lemma min_dec n m : {min n m == n} + {min n m == m}.
proof: Proof. intros. apply min_case; auto with relations. intros x y H [E|E]; [left|right]; rewrite <- E; auto with relations. Defined.
imports: Orders OrdersTac OrdersFacts Setoid Morphisms Basics