Theory UNITY_Main

Up to index of Isabelle/HOL/UNITY

theory UNITY_Main
imports Detects PPROD Follows ProgressSets
uses UNITY_tactics.ML
begin

(*  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