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