theory Abstraction
imports Main FuncSet
begin
lemma "x<1 & ((op=) = (op=)) ==> ((op=) = (op=)) & (x<(2::nat))";
by (metis One_nat_def less_Suc0 not_less0 not_less_eq numeral_2_eq_2)
consts
monotone :: "['a => 'a, 'a set, ('a *'a)set] => bool"
pset :: "'a set => 'a set"
order :: "'a set => ('a * 'a) set"
declare [[ atp_problem_prefix = "Abstraction__Collect_triv" ]]
lemma "a ∈ {x. P x} ==> P a"
proof -
assume "a ∈ {x. P x}"
hence "a ∈ P" by (metis Collect_def)
hence "P a" by (metis mem_def)
thus "P a" by metis
qed
lemma Collect_triv: "a ∈ {x. P x} ==> P a"
by (metis mem_Collect_eq)
declare [[ atp_problem_prefix = "Abstraction__Collect_mp" ]]
lemma "a ∈ {x. P x --> Q x} ==> a ∈ {x. P x} ==> a ∈ {x. Q x}"
by (metis Collect_imp_eq ComplD UnE)
declare [[ atp_problem_prefix = "Abstraction__Sigma_triv" ]]
lemma "(a,b) ∈ Sigma A B ==> a ∈ A & b ∈ B a"
proof -
assume A1: "(a, b) ∈ Sigma A B"
hence F1: "b ∈ B a" by (metis mem_Sigma_iff)
have F2: "a ∈ A" by (metis A1 mem_Sigma_iff)
have "b ∈ B a" by (metis F1)
thus "a ∈ A ∧ b ∈ B a" by (metis F2)
qed
lemma Sigma_triv: "(a,b) ∈ Sigma A B ==> a ∈ A & b ∈ B a"
by (metis SigmaD1 SigmaD2)
declare [[ atp_problem_prefix = "Abstraction__Sigma_Collect" ]]
lemma "(a, b) ∈ (SIGMA x:A. {y. x = f y}) ==> a ∈ A ∧ a = f b"
by (meson CollectD SigmaD1 SigmaD2)
lemma "(a, b) ∈ (SIGMA x:A. {y. x = f y}) ==> a ∈ A ∧ a = f b"
by (metis mem_Sigma_iff singleton_conv2 vimage_Collect_eq vimage_singleton_eq)
lemma "(a, b) ∈ (SIGMA x:A. {y. x = f y}) ==> a ∈ A ∧ a = f b"
proof -
assume A1: "(a, b) ∈ (SIGMA x:A. {y. x = f y})"
have F1: "∀u. {u} = op = u" by (metis singleton_conv2 Collect_def)
have F2: "∀y w v. v ∈ w -` op = y --> w v = y"
by (metis F1 vimage_singleton_eq)
have F3: "∀x w. (λR. w (x R)) = x -` w"
by (metis vimage_Collect_eq Collect_def)
show "a ∈ A ∧ a = f b" by (metis A1 F2 F3 mem_Sigma_iff Collect_def)
qed
lemma "(a, b) ∈ (SIGMA x:A. {y. x = f y}) ==> a ∈ A ∧ a = f b"
proof -
assume A1: "(a, b) ∈ (SIGMA x:A. {y. x = f y})"
hence F1: "a ∈ A" by (metis mem_Sigma_iff)
have "b ∈ {R. a = f R}" by (metis A1 mem_Sigma_iff)
hence F2: "b ∈ (λR. a = f R)" by (metis Collect_def)
hence "a = f b" by (unfold mem_def)
thus "a ∈ A ∧ a = f b" by (metis F1)
qed
declare [[ atp_problem_prefix = "Abstraction__CLF_eq_in_pp" ]]
lemma "(cl,f) ∈ CLF ==> CLF = (SIGMA cl: CL.{f. f ∈ pset cl}) ==> f ∈ pset cl"
by (metis Collect_mem_eq SigmaD2)
lemma "(cl,f) ∈ CLF ==> CLF = (SIGMA cl: CL.{f. f ∈ pset cl}) ==> f ∈ pset cl"
proof -
assume A1: "(cl, f) ∈ CLF"
assume A2: "CLF = (SIGMA cl:CL. {f. f ∈ pset cl})"
have F1: "∀v. (λR. R ∈ v) = v" by (metis Collect_mem_eq Collect_def)
have "∀v u. (u, v) ∈ CLF --> v ∈ {R. R ∈ pset u}" by (metis A2 mem_Sigma_iff)
hence "∀v u. (u, v) ∈ CLF --> v ∈ pset u" by (metis F1 Collect_def)
hence "f ∈ pset cl" by (metis A1)
thus "f ∈ pset cl" by metis
qed
declare [[ atp_problem_prefix = "Abstraction__Sigma_Collect_Pi" ]]
lemma
"(cl,f) ∈ (SIGMA cl: CL. {f. f ∈ pset cl -> pset cl}) ==>
f ∈ pset cl -> pset cl"
proof -
assume A1: "(cl, f) ∈ (SIGMA cl:CL. {f. f ∈ pset cl -> pset cl})"
have F1: "∀v. (λR. R ∈ v) = v" by (metis Collect_mem_eq Collect_def)
have "f ∈ {R. R ∈ pset cl -> pset cl}" using A1 by simp
hence "f ∈ pset cl -> pset cl" by (metis F1 Collect_def)
thus "f ∈ pset cl -> pset cl" by metis
qed
declare [[ atp_problem_prefix = "Abstraction__Sigma_Collect_Int" ]]
lemma
"(cl,f) ∈ (SIGMA cl: CL. {f. f ∈ pset cl ∩ cl}) ==>
f ∈ pset cl ∩ cl"
proof -
assume A1: "(cl, f) ∈ (SIGMA cl:CL. {f. f ∈ pset cl ∩ cl})"
have F1: "∀v. (λR. R ∈ v) = v" by (metis Collect_mem_eq Collect_def)
have "f ∈ {R. R ∈ pset cl ∩ cl}" using A1 by simp
hence "f ∈ Id_on cl `` pset cl" by (metis F1 Int_commute Image_Id_on Collect_def)
hence "f ∈ Id_on cl `` pset cl" by metis
hence "f ∈ cl ∩ pset cl" by (metis Image_Id_on)
thus "f ∈ pset cl ∩ cl" by (metis Int_commute)
qed
declare [[ atp_problem_prefix = "Abstraction__Sigma_Collect_Pi_mono" ]]
lemma
"(cl,f) ∈ (SIGMA cl: CL. {f. f ∈ pset cl -> pset cl & monotone f (pset cl) (order cl)}) ==>
(f ∈ pset cl -> pset cl) & (monotone f (pset cl) (order cl))"
by auto
declare [[ atp_problem_prefix = "Abstraction__CLF_subset_Collect_Int" ]]
lemma "(cl,f) ∈ CLF ==>
CLF ⊆ (SIGMA cl: CL. {f. f ∈ pset cl ∩ cl}) ==>
f ∈ pset cl ∩ cl"
by auto
declare [[ atp_problem_prefix = "Abstraction__CLF_eq_Collect_Int" ]]
lemma "(cl,f) ∈ CLF ==>
CLF = (SIGMA cl: CL. {f. f ∈ pset cl ∩ cl}) ==>
f ∈ pset cl ∩ cl"
by auto
declare [[ atp_problem_prefix = "Abstraction__CLF_subset_Collect_Pi" ]]
lemma
"(cl,f) ∈ CLF ==>
CLF ⊆ (SIGMA cl': CL. {f. f ∈ pset cl' -> pset cl'}) ==>
f ∈ pset cl -> pset cl"
by fast
declare [[ atp_problem_prefix = "Abstraction__CLF_eq_Collect_Pi" ]]
lemma
"(cl,f) ∈ CLF ==>
CLF = (SIGMA cl: CL. {f. f ∈ pset cl -> pset cl}) ==>
f ∈ pset cl -> pset cl"
by auto
declare [[ atp_problem_prefix = "Abstraction__CLF_eq_Collect_Pi_mono" ]]
lemma
"(cl,f) ∈ CLF ==>
CLF = (SIGMA cl: CL. {f. f ∈ pset cl -> pset cl & monotone f (pset cl) (order cl)}) ==>
(f ∈ pset cl -> pset cl) & (monotone f (pset cl) (order cl))"
by auto
declare [[ atp_problem_prefix = "Abstraction__map_eq_zipA" ]]
lemma "map (%x. (f x, g x)) xs = zip (map f xs) (map g xs)"
apply (induct xs)
apply (metis map_is_Nil_conv zip.simps(1))
by auto
declare [[ atp_problem_prefix = "Abstraction__map_eq_zipB" ]]
lemma "map (%w. (w -> w, w × w)) xs =
zip (map (%w. w -> w) xs) (map (%w. w × w) xs)"
apply (induct xs)
apply (metis Nil_is_map_conv zip_Nil)
by auto
declare [[ atp_problem_prefix = "Abstraction__image_evenA" ]]
lemma "(%x. Suc(f x)) ` {x. even x} <= A ==> (∀x. even x --> Suc(f x) ∈ A)"
by (metis Collect_def image_subset_iff mem_def)
declare [[ atp_problem_prefix = "Abstraction__image_evenB" ]]
lemma "(%x. f (f x)) ` ((%x. Suc(f x)) ` {x. even x}) <= A
==> (∀x. even x --> f (f (Suc(f x))) ∈ A)";
by (metis Collect_def imageI image_image image_subset_iff mem_def)
declare [[ atp_problem_prefix = "Abstraction__image_curry" ]]
lemma "f ∈ (%u v. b × u × v) ` A ==> ∀u v. P (b × u × v) ==> P(f y)"
by auto
declare [[ atp_problem_prefix = "Abstraction__image_TimesA" ]]
lemma image_TimesA: "(%(x,y). (f x, g y)) ` (A × B) = (f`A) × (g`B)"
apply (rule equalityI)
apply (rule subsetI)
apply (erule imageE)
apply (erule ssubst)
apply (erule SigmaE)
apply (erule ssubst)
apply (subst split_conv)
apply (rule SigmaI)
apply (erule imageI) +
txt{*subgoal 2*}
apply (clarify );
apply (simp add: );
apply (rule rev_image_eqI)
apply (blast intro: elim:);
apply (simp add: );
done
declare [[ atp_problem_prefix = "Abstraction__image_TimesB" ]]
lemma image_TimesB:
"(%(x,y,z). (f x, g y, h z)) ` (A × B × C) = (f`A) × (g`B) × (h`C)"
by force
declare [[ atp_problem_prefix = "Abstraction__image_TimesC" ]]
lemma image_TimesC:
"(%(x,y). (x -> x, y × y)) ` (A × B) =
((%x. x -> x) ` A) × ((%y. y × y) ` B)"
by auto
end