---

Step * 1 of Lemma ses-honest_witness


1. s : Info:Type
× New:EClass(Atom1)
× Send:EClass(SecurityData)
× Rcv:EClass(SecurityData)
× Encrypt:EClass(SecurityData × Key × Atom1)
× Decrypt:EClass(SecurityData × Key × Atom1)
× Sign:EClass(SecurityData × Id × Atom1)
× Verify:EClass(SecurityData × Id × Atom1)
× Honest:Id ─→ 𝔹
× KeyRel:Key ─→ Key ─→ 𝔹
× PrivKey:Id ─→ Atom1
× Top
2. A : Id
3. Honest(A)@i
⊢ Ax ∈ Honest(A)
BY
{ ProveTrivialWitness }

1
.....wf..... 
1. s : Info:Type
× New:EClass(Atom1)
× Send:EClass(SecurityData)
× Rcv:EClass(SecurityData)
× Encrypt:EClass(SecurityData × Key × Atom1)
× Decrypt:EClass(SecurityData × Key × Atom1)
× Sign:EClass(SecurityData × Id × Atom1)
× Verify:EClass(SecurityData × Id × Atom1)
× Honest:Id ─→ 𝔹
× KeyRel:Key ─→ Key ─→ 𝔹
× PrivKey:Id ─→ Atom1
× Top
2. A : Id
3. ↑((fst(snd(snd(snd(snd(snd(snd(snd(snd(s)))))))))) A)@i
⊢ (fst(snd(snd(snd(snd(snd(snd(snd(snd(s)))))))))) A ∈ 𝔹

---

Latex:

---

Latex:

1.  s  :  Info:Type
\mtimes{}  New:EClass(Atom1)
\mtimes{}  Send:EClass(SecurityData)
\mtimes{}  Rcv:EClass(SecurityData)
\mtimes{}  Encrypt:EClass(SecurityData  \mtimes{}  Key  \mtimes{}  Atom1)
\mtimes{}  Decrypt:EClass(SecurityData  \mtimes{}  Key  \mtimes{}  Atom1)
\mtimes{}  Sign:EClass(SecurityData  \mtimes{}  Id  \mtimes{}  Atom1)
\mtimes{}  Verify:EClass(SecurityData  \mtimes{}  Id  \mtimes{}  Atom1)
\mtimes{}  Honest:Id  {}\mrightarrow{}  \mBbbB{}
\mtimes{}  KeyRel:Key  {}\mrightarrow{}  Key  {}\mrightarrow{}  \mBbbB{}
\mtimes{}  PrivKey:Id  {}\mrightarrow{}  Atom1
\mtimes{}  Top
2.  A  :  Id
3.  Honest(A)@i
\mvdash{}  Ax  \mmember{}  Honest(A)


By

---

Latex:
ProveTrivialWitness

---

Home Index