Search

23 May 2024: section‹The TLS Protocol: Transport Layer Security› theory TLS importsbegin definition certificate :: "[where "certificate A KA ==⦃Agent A, Key KA⦄" text‹TLS apparently does not require separate keypairs for encryption and ... apply (erule

18 Mar 2024: Home page Indexes: The Girton Poetry Group. Not Averse. the imprint’s still there but it just doesn’t feel like home anymore. yeah, tell me about it, but just don’t tell me she was raped by a swan. I mean, talk about a half remembered mythic

23 May 2024: d dvd (x - D) t" by (clarsimp simp add: dvd_def,erule_tac x= "ka k" in allE,simp add: algebra_simps)} thus "(x::jD}. ... d dvd (x D) t" by (clarsimp simp add: dvd_def,erule_tac x= "ka - k" in allE,simp add: algebra_simps)} thus "(x::jD}.

23 May 2024: assumes "set UsR" shows "⟦ k KaR ⟧ k aK Us aK Us" proof - assume k: "k Kand a: "aR" and ka: "k aK Us" have inv_k: "inv k K" "inv k

23 May 2024: Ea k)" "finite Ka" "KaKa I j" "k. kKa Ea k E k" by auto fix b assume "b? ... f = "λk. (if k Ka Kb then Ea k Eb kk Kb then Eb kk Ka then Ea khave "Ka Kb = (Ka Kb) (Kb - Ka) (Ka - Kb)" by blast moreover have

23 May 2024: Number Ta, (Peer) ⦃Agent A, Agent Peer, Key K, Number Ta⦄)⦄) # evs)K (authKeys evs)" unfolding authKeys_def by auto lemma authKeys_simp: "KA (A) ⦃Key K', Agent Peer, Number Ta, ... lemma unique_authKeys: "⟦A (Crypt Ka ⦃Key authK,Ta, X⦄)evs;A

23 May 2024: ka b" using k by (metis (no_types, lifting)4)) } fix k1 k2 assume "k1? ... a bp" using ‹p› by auto finally show "?Da bp". show "Ka bp" "Kif "K?

23 May 2024: Should prove if signK=priSK RCA and C=CA i, then Ka=pubEK i or pubSK i depending on T? ) ... cert :: "[where "cert A Ka T signKsignK ⦃Agent A, Key Ka, T⦄" definition ( Cardholder's Certificate.

23 May 2024: b'" by simp_all fromobtain ka kb ka' kb' where kab: "a =? g' kb'" unfolding dvd_def by blast from this [symmetric] have "?g?

23 May 2024: Peer, Number Ta⦄,Peer) ⦃Agent A, Agent Peer, Key K, Number Ta⦄ ⦄ # evs)K (authKeys evs)" by (auto simp add: authKeys_def) lemma authKeys_simp: "KA ⦃A) ⦃Key K', Agent Peer, ... Ta'⦄, X'⦄evs; evs⟧ A=A' Ka=Ka' Ta=Ta' X=X'" apply (erule