25 lines
818 B
Text
25 lines
818 B
Text
/-
|
|
Copyright (c) 2016 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Sebastian Ullrich
|
|
-/
|
|
prelude
|
|
import init.meta.tactic
|
|
|
|
meta_constant attribute.get_instances : name → tactic (list name)
|
|
meta_constant attribute.fingerprint : name → tactic nat
|
|
|
|
structure user_attribute :=
|
|
(name : name)
|
|
(descr : string)
|
|
|
|
/- Registers a new user-defined attribute. The argument must be the name of a definition of type
|
|
`user_attribute` or a sub-structure. -/
|
|
meta_constant attribute.register : name → command
|
|
|
|
structure caching_user_attribute extends user_attribute :=
|
|
(Cache : Type)
|
|
(cache : list declaration → Cache)
|
|
|
|
meta_constant caching_user_attribute.get_cache :
|
|
Π(attr : caching_user_attribute), tactic (caching_user_attribute.Cache attr)
|