196d899c02
This PR adds a monolithic `CommRing` class, for internal use by `grind`, and includes instances for `Int`/`BitVec`/`IntX`/`UIntX`.
25 lines
826 B
Text
25 lines
826 B
Text
class Foo (A : Type) (B : semiOutParam Type)
|
||
|
||
-- should be rejected, because C appears by itself in an out-param
|
||
instance [Foo A B] : Foo A (B × C) where
|
||
|
||
-- should be rejected, because non-out-param A can become an mvar
|
||
instance [Foo A Nat] : Foo Nat A where
|
||
|
||
|
||
set_option trace.Meta.synthOrder true
|
||
|
||
-- both instances should synthesize [Foo A B] first:
|
||
instance [Foo A B] [Foo B C] : Foo A C where
|
||
instance [Foo B C] [Foo A B] : Foo A C where
|
||
|
||
instance : Foo (Option A) A where
|
||
|
||
|
||
|
||
class Two (α) [One α]
|
||
class TwoHalf (α) [One α] extends Two α
|
||
class Three (α : Type) (β : outParam Type) [One β] [Two β]
|
||
-- should both be accepted and synthesize `Three α β` first:
|
||
class Four (α : Type) (β : outParam Type) [One β] [TwoHalf β] extends Three α β
|
||
instance [One β] [TwoHalf β] [Three α β] : Four α β where
|