Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed proof;
authorwenzelm
Thu, 20 Mar 2008 16:54:11 +0100
changeset 26365 e6d3714b8853
parent 26364 cb6f360ab425
child 26366 5c089f4219c2
fixed proof;
src/HOL/TLA/Memory/MemClerk.thy file | annotate | diff | comparison | revisions 
--- a/src/HOL/TLA/Memory/MemClerk.thy	Thu Mar 20 16:28:23 2008 +0100
+++ b/src/HOL/TLA/Memory/MemClerk.thy	Thu Mar 20 16:54:11 2008 +0100
@@ -87,9 +87,6 @@
   by (tactic {* action_simp_tac (@{simpset} addsimps [@{thm MClkFwd_def},
     @{thm Call_def}, @{thm caller_def}, @{thm rtrner_def}]) [exI]
     [@{thm base_enabled}, @{thm Pair_inject}] 1 *})
-  by (tactic {* action_simp_tac (@{simpset} addsimps [thm "MClkFwd_def",
-    thm "Call_def", thm "caller_def", thm "rtrner_def"]) [exI]
-    [thm "base_enabled", Pair_inject] 1 *})
 
 lemma MClkFwd_ch_enabled: "|- Enabled (MClkFwd send rcv cst p)  -->   
          Enabled (<MClkFwd send rcv cst p>_(cst!p, rtrner send!p, caller rcv!p))"
isabelle