572751c56e
Before this commit, we were inferring whether an inductive/structure/class were meta or not. This was bad since the user had no clue whether the type was trusted (non meta) or not. Moreover, users could get confused by this behavior and assume the kernel was allowing trusted code to rely on untrusted one.
25 lines
823 B
Text
25 lines
823 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
|
|
|
|
meta 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)
|