Hint Resolve treebox_rep_saturate_local: saturate_local.

(* Specifications: *)
Lemma tree_rep_nullval: forall t,
tree_rep t nullval |-- !! (t = E).
(* Lemma tree_rep_saturate_local: forall t p, tree_rep t p |-- !! is_pointer_or_null p.  Hint Resolve tree_rep_saturate_local: saturate_local.  Lemma tree_rep_valid_pointer: forall t p, tree_rep t p |-- valid_pointer p. Hint Resolve tree_rep_valid_pointer: valid_pointer.  *)
Lemma modus_ponens_wand' {A}{ND: NatDed A}{SL: SepLog A}:
forall P Q R: A, P |-- Q -> P * (Q -* R) |-- R.
Lemma RAMIF_Q2_trans' {X Y A : Type} {ND : NatDed A} {SL : SepLog A}:
forall (m l: A) (g' m' l' : X -> Y -> A),
m |-- l * (ALL p: X, ALL q: Y, l' p q -* m' p q) ->
m * (ALL p: X, ALL q: Y, m' p q -* g' p q) |-- l * (ALL p: X, ALL q: Y, l' p q -* g' p q).
Lemma if_trueb: forall {A: Type} b (a1 a2: A), b = true -> (if b then a1 else a2) = a1.