30 lines
440 B
Text
30 lines
440 B
Text
definition foo (A : Type) := A
|
|
|
|
local attribute [-unfold] foo
|
|
|
|
local attribute [unfold 1] foo
|
|
|
|
attribute [-unfold]
|
|
|
|
section
|
|
local attribute [-unfold] foo
|
|
print foo
|
|
end
|
|
print foo
|
|
|
|
local attribute [-unfold] foo
|
|
print foo
|
|
|
|
local attribute [-unfold] foo
|
|
|
|
local attribute [unfold] foo
|
|
print foo
|
|
|
|
--
|
|
|
|
local attribute [reducible] foo
|
|
local attribute [-reducible] foo -- use [semireducible] instead
|
|
|
|
--
|
|
|
|
local attribute [-instance] nat_has_one
|