isabelle: src/HOL/UNITY/UNITY_Main.thy@70f9158b6695 (annotated)

13786 ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	1	(* Title: HOL/UNITY/UNITY_Main.thy
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	2	ID: $Id$
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	3	Author: Lawrence C Paulson, Cambridge University Computer Laboratory
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	4	Copyright 2003 University of Cambridge
13798 4c1a53627500 conversion to new-style theories and tidying paulson parents: 13786 diff changeset	5	*)
13786 ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	6
13798 4c1a53627500 conversion to new-style theories and tidying paulson parents: 13786 diff changeset	7	header{Comprehensive UNITY Theory}
13786 ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	8
13853 89131afa9f01 New theory ProgressSets. Definition of closure sets paulson parents: 13851 diff changeset	9	theory UNITY_Main = Detects + PPROD + Follows + ProgressSets
13786 ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	10	files "UNITY_tactics.ML":
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	11
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	12	method_setup constrains = {*
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	13	Method.ctxt_args (fn ctxt =>
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	14	Method.METHOD (fn facts =>
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	15	gen_constrains_tac (Classical.get_local_claset ctxt,
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	16	Simplifier.get_local_simpset ctxt) 1)) *}
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	17	"for proving safety properties"
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	18
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	19	method_setup ensures_tac = {*
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	20	fn args => fn ctxt =>
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	21	Method.goal_args' (Scan.lift Args.name)
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	22	(gen_ensures_tac (Classical.get_local_claset ctxt,
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	23	Simplifier.get_local_simpset ctxt))
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	24	args ctxt *}
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	25	"for proving progress properties"
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	26
ab8f39f48a6f More conversion of UNITY to Isar new-style theories paulson parents: diff changeset	27	end

author	paulson
	Mon, 05 May 2003 18:34:16 +0200
changeset 13960	70f9158b6695
parent 13853	89131afa9f01
child 15032	02aed07e01bf
permissions	-rw-r--r--