Step
*
of Lemma
tree-ext
∀[E:Type]. tree(E) ≡ lbl:Atom × if lbl =a "leaf" then E if lbl =a "node" then left:tree(E) × tree(E) else Void fi 
BY
{ ProveDatatypeExt }
Latex:
Latex:
\mforall{}[E:Type]
    tree(E)  \mequiv{}  lbl:Atom  \mtimes{}  if  lbl  =a  "leaf"  then  E
                                              if  lbl  =a  "node"  then  left:tree(E)  \mtimes{}  tree(E)
                                              else  Void
                                              fi 
By
Latex:
ProveDatatypeExt
Home
Index