Search

23 May 2024: B (B) ⦃Nonce NA, Agent A⦄)" abbreviation (input) ns1' :: "where "ns1' A' A B NA == Says A' B (B) ⦃Nonce NA, Agent A⦄)" abbreviation (input) ns2 :: "where "ns2 B A NA ... NB == Says B A (A) ⦃Nonce NA, Nonce NB, Agent B⦄)" abbreviation (input)

23 May 2024: B b RB" apply blast done lemma oneStep_reachable: "b RB b RB" apply blast done lemma still_reachable: "⟦BRaA; (x,y) Rb-Ra. ... x R m x x reachable? Rb? B›.› let? T = "{t, p.r}" have "?RaA?

23 May 2024: a A}" definition "Grp A f = (λa b. b = f a a A)" definition vimage2p where "vimage2p f g R = (λx y. ... y, x)) AR)" by auto lemma predicate2_eqD: "A = B A a b B a b" by simp lemma case_sum_o_inj: "case_sum f gf" "case_sum f gg"

23 May 2024: y,x⟩: r y B) x B A<=B›› lemma wf_onI2: assumes prem: "y B. ... well-founded induction then we have <term>‹wf(r)›.› lemma wfI: "⟦field(r)<=A; y B.

23 May 2024: scheme A and show the existence of an isomorphism between A and B. ... f b = f a } H #> a" proof fix b assume b: "b { b carrier G.

4 Jun 2024: p style="text-align: left;"b[beep]Generation–the new Polish Poets, /b/p p style="text-align: left;"Monday 10th February, 2020, 18.00–19.30/p p ... Wilson Drama Studio, Faculty of English, 9 West Road, Cambridge CB3 9DP/p p /p p style="text-align: left

23 May 2024: inf (infixl "" 70) and sup (infixl "" 65) and Inf (" _" [900] 900) and Sup (" _" [900] 900) syntax "_INF1" :: "pttrns 'b 'b" ("(3_./ _)" [0, 10] 10) "_INF" :: "pttrn 'a set 'b 'b" ("(3__./ _)" ... 0, 0, 10] 10) "_SUP1" :: "pttrns 'b 'b" ("(3_./ _)" [0, 10

3 Jun 2024: Thus for large B we can expect to see thatFB(x) F(x). ... B <- length(f_stat). theoretical_quantiles <- qf((1:B) / (B 1), df1, df2).

23 May 2024: subset: "A = B A B B A" by blast lemma subset_iff: "A Bt. ... vimageI [intro]: "f a = b b B a f - B" unfolding vimage_def by blast lemma vimageI2: "f a A a f - A" unfolding vimage_def by fast lemma vimageE [elim!]:

23 May 2024: thesis. qed lemma order_less_subst1: "(a::'a::f b (b::'b::c (!x y. x < y f x < f y) a < f c" proof - assume r: "!x y. ... thesis. qed lemma order_subst1: "(a::'a::f b (b::'b::c (!x y. x <= y f x <= f y) a <= f c" proof - assume r: "!x y.

23 May 2024: B AA)" proof safe fix B assume B: "B Ashow "A)" unfolding inj_on_def by (next assume "A)" from vec.linear_injective_left_inverse[OFobtain g where "g" and "gAby ... A unfolding invertible_def by blast obtain B' where BB': "B B'and B'B: "B' Busing inv_B

23 May 2024: b F} = {a b |b. b = x b F}" by blast have "a (xF) = a x aF" by (simp add: inf_sup_distrib1) also have ". = a xa b |b. b F}" ... by simp also have ". a b |b. b = x b F}" by (unfold Sup_insert[THEN sym], simp) finally show "a (xF)a b |b.

23 May 2024: a band a: "a = a'a b" and b: "b = b'a b" shows "coprime a' b'" proof - from c have "abby simp with div_gcd_coprime have "coprime (aa b) ... a = a'a b b = b'a ba' b'" proof - have "coprime (aa b) (ba b)" usingby auto then show?

23 May 2024: B B'B'B'lemma assumes B: "independent B" shows extend_basis_superset: "BB" and independent_extend_basis: "B)" and span_extend_basis[simp]: "B)proof - define p where "p B' ... B B'B'B'for B' obtain B' where "p B'" using

23 May 2024: a B b B xB. F xF a) (F b)) eventually P (bB. ... F. B) B" unfoldingby (force intro: eventually_True) lemma prod_filter_INF: assumes "Iand "Jshows "(iI.

23 May 2024: and (Haskell) infixr 9 "." subsection ‹The Forward Composition Operator ‹fcomp›› definition fcomp :: "('a 'b) ('b 'c) 'a 'c" (infixl ">" 60) where "f > g = (λx.

23 May 2024: case using A by (auto simp:intro!: bexI[where x="λi. f i g i"]) next case (UN B) then obtain b where "x b" "b B" by auto hence ... A. a b" using UN by simp thus? case using ‹b B› by (next case (Basis s) then obtain a b where xs: "xa b" "sa b" "i.

23 May 2024: a'' b'" by auto also have "b (a'' b') = b' (a'' b)" by simp finally have "b' (a b'') = b' (a'' b)". ... a = "aa b" let? b = "ba b" from b have "?ba b = b" by simp with b have "?bby fastforce withhave q2: "qa?

