proposition: Lemma hombnd_mul : forall {m M1 u1 v1 b1 B1 M2 u2 v2 b2 B2}, hombnd' m M1 u1 v1 b1 B1 -> hombnd' m M2 u2 v2 b2 B2 -> hombnd' m (M1 * M2) (u1 * u2) (v1 * v2) (mult_err b1 B1 b2 B2) (Fmult B1 B2).
proof: Proof. apply hombnd_mult. Qed.
imports: Reals Psatz Flocq(Core Operations Relative Plus_error)