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