10 lines
169 B
Text
10 lines
169 B
Text
universe variables u
|
|
|
|
class foo (A : Type u) :=
|
|
(x : A)
|
|
|
|
class bla (A : Type u) extends foo A :=
|
|
(y : nat)
|
|
|
|
def ex {A : Type u} [s : foo A] : bla A :=
|
|
{ s with y := 0 }
|