fact: Fixpoint tree_rep (t: tree) (p: val) : mpred := match t with | E => !!(p=nullval) && emp | T v a b => EX pa:val, EX pb:val, data_at Ews t_struct_tree (Vint v,(pa,pb)) p * tree_rep a pa * tree_rep b pb end.
imports: VST.floyd.proofauto VST.msl.iter_sepcon Demo.treeread