ComposeFunctor {{A}} {{B}} {{C}} F G {{FunctorF}} {{FunctorG}} = record {
     map = λ f -> map {{B}} {{C}} {{FunctorF}} (map {{A}} {{B}} {{FunctorG}} f)
  }