(******************************************************************************)
 
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_div : forall x y : nat, 0 < y -> divides y x -> exists q : _, is_div x y q 0.