40e1e097c1
This PR fixes a nontermination and missing propagation bug in `grind order`. It also register relevant case-splits for arithmetic. Closes #11001
34 lines
1 KiB
Text
34 lines
1 KiB
Text
example (n : Nat)
|
|
(f : Nat → Rat → Rat)
|
|
(x : Rat)
|
|
(H : ∀ (x : Rat), 0 ≤ x →
|
|
(4 < x → f n x < 2 * x) ∧ (x = 4 → f n x = 2 * x) ∧ (x < 4 → 2 * x < f n x)) :
|
|
x ∈ [4] ↔ f n x = 2 * x := by
|
|
fail_if_success grind
|
|
sorry
|
|
|
|
example (n : Nat)
|
|
(f : Nat → Rat → Rat)
|
|
(x : Rat)
|
|
(_ : x ≥ 0)
|
|
(H : ∀ (x : Rat), 0 ≤ x →
|
|
(4 < x → f n x < 2 * x) ∧ (x = 4 → f n x = 2 * x) ∧ (x < 4 → 2 * x < f n x)) :
|
|
x ∈ [4] ↔ f n x = 2 * x := by
|
|
grind
|
|
|
|
example (n : Nat)
|
|
(f : Nat → Rat → Rat)
|
|
(x : Rat)
|
|
(_ : x ≥ 0)
|
|
(H : ∀ (x : Rat), 0 ≤ x →
|
|
(4 < x → f n x < 2 * x) ∧ (x = 4 → f n x = 2 * x) ∧ (x < 4 → 2 * x < f n x)) :
|
|
f n x = 2 * x → x ∈ [4] := by
|
|
grind
|
|
|
|
example (n : Nat)
|
|
(f : Nat → Rat → Rat)
|
|
(x : Rat)
|
|
(H : ∀ (x : Rat), 0 ≤ x →
|
|
(4 < x → f n x < 2 * x) ∧ (x = 4 → f n x = 2 * x) ∧ (x < 4 → 2 * x < f n x)) :
|
|
x ∈ [4] → f n x = 2 * x := by
|
|
grind
|