
diff -r 05e5d68c9627 -r f1be8028a4a9 Nominal/activities/tphols09/IDW/MW-Ex6.thy
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Nominal/activities/tphols09/IDW/MW-Ex6.thy	Wed Mar 30 17:27:34 2016 +0100
@@ -0,0 +1,51 @@
+header {* Local theory data *}
+
+theory Ex2
+imports Main
+begin
+
+ML {*
+  structure My_Rules =
+    NamedThmsFun(val name = "my_rule" val description = "My collection of rules")
+*}
+setup My_Rules.setup
+
+ML {*
+  fun declare_my_rule th phi context =
+    My_Rules.add_thm (Morphism.thm phi th) context
+*}
+
+locale foo =
+  fixes x y z :: nat
+  assumes 1: "x \<noteq> y" and 2: "y \<noteq> z" and 3: "x \<noteq> z"
+begin
+
+declaration {* declare_my_rule @{thm 1} *}
+declaration {* declare_my_rule @{thm 2} *}
+declaration {* declare_my_rule @{thm 3} *}
+
+ML {* My_Rules.get @{context} *}
+
+end
+
+ML {* My_Rules.get @{context} *}
+
+interpretation bar: foo 7 42 1 by unfold_locales simp_all
+
+ML {* My_Rules.get @{context} *}
+
+thm my_rule
+
+
+lemma True
+proof
+  fix a b c d :: nat
+  assume *: "distinct [a, b, c, d]"
+  interpret foo a b c using * by unfold_locales simp_all
+  interpret foo b c d using * by unfold_locales simp_all
+
+  ML_prf {* My_Rules.get @{context} *}
+
+qed  
+
+end
\ No newline at end of file




