---

Step * 1 of Lemma msg-body-cmp_wf


1. f : Name ─→ Type
2. hdrs : Name List
3. mcmp : hdr:Name ─→ comparison(f hdr)
4. a : {x:Message(f)| (msg-header(x) ∈ hdrs)} @i
⊢ λm1,m2. (mcmp msg-header(m1) msg-body(m1) msg-body(m2)) ∈ comparison({m:Message(f)| msg-header(m) = msg-header(a) ∈ Na\000Cme} )
BY
{ ((InstLemma `compare-fun_wf` [⌈{m:Message(f)| msg-header(m) = msg-header(a) ∈ Name} ⌉;⌈f msg-header(a)⌉;⌈mcmp 
                                                                                                          msg-header(a)⌉
    ;⌈λm.msg-body(m)⌉]⋅
    THENA Auto
    )
   THEN RepUR ``compare-fun`` -1
   ) }

1
1. f : Name ─→ Type
2. hdrs : Name List
3. mcmp : hdr:Name ─→ comparison(f hdr)
4. a : {x:Message(f)| (msg-header(x) ∈ hdrs)} @i
5. λx,y. (mcmp msg-header(a) msg-body(x) msg-body(y)) ∈ comparison({m:Message(f)| msg-header(m) = msg-header(a) ∈ Name} \000C)
⊢ λm1,m2. (mcmp msg-header(m1) msg-body(m1) msg-body(m2)) ∈ comparison({m:Message(f)| msg-header(m) = msg-header(a) ∈ Na\000Cme} )

---

Latex:

---

Latex:

1.  f  :  Name  {}\mrightarrow{}  Type
2.  hdrs  :  Name  List
3.  mcmp  :  hdr:Name  {}\mrightarrow{}  comparison(f  hdr)
4.  a  :  \{x:Message(f)|  (msg-header(x)  \mmember{}  hdrs)\}  @i
\mvdash{}  \mlambda{}m1,m2.  (mcmp  msg-header(m1)  msg-body(m1)  msg-body(m2))  \mmember{}  comparison(\{m:Message(f)| 
                                                                                                                                    msg-header(m)  =  msg-header(a)\}  )


By

---

Latex:
((InstLemma  `compare-fun\_wf`  [\mkleeneopen{}\{m:Message(f)|  msg-header(m)  =  msg-header(a)\}  \mkleeneclose{};\mkleeneopen{}f  msg-header(a)\mkleeneclose{};
    \mkleeneopen{}mcmp  msg-header(a)\mkleeneclose{};\mkleeneopen{}\mlambda{}m.msg-body(m)\mkleeneclose{}]\mcdot{}
    THENA  Auto
    )
  THEN  RepUR  ``compare-fun``  -1
  )

---

Home Index