Simplified proofs in NS_Public

2026-03-04 00:56:37 +01:00
parent 96e5d59603
commit 7367681bc6
4 changed files with 313 additions and 391 deletions
@@ -390,6 +390,18 @@ lemma Crypt_Spy_analz_bad :
    simp[invKey_shrK]
    aapply Spy_spies_bad_shrK

+@[simp]
+lemma Crypt_synth_pubK :
+  (Msg.Crypt (pubEK A) X ∈ synth (spies evs)) ↔
+  (Msg.Crypt (pubEK A) X ∈ (spies evs) ∨ ( X ∈ synth (spies evs))) :=
+by simp[Crypt_synth_EK]; 
+
+@[simp]
+lemma Crypt_synth_analz_pubK :
+  (Msg.Crypt (pubEK A) X ∈ synth (analz (spies evs))) ↔
+  (Msg.Crypt (pubEK A) X ∈ (analz (spies evs)) ∨ ( X ∈ synth (analz (spies evs)))) :=
+by simp[Crypt_synth_EK]; 
+
@[simp]
 lemma Nonce_notin_initState {B : Agent} : Msg.Nonce N ∉ parts (initState B) := by
  cases B <;>