---

Step * 2 of Lemma comm-msg_wf


1. M : Type ─→ Type
2. c : pCom(P.M[P])
3. m : "msg":pMsg(P.M[P])@i
4. c = m ∈ "msg":pMsg(P.M[P])@i
⊢ comm-msg(m) ∈ pMsg(P.M[P]) supposing com-kind(m) = "msg" ∈ Atom
BY
{ (All Thin THEN D -1 THEN RepUR ``com-kind tagged-tag comm-msg tagged-val`` 0 THEN SplitOnHypITE -1  THEN Auto) }

---

Latex:

---

Latex:

1.  M  :  Type  {}\mrightarrow{}  Type
2.  c  :  pCom(P.M[P])
3.  m  :  "msg":pMsg(P.M[P])@i
4.  c  =  m@i
\mvdash{}  comm-msg(m)  \mmember{}  pMsg(P.M[P])  supposing  com-kind(m)  =  "msg"


By

---

Latex:
(All  Thin
  THEN  D  -1
  THEN  RepUR  ``com-kind  tagged-tag  comm-msg  tagged-val``  0
  THEN  SplitOnHypITE  -1 
  THEN  Auto)

---

Home Index