Fixpoint fold_right_sepcon' (l: list(environ->mpred)) : environ -> mpred :=
 match l with
 | nil => emp
 | b::nil => b
 | b::r => b * fold_right_sepcon' r
 end.

(* Specifications: *)
Lemma fold_right_sepcon'_eq: fold_right_sepcon' = @fold_right (environ->mpred) _ sepcon emp.
Lemma orp_dup {A}{ND: NatDed A}: forall P: A, P || P = P.
Lemma unsigned_repr_range: forall i, 0 <= i -> 0 <= Ptrofs.unsigned (Ptrofs.repr i) <= i.