test:

Author: leodemoura

tests/lean/run/grind_order_1.lean

@@ -0,0 +1,51 @@
+open Lean Grind
+
+example [LE α] [LT α] [Std.LawfulOrderLT α] [Std.IsPreorder α]
+    (a b c : α) : a ≤ b → b ≤ c → c < a → False := by
+  grind
+
+example [LE α] [LT α] [Std.LawfulOrderLT α] [Std.IsPreorder α]
+    (a b c d : α) : a ≤ b → b ≤ c → c < d → d ≤ a → False := by
+  grind
+
+example [LE α] [Std.IsPreorder α]
+    (a b c : α) : a ≤ b → b ≤ c → a ≤ c := by
+  grind
+
+example [LE α] [Std.IsPreorder α]
+    (a b c d : α) : a ≤ b → b ≤ c → c ≤ d → a ≤ d := by
+  grind
+
+example [LE α] [LT α] [Std.LawfulOrderLT α] [Std.IsPreorder α] [Ring α] [OrderedRing α]
+    (a b c : α) : a ≤ b → b ≤ c → c < a → False := by
+  grind -linarith
+
+example [LE α] [LT α] [Std.LawfulOrderLT α] [Std.IsPreorder α] [Ring α] [OrderedRing α]
+    (a b : α) : a ≤ 5 → b ≤ 8 → a > 6 ∨ b > 10 → False := by
+  grind -linarith (splits := 0)
+
+example [LE α] [LT α] [Std.LawfulOrderLT α] [Std.IsPreorder α] [CommRing α] [OrderedRing α]
+    (a b c : α) : a + b*c + 2*c ≤ 5 → a + c > 5 - c - c*b → False := by
+  grind -linarith (splits := 0)
+
+example [LE α] [LT α] [Std.LawfulOrderLT α] [Std.IsPreorder α] [Ring α] [OrderedRing α]
+    (a b c : α) : a - b ≤ 5 → -c + b ≤ -3 → c < a - 2 → False := by
+  grind -linarith
+
+example [LE α] [LT α] [Std.LawfulOrderLT α] [Std.IsPreorder α] [Ring α] [OrderedRing α]
+    (a b c : α) : a - b ≤ 5 → -c + b < -3 → c < a - 2 → False := by
+  grind -linarith
+
+example [LE α] [LT α] [Std.LawfulOrderLT α] [Std.IsPreorder α] [Ring α] [OrderedRing α]
+    (a b c : α) : a - b < 5 → -c + b < -3 → c < a - 2 → False := by
+  grind -linarith
+
+example [LE α] [LT α] [Std.LawfulOrderLT α] [Std.IsPreorder α] [Ring α] [OrderedRing α]
+    (a b c : α) : a - b < 5 → -c + b ≤ -3 → c < a - 2 → False := by
+  grind -linarith
+
+example (a b c : Int) : a - b ≤ 5 → -c + b ≤ -3 → c < a - 2 → False := by
+  grind -linarith -cutsat
+
+example (a b : Int) (h : a + b > 5) : (if a + b ≤ 0 then b else a) = a := by
+  grind -linarith -cutsat (splits := 0)