{R : Type u} →
  [inst : Ring R] →
    {ι : Type v} →
      [inst_1 : Preorder ι] →
        (G : ι → Type v) →
          [inst_2 : (i : ι) → AddCommGroup (G i)] →
            [inst_3 : (i : ι) → Module R (G i)] →
              (f : (i j : ι) → i ≤ j → G i →ₗ[R] G j) →
                [DirectedSystem G fun i j h => ⇑(f i j h)] → CategoryTheory.Functor ι (ModuleCat R)