--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Nominal/activities/Minimal.thy	Wed Mar 30 17:27:34 2016 +0100
@@ -0,0 +1,21 @@
+theory Minimal
+imports "Nominal"
+begin
+
+atom_decl name
+
+nominal_datatype lam =
+  Var "name"
+| App "lam" "lam" 
+| Lam "\<guillemotleft>name\<guillemotright>lam" ("Lam [_]._")
+
+lemma alpha_test:
+  shows "Lam [x].Var x = Lam [y].Var y"
+  by (simp add: lam.inject alpha swap_simps fresh_atm)
+
+thm lam.inject[no_vars]
+thm alpha[no_vars]
+thm swap_simps[no_vars]
+thm fresh_atm[no_vars]
+
+end
\ No newline at end of file