proposition: Lemma mulr_is_bilinear : bilinear_for (GRing.Scale.Law.clone _ _ *:%R _) (GRing.Scale.Law.clone _ _ *:%R _) (@GRing.mul R).
proof: Proof. split=> [u'|u] a x y /=. - by rewrite mulrDl scalerAl. - by rewrite mulrDr scalerAr. Qed.
imports: HB(structures) mathcomp(all_ssreflect ssralg ssrnum matrix interval) mathcomp(mathcomp_extra boolp classical_sets functions) reals signed topology prodnormedzmodule normedtype landau forms