---

Step * 1 1 1 of Lemma sdata_atoms_pair_lemma


1. d2 : Top@i
2. d1 : Top@i
⊢ tree_ind(d1;
           tree_leaf(value)⇒ if ¬bisl(value) then [outr(value)] else [] fi ;
           tree_node(left,right)⇒ rec1,rec2.rec1 @ rec2) 
@ tree_ind(d2;
           tree_leaf(value)⇒ if ¬bisl(value) then [outr(value)] else [] fi ;
           tree_node(left,right)⇒ rec1,rec2.rec1 @ rec2)  ~ tree_ind(d1;
                                                                      tree_leaf(x)⇒ if ¬bisl(x)
                                                                      then [outr(x)]
                                                                      else []
                                                                      fi ;
                                                                      tree_node(x,y)⇒ as,bs.as @ bs) 
@ tree_ind(d2;
           tree_leaf(x)⇒ if ¬bisl(x) then [outr(x)] else [] fi ;
           tree_node(x,y)⇒ as,bs.as @ bs) 
BY
{ Try SqEqCD }

---

Latex:

---

Latex:

1.  d2  :  Top@i
2.  d1  :  Top@i
\mvdash{}  tree\_ind(d1;
                      tree\_leaf(value){}\mRightarrow{}  if  \mneg{}\msubb{}isl(value)  then  [outr(value)]  else  []  fi  ;
                      tree\_node(left,right){}\mRightarrow{}  rec1,rec2.rec1  @  rec2) 
@  tree\_ind(d2;
                      tree\_leaf(value){}\mRightarrow{}  if  \mneg{}\msubb{}isl(value)  then  [outr(value)]  else  []  fi  ;
                      tree\_node(left,right){}\mRightarrow{}  rec1,rec2.rec1  @  rec2)    \msim{}  tree\_ind(d1;
                                                                                                                                            tree\_leaf(x){}\mRightarrow{}  if  \mneg{}\msubb{}isl(x)
                                                                                                                                            then  [outr(x)]
                                                                                                                                            else  []
                                                                                                                                            fi  ;
                                                                                                                                            tree\_node(x,y){}\mRightarrow{}  as,bs.as
                                                                                                                                            @  bs) 
@  tree\_ind(d2;
                      tree\_leaf(x){}\mRightarrow{}  if  \mneg{}\msubb{}isl(x)  then  [outr(x)]  else  []  fi  ;
                      tree\_node(x,y){}\mRightarrow{}  as,bs.as  @  bs) 


By

---

Latex:
Try  SqEqCD

---

Home Index