nominal2: Nominal/Ex/SingleLet.thy@46f753eeb0b8 (annotated)

1911 60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	1	theory SingleLet
2024 d974059827ad Equivariance fails for single let? Cezary Kaliszyk <kaliszyk@in.tum.de> parents: 1911 diff changeset	2	imports "../NewParser"
1596 c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	3	begin
c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	4
c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	5	atom_decl name
c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	6
2338 e1764a73c292 slight cleaning Christian Urban <urbanc@in.tum.de> parents: 2336 diff changeset	7	declare [[STEPS = 16]]
2294 72ad4e766acf properly exported bn_descr Christian Urban <urbanc@in.tum.de> parents: 2293 diff changeset	8
2336 f2d545b77b31 added definition of the quotient types Christian Urban <urbanc@in.tum.de> parents: 2330 diff changeset	9	nominal_datatype trm =
1911 60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	10	Var "name"
60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	11	\| App "trm" "trm"
2024 d974059827ad Equivariance fails for single let? Cezary Kaliszyk <kaliszyk@in.tum.de> parents: 1911 diff changeset	12	\| Lam x::"name" t::"trm" bind_set x in t
d974059827ad Equivariance fails for single let? Cezary Kaliszyk <kaliszyk@in.tum.de> parents: 1911 diff changeset	13	\| Let a::"assg" t::"trm" bind_set "bn a" in t
2311 4da5c5c29009 work on transitivity proof Christian Urban <urbanc@in.tum.de> parents: 2308 diff changeset	14	\| Foo x::"name" y::"name" t::"trm" t1::"trm" t2::"trm" bind_set x in y t t1 t2
2296 45a69c9cc4cc alpha works now Christian Urban <urbanc@in.tum.de> parents: 2295 diff changeset	15	\| Bar x::"name" y::"name" t::"trm" bind y x in t x y
2316 08bbde090a17 also symmetry Christian Urban <urbanc@in.tum.de> parents: 2313 diff changeset	16	\| Baz x::"name" t1::"trm" t2::"trm" bind x in t1, bind x in t2
1911 60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	17	and assg =
2320 d835a2771608 prove that alpha implies alpha_bn (needed for rsp proofs) Christian Urban <urbanc@in.tum.de> parents: 2318 diff changeset	18	As "name" x::"name" t::"trm" bind x in t
1596 c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	19	binder
1911 60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	20	bn::"assg \<Rightarrow> atom set"
1596 c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	21	where
2320 d835a2771608 prove that alpha implies alpha_bn (needed for rsp proofs) Christian Urban <urbanc@in.tum.de> parents: 2318 diff changeset	22	"bn (As x y t) = {atom x}"
1911 60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	23
2359 46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	24	typ trm
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	25	typ assg
2338 e1764a73c292 slight cleaning Christian Urban <urbanc@in.tum.de> parents: 2336 diff changeset	26	term Var
e1764a73c292 slight cleaning Christian Urban <urbanc@in.tum.de> parents: 2336 diff changeset	27	term App
e1764a73c292 slight cleaning Christian Urban <urbanc@in.tum.de> parents: 2336 diff changeset	28	term Baz
2339 1e0b3992189c more quotient-definitions Christian Urban <urbanc@in.tum.de> parents: 2338 diff changeset	29	term bn
1e0b3992189c more quotient-definitions Christian Urban <urbanc@in.tum.de> parents: 2338 diff changeset	30	term fv_trm
2338 e1764a73c292 slight cleaning Christian Urban <urbanc@in.tum.de> parents: 2336 diff changeset	31
2359 46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	32	lemma [quot_respect]:
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	33	"(op = ===> alpha_trm_raw) Var_raw Var_raw"
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	34	"(alpha_trm_raw ===> alpha_trm_raw ===> alpha_trm_raw) App_raw App_raw"
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	35	apply(auto)
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	36	apply(rule alpha_trm_raw_alpha_assg_raw_alpha_bn_raw.intros)
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	37	apply(rule refl)
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	38	apply(rule alpha_trm_raw_alpha_assg_raw_alpha_bn_raw.intros)
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	39	apply(assumption)
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	40	apply(assumption)
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	41	done
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	42
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	43
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	44
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	45	lemma "Var x \<noteq> App y1 y2"
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	46	apply(descending)
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	47	apply(simp add: trm_raw.distinct)
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	48
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	49
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	50
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	51	ML {*
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	52	map (lift_thm [@{typ trm}, @{typ assg}] @{context}) @{thms trm_raw.distinct(1)}
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	53	*}
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	54
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	55
46f753eeb0b8 more on the paper Christian Urban <urbanc@in.tum.de> parents: 2339 diff changeset	56
2338 e1764a73c292 slight cleaning Christian Urban <urbanc@in.tum.de> parents: 2336 diff changeset	57
2336 f2d545b77b31 added definition of the quotient types Christian Urban <urbanc@in.tum.de> parents: 2330 diff changeset	58	typ trm
f2d545b77b31 added definition of the quotient types Christian Urban <urbanc@in.tum.de> parents: 2330 diff changeset	59	typ assg
f2d545b77b31 added definition of the quotient types Christian Urban <urbanc@in.tum.de> parents: 2330 diff changeset	60
1911 60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	61	thm trm_assg.fv
60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	62	thm trm_assg.supp
2024 d974059827ad Equivariance fails for single let? Cezary Kaliszyk <kaliszyk@in.tum.de> parents: 1911 diff changeset	63	thm trm_assg.eq_iff
1911 60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	64	thm trm_assg.bn
60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	65	thm trm_assg.perm
60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	66	thm trm_assg.induct
60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	67	thm trm_assg.inducts
60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	68	thm trm_assg.distinct
60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	69	ML {* Sign.of_sort @{theory} (@{typ trm}, @{sort fs}) *}
2024 d974059827ad Equivariance fails for single let? Cezary Kaliszyk <kaliszyk@in.tum.de> parents: 1911 diff changeset	70
2288 3b83960f9544 new fv/fv_bn function (supp breaks now); exported raw perms and raw funs into separate ML-files Christian Urban <urbanc@in.tum.de> parents: 2146 diff changeset	71	(* TEMPORARY
2024 d974059827ad Equivariance fails for single let? Cezary Kaliszyk <kaliszyk@in.tum.de> parents: 1911 diff changeset	72	thm trm_assg.fv[simplified trm_assg.supp(1-2)]
2288 3b83960f9544 new fv/fv_bn function (supp breaks now); exported raw perms and raw funs into separate ML-files Christian Urban <urbanc@in.tum.de> parents: 2146 diff changeset	73	*)
2064 2725853f43b9 solved the problem with equivariance by first eta-normalising the goal Christian Urban <urbanc@in.tum.de> parents: 2028 diff changeset	74
1596 c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	75	end
c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	76
c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	77
c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	78

author	Christian Urban <urbanc@in.tum.de>
	Wed, 14 Jul 2010 21:30:52 +0100
changeset 2359	46f753eeb0b8
parent 2339	1e0b3992189c
child 2361	d73d4d151cce
permissions	-rw-r--r--