| author | nipkow |
| Fri, 12 Aug 2016 18:08:40 +0200 | |
| changeset 63665 | 15f48ce7ec23 |
| parent 63146 | f1ecba0272f9 |
| child 69605 | a96320074298 |
| permissions | -rw-r--r-- |
| 13786 | 1 |
(* Title: HOL/UNITY/UNITY_Main.thy |
2 |
Author: Lawrence C Paulson, Cambridge University Computer Laboratory |
|
3 |
Copyright 2003 University of Cambridge |
|
| 13798 | 4 |
*) |
| 13786 | 5 |
|
| 63146 | 6 |
section\<open>Comprehensive UNITY Theory\<close> |
| 13786 | 7 |
|
| 32689 | 8 |
theory UNITY_Main |
9 |
imports Detects PPROD Follows ProgressSets |
|
10 |
begin |
|
| 13786 | 11 |
|
| 48891 | 12 |
ML_file "UNITY_tactics.ML" |
13 |
||
| 63146 | 14 |
method_setup safety = \<open> |
15 |
Scan.succeed (SIMPLE_METHOD' o constrains_tac)\<close> |
|
| 13786 | 16 |
"for proving safety properties" |
17 |
||
| 63146 | 18 |
method_setup ensures_tac = \<open> |
|
63120
629a4c5e953e
embedded content may be delimited via cartouches;
wenzelm
parents:
58889
diff
changeset
|
19 |
Args.goal_spec -- Scan.lift Args.embedded_inner_syntax >> |
| 42767 | 20 |
(fn (quant, s) => fn ctxt => SIMPLE_METHOD'' quant (ensures_tac ctxt s)) |
| 63146 | 21 |
\<close> "for proving progress properties" |
| 13786 | 22 |
|
| 63146 | 23 |
setup \<open> |
|
51717
9e7d1c139569
simplifier uses proper Proof.context instead of historic type simpset;
wenzelm
parents:
48891
diff
changeset
|
24 |
map_theory_simpset (fn ctxt => ctxt |
|
9e7d1c139569
simplifier uses proper Proof.context instead of historic type simpset;
wenzelm
parents:
48891
diff
changeset
|
25 |
addsimps (make_o_equivs ctxt @{thm fst_o_funPair} @ make_o_equivs ctxt @{thm snd_o_funPair})
|
|
9e7d1c139569
simplifier uses proper Proof.context instead of historic type simpset;
wenzelm
parents:
48891
diff
changeset
|
26 |
addsimps (make_o_equivs ctxt @{thm fst_o_lift_map} @ make_o_equivs ctxt @{thm snd_o_lift_map}))
|
| 63146 | 27 |
\<close> |
|
42795
66fcc9882784
clarified map_simpset versus Simplifier.map_simpset_global;
wenzelm
parents:
42767
diff
changeset
|
28 |
|
| 13786 | 29 |
end |