---

Step * of Lemma base-noloc-classrel-make-Msg

∀[f:Name ⟶ Type]. ∀[es:EO+(Message(f))]. ∀[e:E]. ∀[hdr:Name]. ∀[v:f hdr].
  uiff(v ∈ Base(hdr)(e);info(e) = mk-msg(msg-authentic(info(e));hdr;v) ∈ Message(f))
BY
{ ((UnivCD THENA Auto)
   THEN (InstLemma `base-noloc-classrel2` [⌜f hdr⌝;⌜f⌝;⌜es⌝;⌜e⌝;⌜v⌝;⌜hdr⌝]⋅ THENA Auto)
   THEN Try (Complete ((D 0 THEN Auto)))
   THEN RepeatFor 2 ((D 0 THENA Auto))
   THEN Try (Complete ((D 0 THEN Auto)))
   THEN D (-2)
   THEN Try (Complete (((D (-3) THEN Auto)
                        THEN (RW (AddrC [2] (LemmaC `Message-eta2`)) 0 THEN Auto)
                        THEN Folds ``es-header es-info-body`` 0
                        THEN Auto)))
   THEN BackThruSomeHyp
   THEN RepUR ``es-header es-info-body`` 0
   THEN (RWO "-1" 0 THENA Auto)
   THEN RepUR ``msg-header msg-body make-Msg`` 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[f:Name  {}\mrightarrow{}  Type].  \mforall{}[es:EO+(Message(f))].  \mforall{}[e:E].  \mforall{}[hdr:Name].  \mforall{}[v:f  hdr].
    uiff(v  \mmember{}  Base(hdr)(e);info(e)  =  mk-msg(msg-authentic(info(e));hdr;v))


By

---

Latex:
((UnivCD  THENA  Auto)
  THEN  (InstLemma  `base-noloc-classrel2`  [\mkleeneopen{}f  hdr\mkleeneclose{};\mkleeneopen{}f\mkleeneclose{};\mkleeneopen{}es\mkleeneclose{};\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}v\mkleeneclose{};\mkleeneopen{}hdr\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  Try  (Complete  ((D  0  THEN  Auto)))
  THEN  RepeatFor  2  ((D  0  THENA  Auto))
  THEN  Try  (Complete  ((D  0  THEN  Auto)))
  THEN  D  (-2)
  THEN  Try  (Complete  (((D  (-3)  THEN  Auto)
                                            THEN  (RW  (AddrC  [2]  (LemmaC  `Message-eta2`))  0  THEN  Auto)
                                            THEN  Folds  ``es-header  es-info-body``  0
                                            THEN  Auto)))
  THEN  BackThruSomeHyp
  THEN  RepUR  ``es-header  es-info-body``  0
  THEN  (RWO  "-1"  0  THENA  Auto)
  THEN  RepUR  ``msg-header  msg-body  make-Msg``  0
  THEN  Auto)

---

Home Index