(**********************************************************************)
 
Inductive congruent : nat -> nat -> Prop :=
    congruentDef :
      forall a b u v : nat, a + u * n = b + v * n -> congruent a b.(**********************************************************************)
 
Inductive congruent : nat -> nat -> Prop :=
    congruentDef :
      forall a b u v : nat, a + u * n = b + v * n -> congruent a b.

Lemma cong_mult : forall a b c d : nat, congruent a b -> congruent c d -> congruent (a * c) (b * d).