(* Diophantus20.v *)
(****************************)
(* Diophantus' 20th problem *)
(****************************)
Require Export Descent.
Require Export Pythagorean.
(*************************)
(* Some auxiliary lemmas *)
(*************************)
(***********************)
(* Diophantus' problem *)
(***********************)

Lemma diophantus20_equiv: forall y z : Z,
y > 0 -> z > 0 -> y <= z -> rel_prime y z -> distinct_parity y z ->
~ is_sqr ((z * z + y * y) * (z * z - y * y)).