9b9ce0c2ac
This PR adjusts the grind annotations for List.take/drop, and adds two theorems. This resolves problems @datokrat encountered while working on https://github.com/leanprover/human-eval-lean/blob/master/HumanEvalLean/HumanEval114.lean.
5 lines
206 B
Text
5 lines
206 B
Text
example (xs : List Nat) (x : Nat)
|
|
(i : Nat) (hi : i < (xs ++ [x]).length)
|
|
(h : 1 ≤ (List.drop i xs).sum + x) :
|
|
1 ≤ (List.drop i (List.take (xs ++ [x]).length (xs ++ [x]))).sum := by
|
|
grind
|