---

Step * of Lemma WfdSpread-ext

∀[Pos:Type]
  ∀[Mv:Pos ⟶ Type]. WfdSpread(Pos;a.Mv[a]) ≡ a:Pos × (Mv[a] ⟶ WfdSpread(Pos;a.Mv[a])) 
  supposing ∀a,b:Pos.  Dec(a = b ∈ Pos)
BY
{ (Auto THEN (InstLemma `spread-ext` [⌜Pos⌝;⌜Mv⌝]⋅ THENA Auto) THEN (RepeatFor 2 (D 0) THENA Auto)) }

1
.....subterm..... T:t
1:n
1. Pos : Type
2. ∀a,b:Pos.  Dec(a = b ∈ Pos)
3. Mv : Pos ⟶ Type
4. Spread(Pos;a.Mv[a]) ≡ a:Pos × (Mv[a] ⟶ Spread(Pos;a.Mv[a]))
5. x : WfdSpread(Pos;a.Mv[a])
⊢ x ∈ a:Pos × (Mv[a] ⟶ WfdSpread(Pos;a.Mv[a]))

2
.....subterm..... T:t
1:n
1. Pos : Type
2. ∀a,b:Pos.  Dec(a = b ∈ Pos)
3. Mv : Pos ⟶ Type
4. Spread(Pos;a.Mv[a]) ≡ a:Pos × (Mv[a] ⟶ Spread(Pos;a.Mv[a]))
5. x : a:Pos × (Mv[a] ⟶ WfdSpread(Pos;a.Mv[a]))
⊢ x ∈ WfdSpread(Pos;a.Mv[a])

---

Latex:

---

Latex:
\mforall{}[Pos:Type]
    \mforall{}[Mv:Pos  {}\mrightarrow{}  Type].  WfdSpread(Pos;a.Mv[a])  \mequiv{}  a:Pos  \mtimes{}  (Mv[a]  {}\mrightarrow{}  WfdSpread(Pos;a.Mv[a])) 
    supposing  \mforall{}a,b:Pos.    Dec(a  =  b)


By

---

Latex:
(Auto  THEN  (InstLemma  `spread-ext`  [\mkleeneopen{}Pos\mkleeneclose{};\mkleeneopen{}Mv\mkleeneclose{}]\mcdot{}  THENA  Auto)  THEN  (RepeatFor  2  (D  0)  THENA  Auto))

---

Home Index