---

Step * 2 2 2 1 2 2 1 2 1 of Lemma prec-ext


1. P : Type
2. a : Atom ⟶ P ⟶ ((P + P + Type) List)
3. y : P
4. x2 : prec(lbl,p.a[lbl;p];y) List
⊢ (l_sum(map(pcorec-size(lbl,p.a[lbl;p]) y;x2)))↓
BY
{ (ListInd (-1) THEN Reduce 0) }

1
1. P : Type
2. a : Atom ⟶ P ⟶ ((P + P + Type) List)
3. y : P
⊢ 0 ≤ 0

2
1. P : Type
2. a : Atom ⟶ P ⟶ ((P + P + Type) List)
3. y : P
4. u : prec(lbl,p.a[lbl;p];y)
5. v : prec(lbl,p.a[lbl;p];y) List
6. (l_sum(map(pcorec-size(lbl,p.a[lbl;p]) y;v)))↓
⊢ ((pcorec-size(lbl,p.a[lbl;p]) y u) + l_sum(map(pcorec-size(lbl,p.a[lbl;p]) y;v)))↓

---

Latex:

---

Latex:

1.  P  :  Type
2.  a  :  Atom  {}\mrightarrow{}  P  {}\mrightarrow{}  ((P  +  P  +  Type)  List)
3.  y  :  P
4.  x2  :  prec(lbl,p.a[lbl;p];y)  List
\mvdash{}  (l\_sum(map(pcorec-size(lbl,p.a[lbl;p])  y;x2)))\mdownarrow{}


By

---

Latex:
(ListInd  (-1)  THEN  Reduce  0)

---

Home Index