leopold/inductive-verification-lean
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Finished proff of NS
Lean Action CI / build (push) Has been cancelled
Details

Browse Source
This commit is contained in:
Your Name
2026-02-25 17:27:16 +01:00
parent 31e638dd90
commit 96e5d59603
3 changed files with 382 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
InductiveVerification/Event.lean
+15 -3
View File
@@ -185,10 +185,10 @@ lemma knows_Spy_partsEs [Bad] :
Event.Says A B X ∈ evs → X ∈ parts (knows Agent.Spy evs) := by
exact Says_imp_parts_knows_Spy
lemma Says_imp_analz_Spy [InvKey] [Bad] :
∀ {A B : Agent} {X : Msg} {evs : List Event},
lemma Says_imp_analz_Spy [InvKey] [Bad]
{A B : Agent} {X : Msg} {evs : List Event} :
Event.Says A B X ∈ evs → X ∈ analz (knows Agent.Spy evs) := by
intro A B X evs h
intro h
apply analz.inj
apply Says_imp_knows_Spy
exact h
@@ -209,6 +209,18 @@ lemma parts_insert_spies [Bad] :
by
apply parts_insert
lemma analz_spies_mono [InvKey] [Bad]
{ h : M ∈ analz (knows Agent.Spy evs) } :
M ∈ analz (knows Agent.Spy (ev :: evs))
:= by
aapply analz_mono; exact knows_subset_knows_Cons
lemma analz_spies_mono_neg [InvKey] [Bad]
{ h : M ∉ analz (knows Agent.Spy (ev :: evs)) } :
M ∉ analz (knows Agent.Spy evs)
:= by
intro h₁; apply h; aapply analz_spies_mono
-- Knowledge of Agents
lemma knows_subset_knows_Says [Bad] :
∀ {A A' B : Agent} {X : Msg} {evs : List Event},