File tree Expand file tree Collapse file tree 6 files changed +12
-24
lines changed
Expand file tree Collapse file tree 6 files changed +12
-24
lines changed Original file line number Diff line number Diff line change @@ -18,9 +18,3 @@ example (a b : Vec α 2) : h a b = 20 := by
1818
1919example (a b : Vec α 2 ) : h a b = 20 := by
2020 grind (splits := 4 ) [h.eq_def, Vec]
21-
22- example (a b : Vec α 2 ) : h a b = 20 := by
23- grind -offset [h.eq_def, Vec]
24-
25- example (a b : Vec α 2 ) : h a b = 20 := by
26- grind -offset (splits := 4 ) [h.eq_def, Vec]
Original file line number Diff line number Diff line change @@ -39,6 +39,3 @@ example [Inhabited α] : ((fun (_ : α) => x = a + 1) = fun (_ : α) => True)
3939
4040example : c = 5 → ((fun (_ : Nat × Nat) => { down := a + c = b + 5 : ULift Prop }) = fun (_ : Nat × Nat) => { down := c < 10 : ULift Prop }) → a = b := by
4141 grind
42-
43- example : c = 5 → ((fun (_ : Nat × Nat) => { down := a + c = b + 5 : ULift Prop }) = fun (_ : Nat × Nat) => { down := c < 10 : ULift Prop }) → a = b := by
44- grind -offset
Original file line number Diff line number Diff line change @@ -73,9 +73,6 @@ def h (v w : Vec α n) : Nat :=
7373example : h a b > 0 := by
7474 grind [h.eq_def]
7575
76- example : h a b > 0 := by
77- grind -offset [h.eq_def]
78-
7976-- TODO: introduce casts while instantiating equation theorems for `h.match_1`
8077-- example (a b : Vec α 2) : h a b = 20 := by
8178-- unfold h
Original file line number Diff line number Diff line change 11open Lean Grind
22
33example (a b : Nat) (h : a + b > 5 ) : (if a + b ≤ 2 then b else a) = a := by
4- grind -linarith -lia -offset (splits := 0 )
4+ grind -linarith -lia (splits := 0 )
55
66example (a b c : Nat) : a ≤ b → b ≤ c → c < a → False := by
7- grind -linarith -lia -offset (splits := 0 )
7+ grind -linarith -lia (splits := 0 )
88
99example (a b : Nat) : a ≤ 5 → b ≤ 8 → a > 6 ∨ b > 10 → False := by
10- grind -linarith -lia -offset (splits := 0 )
10+ grind -linarith -lia (splits := 0 )
1111
1212example (a b c d : Nat) : a ≤ b → b ≤ c → c ≤ d → a ≤ d := by
13- grind -linarith -lia -offset (splits := 0 )
13+ grind -linarith -lia (splits := 0 )
Original file line number Diff line number Diff line change @@ -11,22 +11,22 @@ example (a b : Int) (f : Int → Int) : a ≤ b + 1 → b ≤ a - 1 → f a = f
1111 grind -mbtc -lia -linarith (splits := 0 )
1212
1313example (a b : Nat) (f : Nat → Int) : a ≤ b + 1 → b + 1 ≤ a → f a = f (1 + b + 0 ) := by
14- grind -offset - mbtc -lia -linarith (splits := 0 )
14+ grind -mbtc -lia -linarith (splits := 0 )
1515
1616example (a b : Nat) (f : Nat → Int) : a ≤ b + 1 → b + 1 ≤ c → c ≤ a → f a = f c := by
17- grind -offset - mbtc -lia -linarith (splits := 0 )
17+ grind -mbtc -lia -linarith (splits := 0 )
1818
1919example (a b : Nat) (f : Nat → Int) : a ≤ b + 1 → b + 1 ≤ a → f (1 + a) = f (1 + b + 1 ) := by
20- grind -offset - mbtc -lia -linarith (splits := 0 )
20+ grind -mbtc -lia -linarith (splits := 0 )
2121
2222example
2323 : 2 *n_1 + a = 1 → 2 *n_1 + a = n_2 + 1 → n = 1 → n = n_3 + 1 → n_2 ≠ n_3 → False := by
24- grind -lia -linarith -offset - ring (splits := 0 )
24+ grind -lia -linarith -ring (splits := 0 )
2525
2626example
2727 : a = b → a ≤ b + 1 := by
28- grind -lia -linarith -offset - ring (splits := 0 ) only
28+ grind -lia -linarith -ring (splits := 0 ) only
2929
3030example
3131 : a = b + 1 → a ≤ b + 2 := by
32- grind -lia -linarith -offset - ring (splits := 0 ) only
32+ grind -lia -linarith -ring (splits := 0 ) only
Original file line number Diff line number Diff line change @@ -99,7 +99,7 @@ attribute [local grind] getIdx findIdx insert
9999
100100example (m : IndexMap α β) (a a' : α) (b : β) (h : a' ∈ m.insert a b) :
101101 (m.insert a b)[a'] = if h' : a' == a then b else m[a'] := by
102- grind -offset - ring -linarith -lia =>
102+ grind -ring -linarith -lia =>
103103 instantiate only [= getElem_def, insert]
104104 cases #f590
105105 next =>
@@ -114,7 +114,7 @@ example (m : IndexMap α β) (a a' : α) (b : β) (h : a' ∈ m.insert a b) :
114114
115115example (m : IndexMap α β) (a a' : α) (b : β) (h : a' ∈ m.insert a b) :
116116 (m.insert a b)[a'] = if h' : a' == a then b else m[a'] := by
117- grind -offset - ring -linarith -lia =>
117+ grind -ring -linarith -lia =>
118118 instantiate only [= getElem_def, insert]
119119 cases #f590
120120 next =>
You can’t perform that action at this time.
0 commit comments