23 May 2024: f y g)" by (simp add:end inductive fold_graph :: "('a 'b 'b) 'b 'a set 'b bool" for f :: "'a 'b 'b" and z :: 'b where emptyI [intro]: "fold_graph ... that by auto definition fold :: "('a 'b 'b) 'b 'a set 'b" where "fold f z AA then (THE y.

23 May 2024: R v bby (intro finite_subset[OF ]) simp_all have "(b |? R u b -? R v b) s b) = (b{b? R u bb? R v bR u b -? R v ... b) s b)" by (introalso have ". = (b{b? R u bb? R v bR u b s b) - (b{b?

23 May 2024: aba $< b | b $ #0) P(a, #2 $ b)⟧ P(a,b)" shows "P(u,v)" apply (subgoal_tac "(λ⟨x,y⟩. ... ab0 $ a $+ b | b $ #0) P(a, #2 $ b)⟧ P(a,b)" shows "P(u,v)" apply (subgoal_tac " (λ⟨x,y⟩.

23 May 2024: x A" and "Ashows "x A) = x F A" proof - from ‹A› obtain b where "b A" by blast then obtain B where : "Ab B" "b B" by (blast dest: ... a set 'b 'b" ("(3MAX __./ _)" [0, 0, 10] 10) translations "MIN x y.

23 May 2024: definition SIM :: "[where "SIM(t,t',R) == (tt'tt'a a' b b'. ... rews => fn ctxt => SIMPLE_METHOD' (inj_rl_tac ctxt rews)) › lemma ccl_injs: "<a,ba',b'a=a' b=b')" "b b'.

23 May 2024: b T j (i b) = b" "b. b T i b S" assumes eq: "a. ... b T - T' j (i b) = b" "b. b T - T' i b S - S'" assumes nn: "a.

23 May 2024: bB r a b" "a1 a2 b. ⟦ a1 A; a2 A; b B; r a1 b; r a2 b ⟧ a1 = a2" shows "card AB" proof - let? ... P = "λa b. b B r a b" let? f = "λa.

23 May 2024: thesis by (simp add:qed theorem n_subsets: assumes "finite A" shows "card {B. ... g? B? B'" apply (where f' = "λl. (ll"]) using assms by (auto simp: 2 simp flip: length_0_conv intro!: 3) have fin: "finite {xs.

23 May 2024: simp]: "(vc t) = (v «| t)" by (cases t) auto lemma paint_rbt_less[simp]: "(paint c t |« v) = (t |« v)" by (cases t) auto fun rbt_ins :: "('a 'b 'b 'b) ... f k v t rule:end context ord begin definition rbt_insert_with_key :: "('a 'b 'b 'b) 'a 'b ('a,'b)

23 May 2024: thesis by auto next case False from ‹a dvd b› obtain c where b: "b = a c". ... b b" by simp then have "normalize aa div b b)" by simp then show?

23 May 2024: P x)xP x)› by auto lemma verit_ite_simplify: ‹(B C) = B› ‹(B C) = C› ‹(If A' B B) = B› ‹(A') B C)A' C B)› ‹(If c (If c ... by auto lemmas verit_eq_simplify =lemma verit_minus_simplify: ‹(a :: 'a ::a› ‹(a :: 'a ::a› ‹b :: 'b :

23 May 2024: syntax "_quote" :: "'b ('a 'b)" "_antiquote" :: "('a 'b) 'b" ("_" [1000] 1000) "_Subst" :: "'a bexp 'b idt 'a bexp" ("_[_'/_]" [1000] 999) "_Assert" :: "'a 'a set" ("(⦃_⦄)" [0] 1000) "_Assign" :: "idt 'b 'a com" ("(_ :=/ _)" ... INV _ //DO _ /OD)" [0,

23 May 2024: by (simp add:next show "a a" for a by (simp add: order_iff) next fix a b assume "a b" "b a" then have "a = a b" "a b = b" ... by (simp_all add: order_iff commute) then show "a = b" by simp next fix a b c assume "a b" "b c" then have "a = a b" "b = b c"

23 May 2024: BA. f B B})" proof (rule order.antisym) show "A)f A |f. ... B A f B B" "B A" for f B using that by (auto intro: SUP_upper2 INF_lower2) then show "(x?F.

23 May 2024: thesis. qed lemma order_less_subst1: "(a::'a::f b (b::'b::c (!x y. x < y f x < f y) a < f c" proof - assume r: "!x y. ... thesis. qed lemma order_subst1: "(a::'a::f b (b::'b::c (!x y. x <= y f x <= f y) a <= f c" proof - assume r: "!x y.

23 May 2024: A" by (blast dest: fun_is_rel) lemma range_type: "⟦⟨a,b⟩ f; fA,B)⟧ b B(a)" by (blast dest: fun_is_rel) lemma Pair_mem_PiD: "⟦⟨a,b⟩: f; ... fA,B)⟧ a A b B(a) fa = b" by (blast intro:subsection‹Lambda Abstraction› lemma lamI: "a A <a,b(a

23 May 2024: of forward proof!) lemma well_ord_iso_preserving: "⟦well_ord(A,r); well_ord(B,s); ⟨a,c⟩: r; fA,a,r), r, pred(B,b,s), s); gA,c,r), ... r, pred(B,d,s), s); a A; c A; b B; d B⟧ ⟨b,d⟩: s" apply (frule ord_iso_is_bij [THEN bij_is_fun, THEN

23 May 2024: EX a:A. xa)) | (EX b:B. xb))}" definition Pi :: "[where "Pi(A,B) == {x. ... pair: "⟦a = a'; b = b'; <a',b'A⟧ <a,bA" by simp ML ‹ val coinduct3_tac = SUBPROOF (fn {context = ctxt, prems = mono :: prems,. } =>

23 May 2024: bB. x b j) (x = t) (x - D = t))" "⟦Dt B⟧ ((x::jD}. ... bB. x b j) (x t) (x - D t))" "⟦Dt B⟧ ((x::jD}.

23 May 2024: simp lemma set_mset_empty [simp]: "by (simp add: set_mset_def) lemma set_mset_single: "set_mset {#b#} = {b}" by (simp add: set_mset_def) lemma ... Mx A" by (where x = "Mx#}"]) simp lemma multiset_add_sub_el_shuffle: assumes "c # B" and "b c" shows

23 May 2024: subset: "A = B A B B A" by blast lemma subset_iff: "A Bt. ... vimageI [intro]: "f a = b b B a f - B" unfolding vimage_def by blast lemma vimageI2: "f a A a f - A" unfolding vimage_def by fast lemma vimageE [elim!]:

23 May 2024: be f surj(A,B), b B for symmetry with left_inverse? ... b,B))" unfolding inj_def apply (force intro: apply_type simp add: fun_extend) done end.

