src/HOL/UNITY/UNITY_Main.thy
author wenzelm
Mon Mar 16 18:24:30 2009 +0100 (2009-03-16)
changeset 30549 d2d7874648bd
parent 30510 4120fc59dd85
child 32149 ef59550a55d3
permissions -rw-r--r--
simplified method setup;
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 = {*
wenzelm@30549
    13
    Scan.succeed (fn ctxt =>
wenzelm@30510
    14
        SIMPLE_METHOD' (constrains_tac (local_clasimpset_of ctxt))) *}
paulson@13786
    15
    "for proving safety properties"
paulson@13786
    16
paulson@13786
    17
method_setup ensures_tac = {*
wenzelm@30549
    18
  Args.goal_spec -- Scan.lift Args.name_source >>
wenzelm@30549
    19
  (fn (quant, s) => fn ctxt => SIMPLE_METHOD'' quant (ensures_tac (local_clasimpset_of ctxt) s))
wenzelm@30549
    20
*} "for proving progress properties"
paulson@13786
    21
paulson@13786
    22
end