---

Step * of Lemma prec-tuple_wf

∀[P:Type]. ∀[a:Atom ⟶ P ⟶ ((P + P + Type) List)]. ∀[i:P]. ∀[x:prec(lbl,p.a[lbl;p];i)].
  (prec-tuple(x) ∈ tuple-type(prec-arg-types(lbl,p.a[lbl;p];i;prec-label(x))))
BY
{ (Unfold `prec-label` 0
   THEN InstLemma `dest-prec_wf` []
   THEN RepeatFor 4 (ParallelLast')
   THEN Unfold `dest-prec` -1
   THEN ProveWfLemma) }

---

Latex:

---

Latex:
\mforall{}[P:Type].  \mforall{}[a:Atom  {}\mrightarrow{}  P  {}\mrightarrow{}  ((P  +  P  +  Type)  List)].  \mforall{}[i:P].  \mforall{}[x:prec(lbl,p.a[lbl;p];i)].
    (prec-tuple(x)  \mmember{}  tuple-type(prec-arg-types(lbl,p.a[lbl;p];i;prec-label(x))))


By

---

Latex:
(Unfold  `prec-label`  0
  THEN  InstLemma  `dest-prec\_wf`  []
  THEN  RepeatFor  4  (ParallelLast')
  THEN  Unfold  `dest-prec`  -1
  THEN  ProveWfLemma)

---

Home Index