23 May 2024: b F} = {a b |b. b = x b F}" by blast have "a (xF) = a x aF" by (simp add: inf_sup_distrib1) also have ". = a xa b |b. b F}" ... by simp also have ". a b |b. b = x b F}" by (unfold Sup_insert[THEN sym], simp) finally show "a (xF)a b |b.

23 May 2024: zero [simp]: "begin subclass ring_1_no_zero_divisors proof fix a b :: 'a assume a: "aand b: "bshow "a bproof assume ab: "a bhence "a (a b)b" by simp ... thesis by (qed lemma division_ring_inverse_add: "ababa (a b)b" by (simp add: algebra_simps) lemma

23 May 2024: a band a: "a = a'a b" and b: "b = b'a b" shows "coprime a' b'" proof - from c have "abby simp with div_gcd_coprime have "coprime (aa b) ... a = a'a b b = b'a ba' b'" proof - have "coprime (aa b) (ba b)" usingby auto then show?

23 May 2024: a. a A - b! b'. b' B - {b} a b'" using unique_class by fastforce next show "b'. ... b' B - {b} b' A - b" usingby fastforce qed lemma disjoint_sum: ‹contributor ‹Paulo Emílio de Vilhena›› "⟦ finite B; finite A; partition A B⟧ (bB.

23 May 2024: axiomatization where extension: "A = B A B B A" and Union_iff: "AC) (BC. ... lemma ReplaceI [intro]: "⟦P(x,b); x: A; y. P(x,y) y=b⟧ b {y.

4 Jun 2024: 225x300.jpeg 225w" sizes="(max-width: 240px) 100vw, 240px" //div divb/b/div pbPoetry reading: Anne Portugal/b/p pbFebruary 18th 17.00–18.00 /b/p pbJudith E. ... Wilson Drama Studio, Faculty of English, /b/p pb9 West Road, Cambridge CB3 9DP/bb/b/p pThe

23 May 2024: by blast lemma QSigmaD2: "<a;bA,B) b B(a)" by blast lemma QSigma_cong: "⟦A=A'; x. ... lemma QInrD: "QInr(b): A<>B b B" by blast ( <> is itself injective.

23 May 2024: inverse (X n))" proof (fix r :: rat assume "r" obtain b i where b: "b" and i: "ni. ... r› b) show "rb (b r b)b" using b by simp qed obtain j where j: "mj.

23 May 2024: b 'b) ('a 'b 'b)" where F_strict: "F(and K: "K = (λh x y. ... a'b'b)") apply simp apply (simp split: COND_cases_iff) done end.

23 May 2024: f (A <> B) (B <> A)" unfoldingby force thus? thesis using card_of_ordIso by blast qed lemma card_of_Plus_assoc: fixes A :: "'a set" and B :: "'b set" and C :: ... thesis using inj_on_iff_surj[of B "B A"]by blast qed (simp add: card_of_empty) lemma card_of