12 lines
187 B
Text
12 lines
187 B
Text
namespace foo
|
|
|
|
structure structA [class] :=
|
|
mk :: (a : nat)
|
|
|
|
structure structB [class] extends structA :=
|
|
mk :: (b : nat)
|
|
|
|
check @structA.a
|
|
check @structB.to_structA
|
|
|
|
end foo
|