proposition: Lemma quadraticacc_2 : forall (a b c d e f g h : Z) (p1 p2 : Qpositive), quadraticAcc a b c d e f g h p1 p2 -> p1 <> One -> p2 <> One -> ~ quadratic_top_more a b c d e f g h -> quadratic_top_more e f g h a b c d -> quadraticAcc a b c d (e - a) (f - b) (g - c) (h - d) p1 p2.
proof: Proof. simple destruct 1; intros; trivial; try solve [ Falsum ]. Defined.
imports: QArithSternBrocot(Merge_Order)