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

Lemma diophantus20 :
~ (exists x : Z, exists y : Z, exists z : Z, exists t : Z,
0 < x /\ 0 < y /\ 0 < z /\ 0 < t /\ x * x + y * y = z * z /\
x * y = 2 * (t * t)).