src/HOL/UNITY/UNITY_Main.thy
author krauss
Fri Nov 24 13:44:51 2006 +0100 (2006-11-24)
changeset 21512 3786eb1b69d6
parent 16417 9bc16273c2d4
child 21588 cd0dc678a205
permissions -rw-r--r--
Lemma "fundef_default_value" uses predicate instead of set.
     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.METHOD (fn facts => 
    15             gen_constrains_tac (local_clasimpset_of ctxt) 1)) *}
    16     "for proving safety properties"
    17 
    18 method_setup ensures_tac = {*
    19     fn args => fn ctxt =>
    20         Method.goal_args' (Scan.lift Args.name) 
    21            (gen_ensures_tac (local_clasimpset_of ctxt))
    22            args ctxt *}
    23     "for proving progress properties"
    24 
    25 end