38 lines
641 B
Text
38 lines
641 B
Text
attribute [user_attribute]
|
|
definition foo := ⦃user_attribute, descr := "bar"⦄
|
|
|
|
print attributes
|
|
|
|
attribute [foo] eq.refl
|
|
|
|
print [foo]
|
|
print eq.refl
|
|
|
|
|
|
-- compound names
|
|
attribute [user_attribute]
|
|
definition foo.baz := ⦃user_attribute, descr := "bar"⦄
|
|
|
|
print attributes
|
|
|
|
attribute [foo.baz] eq.refl
|
|
|
|
print [foo.baz]
|
|
print eq.refl
|
|
|
|
|
|
-- can't redeclare attributes
|
|
attribute [user_attribute]
|
|
definition reducible := ⦃user_attribute, descr := "bar"⦄
|
|
|
|
|
|
-- wrong type
|
|
attribute [user_attribute]
|
|
definition bar := "bar"
|
|
|
|
section
|
|
variable x : string
|
|
|
|
attribute [user_attribute]
|
|
definition bar := ⦃user_attribute, descr := x⦄
|
|
end
|