src/HOL/UNITY/UNITY_Main.thy
author wenzelm
Sat Jun 14 23:19:51 2008 +0200 (2008-06-14)
changeset 27208 5fe899199f85
parent 24147 edc90be09ac1
child 27882 eaa9fef9f4c1
permissions -rw-r--r--
proper context for tactics derived from res_inst_tac;
     1 (*  Title:      HOL/UNITY/UNITY_Main.thy
     2     ID:         $Id$
     3     Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
     4     Copyright   2003  University of Cambridge
     5 *)
     6 
     7 header{*Comprehensive UNITY Theory*}
     8 
     9 theory UNITY_Main imports Detects PPROD Follows ProgressSets
    10 uses "UNITY_tactics.ML" begin
    11 
    12 method_setup safety = {*
    13     Method.ctxt_args (fn ctxt =>
    14         Method.SIMPLE_METHOD' (constrains_tac (local_clasimpset_of ctxt))) *}
    15     "for proving safety properties"
    16 
    17 method_setup ensures_tac = {*
    18     fn args => fn ctxt =>
    19         Method.goal_args' (Scan.lift Args.name)
    20            (ensures_tac (local_clasimpset_of ctxt))
    21            args ctxt *}
    22     "for proving progress properties"
    23 
    24 end