---

Step * of Lemma RankEx1-ext

∀[T:Type]
  RankEx1(T) ≡ lbl:Atom × if lbl =a "Leaf" then T
                          if lbl =a "Prod" then RankEx1(T) × RankEx1(T)
                          if lbl =a "ProdL" then T × RankEx1(T)
                          if lbl =a "ProdR" then RankEx1(T) × T
                          if lbl =a "List" then RankEx1(T) List
                          else Void
                          fi 
BY
{ ProveDatatypeExt }

---

Latex:

---

Latex:
\mforall{}[T:Type]
    RankEx1(T)  \mequiv{}  lbl:Atom  \mtimes{}  if  lbl  =a  "Leaf"  then  T
                                                    if  lbl  =a  "Prod"  then  RankEx1(T)  \mtimes{}  RankEx1(T)
                                                    if  lbl  =a  "ProdL"  then  T  \mtimes{}  RankEx1(T)
                                                    if  lbl  =a  "ProdR"  then  RankEx1(T)  \mtimes{}  T
                                                    if  lbl  =a  "List"  then  RankEx1(T)  List
                                                    else  Void
                                                    fi 


By

---

Latex:
ProveDatatypeExt

---

Home Index