nominal2: Nominal/Ex/SingleLet.thy@58e60df1ff79 (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
2400 c6d30d5f5ba1 defined qperms and qsizes Christian Urban <urbanc@in.tum.de> parents: 2398 diff changeset	7	declare [[STEPS = 20]]
2294 72ad4e766acf properly exported bn_descr Christian Urban <urbanc@in.tum.de> parents: 2293 diff changeset	8
2410 2bbdb9c427b5 improved runtime slightly, by constructing an explicit size measure for the function definitions Christian Urban <urbanc@in.tum.de> parents: 2409 diff changeset	9
2336 f2d545b77b31 added definition of the quotient types Christian Urban <urbanc@in.tum.de> parents: 2330 diff changeset	10	nominal_datatype trm =
1911 60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	11	Var "name"
60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	12	\| App "trm" "trm"
2424 621ebd8b13c4 changed parser so that the binding mode is indicated as "bind (list)", "bind (set)" or "bind (res)"; if only "bind" is given, then bind (list) is assumed as default Christian Urban <urbanc@in.tum.de> parents: 2410 diff changeset	13	\| Lam x::"name" t::"trm" bind x in t
621ebd8b13c4 changed parser so that the binding mode is indicated as "bind (list)", "bind (set)" or "bind (res)"; if only "bind" is given, then bind (list) is assumed as default Christian Urban <urbanc@in.tum.de> parents: 2410 diff changeset	14	\| Let a::"assg" t::"trm" bind (set) "bn a" in t
621ebd8b13c4 changed parser so that the binding mode is indicated as "bind (list)", "bind (set)" or "bind (res)"; if only "bind" is given, then bind (list) is assumed as default Christian Urban <urbanc@in.tum.de> parents: 2410 diff changeset	15	\| 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	16	\| 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	17	\| 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	18	and assg =
2320 d835a2771608 prove that alpha implies alpha_bn (needed for rsp proofs) Christian Urban <urbanc@in.tum.de> parents: 2318 diff changeset	19	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	20	binder
1911 60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	21	bn::"assg \<Rightarrow> atom set"
1596 c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	22	where
2320 d835a2771608 prove that alpha implies alpha_bn (needed for rsp proofs) Christian Urban <urbanc@in.tum.de> parents: 2318 diff changeset	23	"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	24
2410 2bbdb9c427b5 improved runtime slightly, by constructing an explicit size measure for the function definitions Christian Urban <urbanc@in.tum.de> parents: 2409 diff changeset	25
2409 83990a42a068 more tuning of the code Christian Urban <urbanc@in.tum.de> parents: 2407 diff changeset	26	ML {* Function.prove_termination *}
83990a42a068 more tuning of the code Christian Urban <urbanc@in.tum.de> parents: 2407 diff changeset	27
83990a42a068 more tuning of the code Christian Urban <urbanc@in.tum.de> parents: 2407 diff changeset	28	text {* can lift *}
2401 7645e18e8b19 modified the code for class instantiations (with help from Florian) Christian Urban <urbanc@in.tum.de> parents: 2400 diff changeset	29
2397 c670a849af65 more experiments with lifting Christian Urban <urbanc@in.tum.de> parents: 2395 diff changeset	30	thm distinct
c670a849af65 more experiments with lifting Christian Urban <urbanc@in.tum.de> parents: 2395 diff changeset	31	thm trm_raw_assg_raw.inducts
2407 49ab06c0ca64 improved code Christian Urban <urbanc@in.tum.de> parents: 2406 diff changeset	32	thm trm_raw.exhaust
49ab06c0ca64 improved code Christian Urban <urbanc@in.tum.de> parents: 2406 diff changeset	33	thm assg_raw.exhaust
2424 621ebd8b13c4 changed parser so that the binding mode is indicated as "bind (list)", "bind (set)" or "bind (res)"; if only "bind" is given, then bind (list) is assumed as default Christian Urban <urbanc@in.tum.de> parents: 2410 diff changeset	34	thm fv_defs
2384 841b7e34e70a fixed order of fold_union to make alpha and fv agree Christian Urban <urbanc@in.tum.de> parents: 2382 diff changeset	35	thm perm_simps
841b7e34e70a fixed order of fold_union to make alpha and fv agree Christian Urban <urbanc@in.tum.de> parents: 2382 diff changeset	36	thm perm_laws
2397 c670a849af65 more experiments with lifting Christian Urban <urbanc@in.tum.de> parents: 2395 diff changeset	37	thm trm_raw_assg_raw.size(9 - 16)
2398 1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	38	thm eq_iff
1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	39	thm eq_iff_simps
2406 428d9cb9a243 can also lift the various eqvt lemmas for bn, fv, fv_bn and size Christian Urban <urbanc@in.tum.de> parents: 2405 diff changeset	40	thm bn_defs
2424 621ebd8b13c4 changed parser so that the binding mode is indicated as "bind (list)", "bind (set)" or "bind (res)"; if only "bind" is given, then bind (list) is assumed as default Christian Urban <urbanc@in.tum.de> parents: 2410 diff changeset	41	thm fv_eqvt
2406 428d9cb9a243 can also lift the various eqvt lemmas for bn, fv, fv_bn and size Christian Urban <urbanc@in.tum.de> parents: 2405 diff changeset	42	thm bn_eqvt
428d9cb9a243 can also lift the various eqvt lemmas for bn, fv, fv_bn and size Christian Urban <urbanc@in.tum.de> parents: 2405 diff changeset	43	thm size_eqvt
2405 29ebbe56f450 also able to lift the bn_defs Christian Urban <urbanc@in.tum.de> parents: 2404 diff changeset	44
2398 1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	45	ML {*
2428 58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	46	fun lifted ctxt qtys rthm =
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	47	let
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	48	(* When the theorem is atomized, eta redexes are contracted,
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	49	so we do it both in the original theorem *)
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	50	val rthm' = Drule.eta_contraction_rule rthm
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	51	val ((_, [rthm'']), ctxt') = Variable.import false [rthm'] ctxt
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	52	val goal = Quotient_Term.derive_qtrm ctxt' qtys (prop_of rthm'')
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	53	in
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	54	Goal.prove ctxt' [] [] goal (K (Quotient_Tacs.lift_tac ctxt' [rthm'] 1))
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	55	\|> singleton (ProofContext.export ctxt' ctxt)
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	56	end
2407 49ab06c0ca64 improved code Christian Urban <urbanc@in.tum.de> parents: 2406 diff changeset	57	*}
49ab06c0ca64 improved code Christian Urban <urbanc@in.tum.de> parents: 2406 diff changeset	58
2398 1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	59	ML {*
2428 58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	60	val _ = timeit (fn () => map (lifted @{context} [@{typ trm}, @{typ assg}]) @{thms distinct})
2398 1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	61	*}
1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	62
1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	63	ML {*
2428 58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	64	val thms_i = map (lift_thm @{context} [@{typ trm}, @{typ assg}]) @{thms trm_raw_assg_raw.inducts}
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	65	*}
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	66
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	67	ML {*
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	68	val thms_i = map (lift_thm @{context} [@{typ trm}, @{typ assg}]) @{thms trm_raw.exhaust}
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	69	*}
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	70
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	71	ML {*
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	72	val thms_i = map (lift_thm @{context} [@{typ trm}, @{typ assg}]) @{thms assg_raw.exhaust}
2398 1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	73	*}
1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	74
1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	75	ML {*
2428 58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	76	val thms_f = map (lift_thm @{context} [@{typ trm}, @{typ assg}]) @{thms fv_defs}
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	77	*}
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	78
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	79	ML {*
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	80	val thms_i = map (lift_thm @{context} [@{typ trm}, @{typ assg}]) @{thms trm_raw_assg_raw.size(9 - 16)}
2398 1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	81	*}
1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	82
1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	83	ML {*
2428 58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	84	val thms_p = map (lift_thm @{context} [@{typ trm}, @{typ assg}]) @{thms perm_simps}
2398 1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	85	*}
1e6160690546 improved code Christian Urban <urbanc@in.tum.de> parents: 2397 diff changeset	86
2402 80db544a37ea pinpointed the problem Christian Urban <urbanc@in.tum.de> parents: 2401 diff changeset	87	ML {*
2428 58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	88	val thms_f = map (lift_thm @{context} [@{typ trm}, @{typ assg}]) @{thms perm_laws}
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	89	*}
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	90
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	91	ML {*
58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	92	val thms_e = map (lift_thm @{context} [@{typ trm}, @{typ assg}])
2403 a92d2c915004 cezary made the eq_iff lemmas to lift (still needs some infrastructure in quotient) Christian Urban <urbanc@in.tum.de> parents: 2402 diff changeset	93	@{thms eq_iff[unfolded alphas permute_prod.simps prod_fv.simps prod_alpha_def prod_rel.simps
a92d2c915004 cezary made the eq_iff lemmas to lift (still needs some infrastructure in quotient) Christian Urban <urbanc@in.tum.de> parents: 2402 diff changeset	94	prod.cases]}
2402 80db544a37ea pinpointed the problem Christian Urban <urbanc@in.tum.de> parents: 2401 diff changeset	95	*}
2397 c670a849af65 more experiments with lifting Christian Urban <urbanc@in.tum.de> parents: 2395 diff changeset	96
2405 29ebbe56f450 also able to lift the bn_defs Christian Urban <urbanc@in.tum.de> parents: 2404 diff changeset	97	ML {*
2428 58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	98	val thms_e = map (lift_thm @{context} [@{typ trm}, @{typ assg}])
2405 29ebbe56f450 also able to lift the bn_defs Christian Urban <urbanc@in.tum.de> parents: 2404 diff changeset	99	@{thms eq_iff_simps[unfolded alphas permute_prod.simps prod_fv.simps prod_alpha_def prod_rel.simps
29ebbe56f450 also able to lift the bn_defs Christian Urban <urbanc@in.tum.de> parents: 2404 diff changeset	100	prod.cases]}
29ebbe56f450 also able to lift the bn_defs Christian Urban <urbanc@in.tum.de> parents: 2404 diff changeset	101	*}
2397 c670a849af65 more experiments with lifting Christian Urban <urbanc@in.tum.de> parents: 2395 diff changeset	102
2405 29ebbe56f450 also able to lift the bn_defs Christian Urban <urbanc@in.tum.de> parents: 2404 diff changeset	103	ML {*
2428 58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	104	val thms_f = map (lift_thm @{context} [@{typ trm}, @{typ assg}]) @{thms bn_defs}
2405 29ebbe56f450 also able to lift the bn_defs Christian Urban <urbanc@in.tum.de> parents: 2404 diff changeset	105	*}
2361 d73d4d151cce more on the paper Christian Urban <urbanc@in.tum.de> parents: 2359 diff changeset	106
2406 428d9cb9a243 can also lift the various eqvt lemmas for bn, fv, fv_bn and size Christian Urban <urbanc@in.tum.de> parents: 2405 diff changeset	107	ML {*
2428 58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	108	val thms_f = map (lift_thm @{context} [@{typ trm}, @{typ assg}]) @{thms bn_eqvt}
2406 428d9cb9a243 can also lift the various eqvt lemmas for bn, fv, fv_bn and size Christian Urban <urbanc@in.tum.de> parents: 2405 diff changeset	109	*}
428d9cb9a243 can also lift the various eqvt lemmas for bn, fv, fv_bn and size Christian Urban <urbanc@in.tum.de> parents: 2405 diff changeset	110
428d9cb9a243 can also lift the various eqvt lemmas for bn, fv, fv_bn and size Christian Urban <urbanc@in.tum.de> parents: 2405 diff changeset	111	ML {*
2428 58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	112	val thms_f = map (lift_thm @{context} [@{typ trm}, @{typ assg}]) @{thms fv_eqvt}
2406 428d9cb9a243 can also lift the various eqvt lemmas for bn, fv, fv_bn and size Christian Urban <urbanc@in.tum.de> parents: 2405 diff changeset	113	*}
428d9cb9a243 can also lift the various eqvt lemmas for bn, fv, fv_bn and size Christian Urban <urbanc@in.tum.de> parents: 2405 diff changeset	114
428d9cb9a243 can also lift the various eqvt lemmas for bn, fv, fv_bn and size Christian Urban <urbanc@in.tum.de> parents: 2405 diff changeset	115	ML {*
2428 58e60df1ff79 updated to new Isabelle Christian Urban <urbanc@in.tum.de> parents: 2424 diff changeset	116	val thms_f = map (lift_thm @{context} [@{typ trm}, @{typ assg}]) @{thms size_eqvt}
2406 428d9cb9a243 can also lift the various eqvt lemmas for bn, fv, fv_bn and size Christian Urban <urbanc@in.tum.de> parents: 2405 diff changeset	117	*}
428d9cb9a243 can also lift the various eqvt lemmas for bn, fv, fv_bn and size Christian Urban <urbanc@in.tum.de> parents: 2405 diff changeset	118
428d9cb9a243 can also lift the various eqvt lemmas for bn, fv, fv_bn and size Christian Urban <urbanc@in.tum.de> parents: 2405 diff changeset	119
428d9cb9a243 can also lift the various eqvt lemmas for bn, fv, fv_bn and size Christian Urban <urbanc@in.tum.de> parents: 2405 diff changeset	120
2361 d73d4d151cce more on the paper Christian Urban <urbanc@in.tum.de> parents: 2359 diff changeset	121	lemma supp_fv:
d73d4d151cce more on the paper Christian Urban <urbanc@in.tum.de> parents: 2359 diff changeset	122	"supp t = fv_trm t"
d73d4d151cce more on the paper Christian Urban <urbanc@in.tum.de> parents: 2359 diff changeset	123	"supp b = fv_bn b"
d73d4d151cce more on the paper Christian Urban <urbanc@in.tum.de> parents: 2359 diff changeset	124	apply(induct t and b rule: i1)
d73d4d151cce more on the paper Christian Urban <urbanc@in.tum.de> parents: 2359 diff changeset	125	apply(simp_all add: f1)
d73d4d151cce more on the paper Christian Urban <urbanc@in.tum.de> parents: 2359 diff changeset	126	apply(simp_all add: supp_def)
2365 467123396e5a tests Christian Urban <urbanc@in.tum.de> parents: 2361 diff changeset	127	apply(simp_all add: b1)
467123396e5a tests Christian Urban <urbanc@in.tum.de> parents: 2361 diff changeset	128	sorry
467123396e5a tests Christian Urban <urbanc@in.tum.de> parents: 2361 diff changeset	129
467123396e5a tests Christian Urban <urbanc@in.tum.de> parents: 2361 diff changeset	130	consts perm_bn_trm :: "perm \<Rightarrow> trm \<Rightarrow> trm"
467123396e5a tests Christian Urban <urbanc@in.tum.de> parents: 2361 diff changeset	131	consts perm_bn_assg :: "perm \<Rightarrow> assg \<Rightarrow> assg"
467123396e5a tests Christian Urban <urbanc@in.tum.de> parents: 2361 diff changeset	132
467123396e5a tests Christian Urban <urbanc@in.tum.de> parents: 2361 diff changeset	133	lemma y:
467123396e5a tests Christian Urban <urbanc@in.tum.de> parents: 2361 diff changeset	134	"perm_bn_trm p (Var x) = (Var x)"
467123396e5a tests Christian Urban <urbanc@in.tum.de> parents: 2361 diff changeset	135	"perm_bn_trm p (App t1 t2) = (App t1 t2)"
467123396e5a tests Christian Urban <urbanc@in.tum.de> parents: 2361 diff changeset	136	"perm_bn_trm p ("
467123396e5a tests Christian Urban <urbanc@in.tum.de> parents: 2361 diff changeset	137
467123396e5a tests Christian Urban <urbanc@in.tum.de> parents: 2361 diff changeset	138
2361 d73d4d151cce more on the paper Christian Urban <urbanc@in.tum.de> parents: 2359 diff changeset	139
2336 f2d545b77b31 added definition of the quotient types Christian Urban <urbanc@in.tum.de> parents: 2330 diff changeset	140	typ trm
f2d545b77b31 added definition of the quotient types Christian Urban <urbanc@in.tum.de> parents: 2330 diff changeset	141	typ assg
f2d545b77b31 added definition of the quotient types Christian Urban <urbanc@in.tum.de> parents: 2330 diff changeset	142
1911 60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	143	thm trm_assg.fv
60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	144	thm trm_assg.supp
2024 d974059827ad Equivariance fails for single let? Cezary Kaliszyk <kaliszyk@in.tum.de> parents: 1911 diff changeset	145	thm trm_assg.eq_iff
1911 60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	146	thm trm_assg.bn
60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	147	thm trm_assg.perm
60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	148	thm trm_assg.induct
60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	149	thm trm_assg.inducts
60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	150	thm trm_assg.distinct
60b5c61d3de2 renamed Ex1.thy to SingleLet.thy Christian Urban <urbanc@in.tum.de> parents: 1773 diff changeset	151	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	152
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	153	(* TEMPORARY
2024 d974059827ad Equivariance fails for single let? Cezary Kaliszyk <kaliszyk@in.tum.de> parents: 1911 diff changeset	154	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	155	*)
2064 2725853f43b9 solved the problem with equivariance by first eta-normalising the goal Christian Urban <urbanc@in.tum.de> parents: 2028 diff changeset	156
1596 c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	157	end
c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	158
c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	159
c69d9fb16785 Move Ex1 and Ex2 out of Test Cezary Kaliszyk <kaliszyk@in.tum.de> parents: diff changeset	160

author	Christian Urban <urbanc@in.tum.de>
	Sun, 22 Aug 2010 11:00:53 +0800
changeset 2428	58e60df1ff79
parent 2424	621ebd8b13c4
child 2430	a746d49b0240
permissions	-rw-r--r--