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.
paulson@13786
     1
(*  Title:      HOL/UNITY/UNITY_Main.thy
paulson@13786
     2
    ID:         $Id$
paulson@13786
     3
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
paulson@13786
     4
    Copyright   2003  University of Cambridge
paulson@13798
     5
*)
paulson@13786
     6
paulson@13798
     7
header{*Comprehensive UNITY Theory*}
paulson@13786
     8
haftmann@16417
     9
theory UNITY_Main imports Detects PPROD Follows ProgressSets
haftmann@16417
    10
uses "UNITY_tactics.ML" begin
paulson@13786
    11
paulson@16184
    12
method_setup safety = {*
paulson@13786
    13
    Method.ctxt_args (fn ctxt =>
paulson@13786
    14
        Method.METHOD (fn facts => 
wenzelm@15032
    15
            gen_constrains_tac (local_clasimpset_of ctxt) 1)) *}
paulson@13786
    16
    "for proving safety properties"
paulson@13786
    17
paulson@13786
    18
method_setup ensures_tac = {*
paulson@13786
    19
    fn args => fn ctxt =>
paulson@13786
    20
        Method.goal_args' (Scan.lift Args.name) 
wenzelm@15032
    21
           (gen_ensures_tac (local_clasimpset_of ctxt))
paulson@13786
    22
           args ctxt *}
paulson@13786
    23
    "for proving progress properties"
paulson@13786
    24
paulson@13786
    25
end