8f4b2909de
This PR cleans up `grind`'s internal order typeclasses, removing unnecessary duplication.
93 lines
3.1 KiB
Text
93 lines
3.1 KiB
Text
open Lean Grind
|
||
set_option grind.debug true
|
||
|
||
example [Field α] [IsCharP α 0] (a b c : α) : a/3 = b → c = a/3 → a/2 + a/2 = b + 2*c := by
|
||
grind
|
||
|
||
example [Field α] (a b : α) : b = 0 → (a + a) / 0 = b := by
|
||
grind
|
||
|
||
example [Field α] [IsCharP α 3] (a b : α) : a/3 = b → b = 0 := by
|
||
grind
|
||
|
||
example [Field α] [IsCharP α 7] (a b c : α) : a/3 = b → c = a/3 → a/2 + a/2 = b + 2*c + 7 := by
|
||
grind
|
||
|
||
example [Field R] [IsCharP R 0] (x : R) (cos : R → R) :
|
||
(cos x ^ 2 + (2 * cos x ^ 2 - 1) ^ 2 + (4 * cos x ^ 3 - 3 * cos x) ^ 2 - 1) / 4 =
|
||
cos x * (cos x ^ 2 - 1 / 2) * (4 * cos x ^ 3 - 3 * cos x) := by
|
||
grind
|
||
|
||
example [Field α] (a : α) : (1 / 2) * a = a / 2 := by grind
|
||
|
||
example [Field α] (a : α) : 2⁻¹ * a = a / 2 := by grind
|
||
|
||
example [Field α] (a : α) : a⁻¹⁻¹ = a := by grind
|
||
|
||
example [Field α] [IsCharP α 0] (a : α) : a / 2 + a / 3 = 5 * a / 6 := by
|
||
grind
|
||
|
||
example [Field α] (a b : α) : a ≠ 0 → b ≠ 0 → a / (a / b) = b := by
|
||
grind
|
||
|
||
example [Field α] (a b : α) : a ≠ 0 → a / (a / b) = b := by
|
||
grind
|
||
|
||
example [Field α] [IsCharP α 0] (x : α)
|
||
: x ≠ 0 → (4 / x)⁻¹ * ((3 * x^3) / x)^2 * ((1 / (2 * x))⁻¹)^3 = 18 * x^8 := by
|
||
grind
|
||
|
||
example [Field α] (a : α) : 2 * a ≠ 0 → 1 / a + 1 / (2 * a) = 3 / (2 * a) := by
|
||
grind
|
||
|
||
example [Field α] [IsCharP α 0] (a : α) : 1 / a + 1 / (2 * a) = 3 / (2 * a) := by
|
||
grind
|
||
|
||
example [Field α] [IsCharP α 0] (a b : α) : 2*b - a = a + b → 1 / a + 1 / (2 * a) = 3 / b := by
|
||
grind
|
||
|
||
example [Field α] [NoNatZeroDivisors α] (a : α) : 1 / a + 1 / (2 * a) = 3 / (2 * a) := by
|
||
grind
|
||
|
||
example [Field α] {x y z w : α} : x / y = z / w → y ≠ 0 → w ≠ 0 → x * w = z * y := by
|
||
grind
|
||
|
||
example [Field α] (a : α) : a = 0 → a ≠ 1 := by
|
||
grind
|
||
|
||
example [Field α] (a : α) : a = 0 → a ≠ 1 - a := by
|
||
grind
|
||
|
||
example [Field α] {sqrtTwo a b c : α} :
|
||
sqrtTwo / 32 * ((a - b) ^ 2 + (b - c) ^ 2 + (c - a) ^ 2 + (-(a + b + c)) ^ 2) ^ 2 =
|
||
9 * sqrtTwo / 32 * (a ^ 2 + b ^ 2 + c ^ 2) ^ 2 := by
|
||
grind
|
||
|
||
-- The following example should not split on `2 = 0` because a linear ordered field has
|
||
-- characteristic zero.
|
||
#guard_msgs (trace) in
|
||
set_option trace.grind.split true in
|
||
example [Field α] [LinearOrder α] [OrderedRing α] (x y z : α)
|
||
: x > 0 → y > 0 → z > 0 → x * y * z ≥ 1 →
|
||
(x ^ 2 - y * z) / (x ^ 2 + y ^ 2 + z ^ 2) + (y ^ 2 - z * x) / (y ^ 2 + z ^ 2 + x ^ 2) +
|
||
(z ^ 2 - x * y) / (z ^ 2 + x ^ 2 + y ^ 2) =
|
||
1 / 2 * ((x - y) ^ 2 + (y - z) ^ 2 + (z - x) ^ 2) / (x ^ 2 + y ^ 2 + z ^ 2) := by
|
||
grind
|
||
|
||
example [Field α] (a : α) : a^2 = 0 → a = 0 := by
|
||
grind
|
||
|
||
example [Field α] (a : α) : a^3 = 0 → a = 0 := by
|
||
grind
|
||
|
||
/-- trace: [grind.debug.ring.rabinowitsch] (b + a - (c - b + b)) * (b + a - (c - b + b))⁻¹ -/
|
||
#guard_msgs (trace) in
|
||
set_option trace.grind.debug.ring.rabinowitsch true in
|
||
example [Field α] (a b c : α) : a^2 = 0 → c = b → b + a = c - b + b := by
|
||
grind
|
||
|
||
/-- trace: [grind.debug.ring.rabinowitsch] (b + a - c) * (b + a - c)⁻¹ -/
|
||
#guard_msgs (trace) in
|
||
set_option trace.grind.debug.ring.rabinowitsch true in
|
||
example [Field α] (a b c : α) : a^2 = 0 → c = b → b + a - c = 0 := by
|
||
grind
|