fact: Definition trinode (sh: share) (p: addr) (dlr: addr * addr * addr): mpred := match dlr with | (d, l, r) => data_at sh node_type (pointer_val_val d, (pointer_val_val l, pointer_val_val r)) (pointer_val_val p) * concrete_valid_pointer d end.
imports: CertiGraph.msl_ext.iter_sepcon CertiGraph.msl_application.Graph CertiGraph.msl_application.GraphBin VST.veric.SeparationLogic CertiGraph.copy.env_copy_bin