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