qe_forwards_helper_gen: fixes c :: "(real \<times> real \<times> real) list"   and r :: "real"   and a :: "(real \<times> real \<times> real) list"   and b :: "(real \<times> real \<times> real) list"   and d :: "(real \<times> real \<times> real) list" assumes "\<not> (\<exists>(a', b', c')\<in>set c. ((a' \<noteq> 0 \<or> b' \<noteq> 0) \<and> a' * r\<^sup>2 + b' * r + c' = 0) \<and> (\<forall>(d, e, f)\<in>set a. d * r\<^sup>2 + e * r + f = 0) \<and> (\<forall>(d, e, f)\<in>set b. d * r\<^sup>2 + e * r + f < 0) \<and> (\<forall>(d, e, f)\<in>set c. d * r\<^sup>2 + e * r + f \<le> 0) \<and> (\<forall>(d, e, f)\<in>set d. d * r\<^sup>2 + e * r + f \<noteq> 0))"   and "\<forall>x. \<forall>(d, e, f)\<in>set a. d * x\<^sup>2 + e * x + f = 0"   and "\<not> (\<exists>(a', b', c')\<in>set b. (a' = 0 \<and> b' \<noteq> 0) \<and> (\<forall>(d, e, f)\<in>set a. \<exists>y'>- c' / b'. \<forall>x\<in>{- c' / b'<..y'}. d * x\<^sup>2 + e * x + f = 0) \<and> (\<forall>(d, e, f)\<in>set b. \<exists>y'>- c' / b'. \<forall>x\<in>{- c' / b'<..y'}. d * x\<^sup>2 + e * x + f < 0) \<and> (\<forall>(d, e, f)\<in>set c. \<exists>y'>- c' / b'. \<forall>x\<in>{- c' / b'<..y'}. d * x\<^sup>2 + e * x + f \<le> 0) \<and> (\<forall>(d, e, f)\<in>set d. \<exists>y'>- c' / b'. \<forall>x\<in>{- c' / b'<..y'}. d * x\<^sup>2 + e * x + f \<noteq> 0))"   and "\<not> (\<exists>(a', b', c')\<in>set b. a' \<noteq> 0 \<and> - b'\<^sup>2 + 4 * a' * c' \<le> 0 \<and> (\<forall>(d, e, f)\<in>set a. \<exists>y'>(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f = 0) \<and> (\<forall>(d, e, f)\<in>set b. \<exists>y'>(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f < 0) \<and> (\<forall>(d, e, f)\<in>set c. \<exists>y'>(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f \<le> 0) \<and> (\<forall>(d, e, f)\<in>set d. \<exists>y'>(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f \<noteq> 0))"   and "\<not> (\<exists>(a', b', c')\<in>set b. a' \<noteq> 0 \<and> - b'\<^sup>2 + 4 * a' * c' \<le> 0 \<and> (\<forall>(d, e, f)\<in>set a. \<exists>y'>(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f = 0) \<and> (\<forall>(d, e, f)\<in>set b. \<exists>y'>(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f < 0) \<and> (\<forall>(d, e, f)\<in>set c. \<exists>y'>(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f \<le> 0) \<and> (\<forall>(d, e, f)\<in>set d. \<exists>y'>(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f \<noteq> 0))"   and "\<not> (\<exists>(a', b', c')\<in>set d. (a' = 0 \<and> b' \<noteq> 0) \<and> (\<forall>(d, e, f)\<in>set a. \<exists>y'>- c' / b'. \<forall>x\<in>{- c' / b'<..y'}. d * x\<^sup>2 + e * x + f = 0) \<and> (\<forall>(d, e, f)\<in>set b. \<exists>y'>- c' / b'. \<forall>x\<in>{- c' / b'<..y'}. d * x\<^sup>2 + e * x + f < 0) \<and> (\<forall>(d, e, f)\<in>set c. \<exists>y'>- c' / b'. \<forall>x\<in>{- c' / b'<..y'}. d * x\<^sup>2 + e * x + f \<le> 0) \<and> (\<forall>(d, e, f)\<in>set d. \<exists>y'>- c' / b'. \<forall>x\<in>{- c' / b'<..y'}. d * x\<^sup>2 + e * x + f \<noteq> 0))"   and "\<not> (\<exists>(a', b', c')\<in>set d. a' \<noteq> 0 \<and> - b'\<^sup>2 + 4 * a' * c' \<le> 0 \<and> (\<forall>(d, e, f)\<in>set a. \<exists>y'>(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f = 0) \<and> (\<forall>(d, e, f)\<in>set b. \<exists>y'>(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f < 0) \<and> (\<forall>(d, e, f)\<in>set c. \<exists>y'>(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f \<le> 0) \<and> (\<forall>(d, e, f)\<in>set d. \<exists>y'>(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f \<noteq> 0))"   and "\<not> (\<exists>(a', b', c')\<in>set d. a' \<noteq> 0 \<and> - b'\<^sup>2 + 4 * a' * c' \<le> 0 \<and> (\<forall>(d, e, f)\<in>set a. \<exists>y'>(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f = 0) \<and> (\<forall>(d, e, f)\<in>set b. \<exists>y'>(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f < 0) \<and> (\<forall>(d, e, f)\<in>set c. \<exists>y'>(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f \<le> 0) \<and> (\<forall>(d, e, f)\<in>set d. \<exists>y'>(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a'). \<forall>x\<in>{(- b' + - 1 * sqrt (b'\<^sup>2 - 4 * a' * c')) / (2 * a')<..y'}. d * x\<^sup>2 + e * x + f \<noteq> 0))" shows "\<not> (\<exists>(a', b', c')\<in>set c. ((a' \<noteq> 0 \<or> b' \<noteq> 0) \<and> a' * r\<^sup>2 + b' * r + c' = 0) \<and> (\<forall>(d, e, f)\<in>set a. \<exists>y'>r. \<forall>x\<in>{r<..y'}. d * x\<^sup>2 + e * x + f = 0) \<and> (\<forall>(d, e, f)\<in>set b. \<exists>y'>r. \<forall>x\<in>{r<..y'}. d * x\<^sup>2 + e * x + f < 0) \<and> (\<forall>(d, e, f)\<in>set c. \<exists>y'>r. \<forall>x\<in>{r<..y'}. d * x\<^sup>2 + e * x + f \<le> 0) \<and> (\<forall>(d, e, f)\<in>set d. \<exists>y'>r. \<forall>x\<in>{r<..y'}. d * x\<^sup>2 + e * x + f \<noteq> 0))"