---

Step * 1 of Lemma es-info-make-Msg


1. f : Name ─→ Type
2. es : EO+(Message(f))
3. e : E
4. hdr : Name
5. v : f hdr
6. header(e) = hdr ∈ Name
7. msg-body(info(e)) = v ∈ (f hdr)
8. msg-authentic(info(e)) = ff
⊢ make-Msg(hdr;v) = info(e) ∈ Message(f)
BY
{ (RepUR ``es-header`` (-3)⋅
   THEN RepeatFor 3 (MoveToConcl (-1))
   THEN GenConclAtAddr [1;2;1]⋅
   THEN RepeatFor 2 (D (-2))
   THEN RepUR ``msg-header msg-body msg-msg msg-authentic`` 0
   THEN Auto
   THEN HypSubst' (-1) 0) }

1
1. f : Name ─→ Type
2. es : EO+(Message(f))
3. e : E
4. hdr : Name
5. v : f hdr
6. v2 : 𝔹@i
7. h : Name@i
8. v4 : f h@i
9. info(e) = <v2, h, v4> ∈ Message(f)@i
10. h = hdr ∈ Name@i
11. v4 = v ∈ (f hdr)@i
12. v2 = ff@i
⊢ make-Msg(hdr;v) = <ff, h, v4> ∈ Message(f)

---

Latex:

---

Latex:

1.  f  :  Name  {}\mrightarrow{}  Type
2.  es  :  EO+(Message(f))
3.  e  :  E
4.  hdr  :  Name
5.  v  :  f  hdr
6.  header(e)  =  hdr
7.  msg-body(info(e))  =  v
8.  msg-authentic(info(e))  =  ff
\mvdash{}  make-Msg(hdr;v)  =  info(e)


By

---

Latex:
(RepUR  ``es-header``  (-3)\mcdot{}
  THEN  RepeatFor  3  (MoveToConcl  (-1))
  THEN  GenConclAtAddr  [1;2;1]\mcdot{}
  THEN  RepeatFor  2  (D  (-2))
  THEN  RepUR  ``msg-header  msg-body  msg-msg  msg-authentic``  0
  THEN  Auto
  THEN  HypSubst'  (-1)  0)

---

Home Index