intros a b H' H'0; inversion_clear H'0.
exists (v - u).
rewrite mult_minus_distr_r; auto.
rewrite plus_minus_assoc.
rewrite plus_comm; rewrite <- H; rewrite plus_comm; auto with arith.
apply le_plus_le with (a := b) (b := a); auto.
Qed.

Lemma cong1_le : forall x : nat, 1 < n -> congruent x 1 -> 1 <= x.