proposition: Lemma idealMr a u : u \in I -> a * u \in I.
proof: Proof. exact: proper_ideal_subproof.2. Qed.
imports: HB(structures) mathcomp(ssreflect eqtype choice ssreflect ssrbool ssrnat) mathcomp(ssrfun seq ssralg generic_quotient)