From aa0404390746bddc587a0629c7cf8cfd1f700c4a Mon Sep 17 00:00:00 2001
From: Jason Gross <jagro@google.com>
Date: Mon, 27 Jun 2016 17:55:53 -0700
Subject: Try a faster way of solving some inequalities resulting from
 common_denominator

---
 src/Algebra.v | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Algebra.v')

diff --git a/src/Algebra.v b/src/Algebra.v
index 179fd1d44..ccb838477 100644
--- a/src/Algebra.v
+++ b/src/Algebra.v
@@ -952,7 +952,7 @@ Ltac super_nsatz :=
   try prensatz_contradict;
   try conservative_common_denominator_all;
   [ try nsatz
-  | repeat apply conj; prensatz_contradict; try nsatz.. ].
+  | repeat (apply conj || split_field_inequalities); try assumption; prensatz_contradict; try nsatz.. ].
 
 Section ExtraLemmas.
   Context {F eq zero one opp add sub mul inv div} `{F_field:field F eq zero one opp add sub mul inv div}.
-- 
cgit v1.2.3