---

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

∀[f:Name ─→ Type]. ∀[es:EO+(Message(f))]. ∀[e:E]. ∀[hdr:Name]. ∀[v:f hdr].
  uiff(make-Msg(hdr;v) = info(e) ∈ Message(f);msg-authentic(info(e)) = ff
  ∧ (header(e) = hdr ∈ Name)
  ∧ (msg-body(info(e)) = v ∈ (f hdr)))
BY
{ (BasicUniformUnivCD Auto
   THEN (RepeatFor 2 (D 0)
         THENA (Auto
                THEN Try ((RepUR ``msg-has-type msg-type`` 0 THEN Fold `es-header` 0 THEN HypSubst' (-1) 0 THEN Auto))⋅
                )
         )
   THEN Try ((BLemma `es-info-make-Msg` THEN Auto))) }

1
1. f : Name ─→ Type
2. es : EO+(Message(f))
3. e : E
4. hdr : Name
5. v : f hdr
6. make-Msg(hdr;v) = info(e) ∈ Message(f)
⊢ msg-authentic(info(e)) = ff ∧ (header(e) = hdr ∈ Name) ∧ (msg-body(info(e)) = v ∈ (f hdr))

---

Latex:

---

Latex:
\mforall{}[f:Name  {}\mrightarrow{}  Type].  \mforall{}[es:EO+(Message(f))].  \mforall{}[e:E].  \mforall{}[hdr:Name].  \mforall{}[v:f  hdr].
    uiff(make-Msg(hdr;v)  =  info(e);msg-authentic(info(e))  =  ff
    \mwedge{}  (header(e)  =  hdr)
    \mwedge{}  (msg-body(info(e))  =  v))


By

---

Latex:
(BasicUniformUnivCD  Auto
  THEN  (RepeatFor  2  (D  0)
              THENA  (Auto
                            THEN  Try  ((RepUR  ``msg-has-type  msg-type``  0
                                                  THEN  Fold  `es-header`  0
                                                  THEN  HypSubst'  (-1)  0
                                                  THEN  Auto))\mcdot{}
                            )
              )
  THEN  Try  ((BLemma  `es-info-make-Msg`  THEN  Auto)))

---

Home Index