proposition: Corollary Req_Rle_proper : forall x y e, Id↓e ⊩ (x ≡ y → x <= y)%Re.
proof: Proof. intros. apply sub_id. apply Req_Rle_subtype. Qed.
imports: QArith Psatz ClassicalRealizability.Kbase ClassicalRealizability.Rationals ClassicalRealizability.Real_definitions