Module R := R.

(* Specifications: *)
Lemma approx_p : forall (p:pred rmap) n w, approx n p w -> p w.
Lemma approx_lt : forall (p:pred rmap) n w, lt (level w) n -> p w -> approx n p w.
Lemma approx_ge : forall p n w, ge (level w) n -> approx n p w -> False.