---

Step * of Lemma pcorec-size_wf

∀[P:Type]. ∀[a:Atom ⟶ P ⟶ ((P + P + Type) List)].
  (pcorec-size(lbl,p.a[lbl;p]) ∈ i:P ⟶ (pcorec(lbl,p.a[lbl;p]) i) ⟶ partial(ℕ))
BY
{ (Auto
   THEN Unfold `pcorec-size` 0
   THEN BLemma `fix_wf-pcorec-partial-nat`
   THEN RepeatFor 4 ((MemCD THENA Auto))
   THEN (Trivial ORELSE (RepUR ``ptuple`` -1 THEN D -1 THEN Reduce 0))
   THEN Reduce 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[P:Type].  \mforall{}[a:Atom  {}\mrightarrow{}  P  {}\mrightarrow{}  ((P  +  P  +  Type)  List)].
    (pcorec-size(lbl,p.a[lbl;p])  \mmember{}  i:P  {}\mrightarrow{}  (pcorec(lbl,p.a[lbl;p])  i)  {}\mrightarrow{}  partial(\mBbbN{}))


By

---

Latex:
(Auto
  THEN  Unfold  `pcorec-size`  0
  THEN  BLemma  `fix\_wf-pcorec-partial-nat`
  THEN  RepeatFor  4  ((MemCD  THENA  Auto))
  THEN  (Trivial  ORELSE  (RepUR  ``ptuple``  -1  THEN  D  -1  THEN  Reduce  0))
  THEN  Reduce  0
  THEN  Auto)

---

Home Index