---

Step * of Lemma RankEx2-ext

∀[S,T:Type].
  RankEx2(S;T) ≡ lbl:Atom × if lbl =a "LeafT" then T
                            if lbl =a "LeafS" then S
                            if lbl =a "Prod" then RankEx2(S;T) × S × T
                            if lbl =a "Union" then S × RankEx2(S;T) + RankEx2(S;T)
                            if lbl =a "ListProd" then (S × RankEx2(S;T)) List
                            if lbl =a "UnionList" then T + (RankEx2(S;T) List)
                            else Void
                            fi 
BY
{ ProveDatatypeExt }

---

Latex:

---

Latex:
\mforall{}[S,T:Type].
    RankEx2(S;T)  \mequiv{}  lbl:Atom  \mtimes{}  if  lbl  =a  "LeafT"  then  T
                                                        if  lbl  =a  "LeafS"  then  S
                                                        if  lbl  =a  "Prod"  then  RankEx2(S;T)  \mtimes{}  S  \mtimes{}  T
                                                        if  lbl  =a  "Union"  then  S  \mtimes{}  RankEx2(S;T)  +  RankEx2(S;T)
                                                        if  lbl  =a  "ListProd"  then  (S  \mtimes{}  RankEx2(S;T))  List
                                                        if  lbl  =a  "UnionList"  then  T  +  (RankEx2(S;T)  List)
                                                        else  Void
                                                        fi 


By

---

Latex:
ProveDatatypeExt

---

Home Index