Step
*
1
of Lemma
sdata_atoms_pair_lemma
1. d2 : Top@i
2. d1 : Top@i
⊢ sdata-atoms(<d1, d2>) ~ sdata-atoms(d1) @ sdata-atoms(d2)
BY
{ Try (RW (AddrC [1] (UnfoldsC ``sdata-atoms sdata-pair`` ANDTHENC ReduceC)) 0)⋅ }
1
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)  ~ sdata-atoms(d1) @ sdata-atoms(d2)
Latex:
Latex:
1.  d2  :  Top@i
2.  d1  :  Top@i
\mvdash{}  sdata-atoms(<d1,  d2>)  \msim{}  sdata-atoms(d1)  @  sdata-atoms(d2)
By
Latex:
Try  (RW  (AddrC  [1]  (UnfoldsC  ``sdata-atoms  sdata-pair``  ANDTHENC  ReduceC))  0)\mcdot{}
Home
Index