10 lines
227 B
Text
10 lines
227 B
Text
set_option new_elaborator true
|
|
universe variables u
|
|
definition foo (A : Type u) := A
|
|
|
|
local attribute [reducible] foo
|
|
local attribute [-reducible] foo -- use [semireducible] instead
|
|
|
|
--
|
|
|
|
local attribute [-instance] nat_has_one
|