---

Step * of Lemma pcw-step-agree_wf

∀[P:Type]. ∀[A:P ⟶ Type]. ∀[B:p:P ⟶ A[p] ⟶ Type]. ∀[C:p:P ⟶ a:A[p] ⟶ B[p;a] ⟶ P].
∀[s:pcw-step(P;p.A[p];p,a.B[p;a];p,a,b.C[p;a;b])]. ∀[p1:P]. ∀[w:pco-W p1].
  (StepAgree(s;p1;w) ∈ ℙ)
BY
{ (InstLemma `param-co-W_wf` [] THEN RepeatFor 4 (ParallelLast') THEN ProveWfLemma) }

---

Latex:

---

Latex:
\mforall{}[P:Type].  \mforall{}[A:P  {}\mrightarrow{}  Type].  \mforall{}[B:p:P  {}\mrightarrow{}  A[p]  {}\mrightarrow{}  Type].  \mforall{}[C:p:P  {}\mrightarrow{}  a:A[p]  {}\mrightarrow{}  B[p;a]  {}\mrightarrow{}  P].
\mforall{}[s:pcw-step(P;p.A[p];p,a.B[p;a];p,a,b.C[p;a;b])].  \mforall{}[p1:P].  \mforall{}[w:pco-W  p1].
    (StepAgree(s;p1;w)  \mmember{}  \mBbbP{})


By

---

Latex:
(InstLemma  `param-co-W\_wf`  []  THEN  RepeatFor  4  (ParallelLast')  THEN  ProveWfLemma)

---

Home Index