proposition: Lemma eclamp_id {R : realType} (e : R) : 0 < e -> eclamp e = e.
proof: Proof. by rewrite ltNge /eclamp => /negbTE ->. Qed.
imports: mathcomp(all_ssreflect all_algebra) mathcomp.bigenough.bigenough mathcomp.classical(boolp classical_sets functions) mathcomp.classical(mathcomp_extra) xfinmap ereal reals discrete topology