f.
move=> eqU12 eqV12 [ltUV1 maxU1].
by split=> [|W]; rewrite -(lt_eqmx eFact mx_subseries_module' V i : mx_subseries V -> mxmodule rG (0 :: V)`_i.
Proof. by move=> modV; rewrite mx_subseries_module //= mxmodule0. Qed.Definition subseries_repr V i (modV : all modG V) :=
  section_repr (mx_subseries_modu

by apply: leq_trans (IHV _ ltV); rewrite addSnnS leq_add2l. Qed.