17 lines
254 B
Text
17 lines
254 B
Text
structure A where
|
|
x : Nat := 0
|
|
y : Nat := 0
|
|
f : Nat → Nat := (. + 10)
|
|
|
|
structure B extends A where
|
|
z : Nat
|
|
|
|
structure C extends A where
|
|
w : Nat
|
|
|
|
set_option structureDiamondWarning false
|
|
|
|
structure D extends B, C where
|
|
a : Nat
|
|
|
|
#print D.toC
|