let Cat = ../../Cat/semigroupal

let vObject = Type

let v =
      ../../Monoidal/Cartesian/extractMonoidal
        Cat
        Type
        vObject
        ../monoidal/cartesian

in  ../../Rig/extractMultiplicativeInstance Type v ../rig ./rig