SSL Def_Const.thy

Sprache: Isabelle

section ‹ Defining Declared Constants ›

theory Def_Const
imports Main
keywords "def_consts" :: "thy_defn"
begin

text ‹ Add a simple command to define previously declared polymorphic constants. This is
particularly useful for handling given sets in Z. ›

ML ‹

Def_Const =

def_const (n, v) thy =
let val Const (pn, typ) = Proof_Context.read_const {proper = false, strict = false} (Named_Target.theory_init thy) n
val ctx = Overloading.overloading [(n, (pn, dummyT), false)] thy
val pt = Syntax.check_term ctx (Type.constraint typ (Syntax.parse_term ctx v))
in (Local_Theory.exit_global o snd o Local_Theory.define (((Binding.name n), NoSyn), ((Binding.name (n ^ "_def"), [Attrib.check_src @{context} (Token.make_src ("code", Position.none) [])]), pt))) ctx
end
def_consts = fold def_const

;

.command @{command_keyword def_consts} "define a declared constant"
(Scan.repeat1 ((Parse.name --| @{keyword "="}) -- Parse.term) >> (Toplevel.theory o Def_Const.def_consts));
›

end

Messung V0.5 in Prozent

¤ Dauer der Verarbeitung: 0.1 Sekunden ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.