proposition: Lemma Req_EM_T (r1 r2 : R) : {r1 = r2} + {r1 <> r2}.
proof: Proof. case: (total_order_T r1 r2) => [[r1Lr2 | <-] | r1Gr2]. - by right=> r1Er2; case: (Rlt_irrefl r1); rewrite {2}r1Er2. - by left. by right=> r1Er2; case: (Rlt_irrefl r1); rewrite {1}r1Er2. Qed.
imports: Rdefinitions Raxioms RIneq Rbasic_fun Zwf Epsilon FunctionalExtensionality Ranalysis1 Rsqrt_def Rtrigo1 Reals mathcomp(all_ssreflect ssralg poly mxpoly ssrnum) HB(structures)