12 lines
165 B
Text
12 lines
165 B
Text
open nat
|
||
|
||
class A := (n : ℕ)
|
||
|
||
definition f [A] := A.n
|
||
|
||
structure B extends A :=
|
||
(Hf : f = 0)
|
||
|
||
example : B := ⟨⟨0⟩, rfl⟩
|
||
|
||
example : B := (| (| 0 |), rfl |)
|