08eb78a5b2
This PR sets up the new integrated test/bench suite. It then migrates all benchmarks and some related tests to the new suite. There's also some documentation and some linting. For now, a lot of the old tests are left alone so this PR doesn't become even larger than it already is. Eventually, all tests should be migrated to the new suite though so there isn't a confusing mix of two systems.
21 lines
865 B
Text
21 lines
865 B
Text
/-!
|
||
# Test for auxiliary parent projections (diamond inheritance)
|
||
|
||
`getStuckMVar?` should detect stuck metavariables through auxiliary parent projections
|
||
created for diamond inheritance. Previously, these coercions were not registered as projections,
|
||
so `getStuckMVar?` would give up and TC synthesis was never triggered.
|
||
-/
|
||
|
||
class AddZero' (M : Type u_2) extends Zero M, Add M where
|
||
|
||
class AddMonoid' (M : Type u) extends Add M, AddZero' M where
|
||
|
||
instance : AddZero' Int where
|
||
instance : AddMonoid' Int where
|
||
|
||
theorem sub_nonneg' {α : Type u} [AddMonoid' α] [Sub α] [LE α] {a b : α} :
|
||
0 ≤ a - b ↔ b ≤ a := sorry
|
||
|
||
-- This used to fail because `getStuckMVar?` could not find the stuck mvar
|
||
-- through `AddMonoid'.toAddZero'` (an auxiliary parent projection from diamond inheritance).
|
||
example (a b : Int) : 0 ≤ a - b ↔ b ≤ a := by rw [sub_nonneg']
|