(******************************************************************************)
 
Inductive divides : nat -> nat -> Prop :=
    dividesDef : forall a b q : nat, b = q * a -> divides a b.(******************************************************************************)
 
Inductive divides : nat -> nat -> Prop :=
    dividesDef : forall a b q : nat, b = q * a -> divides a b.

Lemma divides_antisym : forall a b : nat, divides a b -> divides b a -> a = b.