Up to index of Isabelle/HOL/UNITY
theory UNITY_Main(* Title: HOL/UNITY/UNITY_Main.thy ID: $Id: UNITY_Main.thy,v 1.9 2007/08/03 18:19:41 wenzelm Exp $ Author: Lawrence C Paulson, Cambridge University Computer Laboratory Copyright 2003 University of Cambridge *) header{*Comprehensive UNITY Theory*} theory UNITY_Main imports Detects PPROD Follows ProgressSets uses "UNITY_tactics.ML" begin method_setup safety = {* Method.ctxt_args (fn ctxt => Method.SIMPLE_METHOD' (constrains_tac (local_clasimpset_of ctxt))) *} "for proving safety properties" method_setup ensures_tac = {* fn args => fn ctxt => Method.goal_args' (Scan.lift Args.name) (ensures_tac (local_clasimpset_of ctxt)) args ctxt *} "for proving progress properties" end