fact: Definition qnew_c (a b c d e f g h : Z) (p1 p2 : Qpositive) (H_Qquadratic_sg_denom_nonzero : Qquadratic_sg_denom_nonzero e f g h p1 p2) := fst (snd (snd (fst (fst (snd (Qquadratic_sign a b c d e f g h p1 p2 H_Qquadratic_sg_denom_nonzero)))))).